File Coverage

blib/lib/Attribute/Profiled.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	2	2	100.0
condition			n/a
subroutine	12	12	100.0
pod	0	1	0.0
total	48	49	97.9

package Attribute::Profiled;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.03';

use Attribute::Handlers;
use Hook::LexWrap;

our $_Profiler;

sub UNIVERSAL::Profiled : ATTR(CODE) {
    my($package, $symbol, $referent, $attr, $data, $phase) = @_;
    my $meth = *{$symbol}{NAME};
    no warnings 'redefine';

    wrap $symbol,
	pre  => sub {
	    unless ($_Profiler) {
		$_Profiler = Benchmark::Timer::ReportOnDestroy->new;
	    }
	    $_Profiler->start("$package\::$meth");
	},
	post => sub {
	    $_Profiler->stop("$package\::$meth");
	};
}

package Benchmark::Timer::ReportOnDestroy;
use base qw(Benchmark::Timer);

sub DESTROY {
    my $self = shift;
    $self->report;
}


1;
__END__