given-when ã‚’ dispatcher ã¨ã—ã¦ã¤ã‹ã†å ´åˆã®æ³¨æ„äº‹é … - tokuhirom's blogã›ã£ã‹ã given-when 構文をã¤ã‹ãˆã‚‹ã®ã ã‹ã‚‰ã€ä»¥ä¸‹ã®ã‚ˆã†ã« Dispatcher を書ã‘ã°ã„ã„ã®ã§ã¯ãªã„ã‹ã€ã¨ã„ã†è©±ãŒã‚ã£ãŸã®ã§å®Ÿéš›ã¤ã‹ã£ã¦ã¿ã¦ã„ãŸã®ã ãŒã€ã“ã®ã‚ˆã†ãªæ›¸ãæ–¹ã¯éžå¸¸ã«ä½Žé€Ÿã§ã‚ã‚‹ã“ã¨ãŒã‚ã‹ã£ãŸ(too slow)。 use 5.010; sub dispatch { my ($class, $c) = @_; given ([$c->request->method, $c->request->path_info]) { when (['GET', '/']) { return call("Root", 'index'); } ... } } 以下ã®ã‚ˆã†ãªãƒ™ãƒ³ãƒãƒžãƒ¼ã‚¯ã‚¹ã‚¯ãƒªãƒ—トをã†ã”ã‹ã™ã¨ 25å€é…ã„。 use strict; use warnings; use Benchmark qw/:all/; use 5.010; my $method = "GET"; my
{{#tags}}- {{label}}
{{/tags}}