File Coverage

blib/lib/Symbol/Extract.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Symbol::Extract;
2 1     1   24267 use strict;
  1         2  
  1         37  
3 1     1   5 use warnings;
  1         3  
  1         40  
4              
5             our $VERSION = '0.000001';
6              
7 1     1   602 use Symbol::Methods;
  1         3  
  1         96  
8              
9             sub import {
10 1     1   9 my $class = shift;
11 1         3 my $package = caller;
12              
13 1         6 while (@_) {
14 2         4 my $sym = shift;
15 2         3 my $dest = shift;
16 2         10 $$dest = $package->symbol::delete($sym);
17             }
18             }
19              
20             1;
21              
22             __END__