X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FTiming.pm;h=1d157175e798a5d7cf5557506bc339343e6ef099;hp=0b919ccfc7386100100c26dd9c13edff26406b64;hb=5ac988901b5ccbf3b31cdf980534d0c9631d9e4a;hpb=30b459d4fbeb6f2406a3013c7cbcc46a6d0ccf0d diff --git a/lib/Devel/REPL/Plugin/Timing.pm b/lib/Devel/REPL/Plugin/Timing.pm index 0b919cc..1d15717 100644 --- a/lib/Devel/REPL/Plugin/Timing.pm +++ b/lib/Devel/REPL/Plugin/Timing.pm @@ -1,8 +1,13 @@ +use strict; +use warnings; package Devel::REPL::Plugin::Timing; +# ABSTRACT: Display execution times -use Moose::Role; +our $VERSION = '1.003028'; + +use Devel::REPL::Plugin; use Time::HiRes 'time'; -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; around 'eval' => sub { my $orig = shift; @@ -26,13 +31,24 @@ around 'eval' => sub { __END__ -=head1 NAME +=pod + +=head1 SYNOPSIS + + # in your re.pl file: + use Devel::REPL; + my $repl = Devel::REPL->new; + $repl->load_plugin('Timing'); -Devel::REPL::Plugin::Timing - display execution times + # after you run re.pl: + $ sum map $_*100, 1..100000; + Took 0.0830280780792236 seconds. + 500005000000 + + $ =head1 AUTHOR Shawn M Moore, C<< >> =cut -