File Coverage

blib/lib/lexical/underscore.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	30	32	93.7

package lexical::underscore;

use 5.008;
use strict;
use warnings;

BEGIN {
	$lexical::underscore::AUTHORITY = 'cpan:TOBYINK';
	$lexical::underscore::VERSION   = '0.002';
}

use if $] >= 5.009, PadWalker => qw( peek_my );
BEGIN {
	*peek_my = sub { +{} } unless __PACKAGE__->can('peek_my');
}

sub lexical::underscore
{
	my $level = @_ ? shift : 0;
	my $lexicals = peek_my($level + 2);
	exists $lexicals->{'$_'} ? $lexicals->{'$_'} : \$_;
}

1;

__END__