File Coverage

blib/lib/namespace/clean/xs/all.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package namespace::clean::xs::all;
2 1     1   448 use strict;
  1         1  
  1         20  
3 1     1   3 use namespace::clean::xs ();
  1         1  
  1         42  
4              
5             BEGIN {
6 1     1   1 our $VERSION = $namespace::clean::xs::VERSION;
7              
8 1         2 $INC{'namespace/clean.pm'} = $INC{'namespace/clean/xs.pm'};
9              
10 1         2 for my $glob (qw/import unimport clean_subroutines get_functions get_class_store/) {
11 1     1   3 no strict 'refs';
  1         1  
  1         54  
12 5         2 *{"namespace::clean::$glob"} = *{"namespace::clean::xs::$glob"}{CODE};
  5         13  
  5         9  
13             }
14              
15 1         14 $namespace::clean::VERSION = 0.26; # latest as of times of writing
16             }
17              
18             1;
19             __END__