File Coverage

blib/lib/PadWalker.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package PadWalker;
2              
3 9     9   3817 use strict;
  9         62  
  9         427  
4 9     9   56 use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
  9         17  
  9         1611  
5              
6             require Exporter;
7             require DynaLoader;
8              
9             require 5.008;
10              
11             @ISA = qw(Exporter DynaLoader);
12             @EXPORT_OK = qw(peek_my peek_our closed_over peek_sub var_name set_closed_over);
13             %EXPORT_TAGS = (all => \@EXPORT_OK);
14              
15             $VERSION = '2.4';
16              
17             bootstrap PadWalker $VERSION;
18              
19             sub peek_my;
20             sub peek_our;
21             sub closed_over;
22             sub peek_sub;
23             sub var_name;
24              
25             1;
26             __END__