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   44235 use strict; use warnings;
  3     3   8  
  3         110  
  3         13  
  3         3  
  3         132  
2             package lexicals;
3             our $VERSION = '0.34';
4              
5 3     3   1407 use PadWalker;
  3         3780  
  3         200  
6              
7 3     3   21 use base 'Exporter';
  3         5  
  3         875  
8             our @EXPORT = qw(lexicals);
9              
10             sub lexicals {
11 4     4 0 84 my $hash = PadWalker::peek_my(1);
12             return +{
13 24         30 map {
14 4         27 my $v = $hash->{$_};
15 24 100       89 $v = $$v if ref($v) =~ m'^(SCALAR|REF)$';
16 24         53 s/^[\$\@\%\*]//;
17 24         70 ($_, $v);
18             } reverse sort keys %$hash
19             };
20             }
21              
22             1;