B-CompilerPhase-Hook
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/lib/Timer.pm view on Meta::CPAN
package Timer;
use strict;
use warnings;
use Time::HiRes qw[ gettimeofday tv_interval ];
use B::CompilerPhase::Hook qw[ enqueue_UNITCHECK ];
our $TIME = 0;
sub import {
$TIME = 0;
my $start = [ gettimeofday ];
#warn sprintf "Starting at %d:%d\n" => @$start;
sleep(1);
enqueue_UNITCHECK {
$TIME = tv_interval( $start, [ gettimeofday ] );
#warn "Finished after $TIME\n";
};
}
1;
__END__
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.653 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )