File Coverage

blib/lib/Sub/Timekeeper.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	28	29	96.5

package Sub::Timekeeper;

use 5.008_001;

use strict;
use warnings;

require Exporter;
use Time::HiRes ();

our $VERSION = '0.01';

our @ISA = qw(Exporter);
our @EXPORT_OK = qw(timekeeper);
our %EXPORT_TAGS = (
    all => [ @EXPORT_OK ],
);

sub timekeeper {
    my $guard = Sub::Timekeeper::Guard->new(\$_[0]); shift;
    my $subref = shift;

    return $subref->(@_);
}

# utility class
{
    package # hide from pause
        Sub::Timekeeper::Guard;
    sub new {
        my ($klass, $elapsed) = @_;
        bless [ $elapsed, Time::HiRes::time ], $klass;
    }
    sub DESTROY {
        my $self = shift;
        ${$self->[0]} = Time::HiRes::time - $self->[1];
    }
}

1;
__END__