File Coverage

blib/lib/lexicals.pm
Criterion Covered Total %
statement 18 18 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 25 26 96.1


line stmt bran cond sub pod time code
1 3     3   37087 use strict; use warnings;
  3     3   6  
  3         125  
  3         15  
  3         4  
  3         164  
2             package lexicals;
3             our $VERSION = '0.35';
4              
5 3     3   1260 use PadWalker;
  3         1901  
  3         161  
6              
7 3     3   16 use base 'Exporter';
  3         3  
  3         675  
8             our @EXPORT = qw(lexicals);
9              
10             sub lexicals {
11 4     4 0 69 my $hash = PadWalker::peek_my(1);
12             return +{
13 24         25 map {
14 4         23 my $v = $hash->{$_};
15 24 100       67 $v = $$v if ref($v) =~ m'^(SCALAR|REF)$';
16 24         35 s/^[\$\@\%\*]//;
17 24         49 ($_, $v);
18             } reverse sort keys %$hash
19             };
20             }
21              
22             1;