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   38947 use strict; use warnings;
  3     3   6  
  3         109  
  3         13  
  3         6  
  3         176  
2             package lexicals;
3             our $VERSION = '0.33';
4              
5 3     3   1481 use PadWalker;
  3         1884  
  3         172  
6              
7 3     3   19 use base 'Exporter';
  3         5  
  3         730  
8             our @EXPORT = qw(lexicals);
9              
10             sub lexicals {
11 4     4 0 66 my $hash = PadWalker::peek_my(1);
12             return +{
13 24         23 map {
14 4         21 my $v = $hash->{$_};
15 24 100       66 $v = $$v if ref($v) =~ m'^(SCALAR|REF)$';
16 24         33 s/^[\$\@\%\*]//;
17 24         47 ($_, $v);
18             } reverse sort keys %$hash
19             };
20             }
21              
22             1;