view release on metacpan or  search on metacpan

lib/Attribute/Benchmark.pm  view on Meta::CPAN

our $VERSION   = '0.001';

my %cmp  = ();
my $iter = -3;
END { Benchmark::cmpthese($iter, \%cmp) if keys %cmp };

sub import
{
	shift;
	$iter = $_[0] if @_;
	strict->import;
	warnings->import(FATAL => 'all');
}

sub UNIVERSAL::Benchmark :ATTR()
{
	(my $name = $_[4] ? $_[4][0] : substr(*{$_[1]}, 1))
		=~ s/\Amain:://;
	$cmp{$name} = $_[2];
}