ぜんぜん調べてないのでもうあるのかもしれないし、 なんかPerlの流儀に沿ってないかもしれないんですけれど、 PythonにあってPerlにないものっていえばってことで。 package MyApp::Util::Decorator; use strict; use warnings; use Sub::Decorator; use Time::HiRes qw/gettimeofday tv_interval/; use parent qw/Sub::Decorator/; sub stopwatch { my ($self, $sub, @args) = @_; my $begin = gettimeofday(); my @result = &$sub(@args); my $elapsed= tv_interval($begin, gettimeofday()); warn $se