I, newbie » Perlã«ã‚ˆã‚‹DNSã®ãƒ†ã‚¹ãƒˆ - Test::Baseperldoc Test::Baseã—ã¦ã‚‚ã•ã£ã±ã‚Šãƒ”ンã¨æ¥ãªã‹ã£ãŸã‘ã©ã€â€use Test::Base;†(PDF 172KB)ã‚’èªã‚“ã ら5秒ã§ç†è§£ã§ããŸã€‚ã„ã‚ã‚“ãªã²ã¨ãŒã„ã‚ã‚“ãªæ–¹æ³•ã§èª¬æ˜Žã™ã‚‹ã®ã¯å¤§äº‹ã§ã™ã€‚filterãŒæœŸå¾…ã™ã‚‹å…¥åŠ›å€¤(scalarãªã®ã‹listãªã®ã‹)ã¨filterã®å‡ºåŠ›ã‚’ç†è§£ã™ã‚‹ã®ã«æ‰‹é–“å–ã£ãŸã‘ã©ã€‚ã¾ãšã¯foo.tを書ã„ã¦ã€å¾ã€…ã«factor outã™ã‚‹ã®ãŒã„ã„。書ã‘ã°æ›¸ãã»ã©ã”ã¡ã‚ƒã”ã¡ã‚ƒã—ã¦ã„ãã®ãŒTest::Moreã€é€†ã«ãƒ†ã‚¹ãƒˆãŒã‚レイã«ãªã£ã¦ã„ãã®ãŒTest::Base。ãã‚Œã«Test::Builderã¯ã€ä½¿ã„å‹æ‰‹ãŒã„ã„ã¨ã¯ã‚ã¾ã‚Šè¨€ãˆãªã„ã—。 package Test::DNS; use strict; use warnings; use Test::Base -Base; use Net::DNS; our $res = Net::DNS::Resolver-
unwind-protect: Test::Base ã® XXX ã‚’ Data::Dumper フォーマットã«ã™ã‚‹
{{#tags}}- {{label}}
{{/tags}}