File Coverage

blib/lib/Aspect/Library/Profiler.pm

Criterion	Covered	Total	%
statement	23	28	82.1
branch			n/a
condition			n/a
subroutine	8	10	80.0
pod	0	1	0.0
total	31	39	79.4

package Aspect::Library::Profiler;

use 5.008002;
use strict;
use warnings;
use Benchmark::Timer 0.7101 ();
use Aspect::Modular    1.00 ();
use Aspect::Advice::Around  ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '1.00';
	@ISA     = 'Aspect::Modular';
}

my $TIMER = Benchmark::Timer->new;

END {
	print scalar $TIMER->reports;
}

sub get_advice {
	Aspect::Advice::Around->new(
		lexical  => $_[0]->lexical,
		pointcut => $_[1],
		code     => sub {
			my $name = $_->sub_name;
			$TIMER->start($name);
			$_->proceed;
			$TIMER->stop($name);
		},
	);
}

1;

__END__