ç§çãªã¡ã¢ã§ãã around before, after, augment ã®æ±ç¨çãã¤ãå¼æ°ãæ»ãå¤ãå¤æ´åºæ¥ãã®ãaround before ã£ã½ã使ãå ´åã¯ã around 'run' => sub { my $orig = shift; my ($self, @args) = @_; ### process before run ### ããã«ãªããæ¸ã $orig->($self, @args); }; ã¿ããã«æ¸ããç¹å¾´çãªã®ã¯ç¬¬ä¸å¼æ°ã«å ã®CodeRefãå ¥ã£ã¦ãæããªãã§ãªãªã¸ãã«ãå¼ã³åºãéã«ã$orig->($self, @args) ã®ããã«æ¸ãã ã¾ã$origã®å¼ã³åºããæ示çã«æ¸ããã®ã§ãå½ç¶æ¸¡ãã¦ãå¼æ°ãæä½ããã°å ã®ã¡ã½ããå¼ã³åºãã«åæ ãããããæ»ãå¤ã«é¢ãã¦ãåãããã«æä½åºæ¥ããã¤ã¾ãã around 'calc' => sub { my $orig
{{#tags}}- {{label}}
{{/tags}}