1 package Devel::REPL::Plugin::Timing;
3 use Devel::REPL::Plugin;
4 use Time::HiRes 'time';
5 use namespace::clean -except => [ 'meta' ];
9 my ($self, $line) = @_;
15 @ret = $self->$orig($line);
18 $ret[0] = $self->$orig($line);
21 $self->print("Took " . (time - $start) . " seconds.\n");
31 Devel::REPL::Plugin::Timing - display execution times
35 Shawn M Moore, C<< <sartak at gmail dot com> >>