Perl5.10 以å¾ã®ã¿å¯¾å¿ã ãã©ã5.10 以å¾ãªããããªç°¡åãªã®ã§ããã®ããã package MojaMoja; use strict; use warnings; use parent 'Exporter'; use 5.01000; our $VERSION = '0.01'; use Plack::Request; use Plack::Response; our @EXPORT = qw/get put post Delete zigorou res/; my @ROUTE; BEGIN { no strict 'refs'; for my $meth (qw/get put post Delete/) { my $method = uc $meth; *{$meth} = sub ($$) { my $pattern = $_[0]; push @ROUTE, { reg
{{#tags}}- {{label}}
{{/tags}}