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   656 use strict;
  1         2  
  1         36  
3 1     1   9 use namespace::clean::xs ();
  1         2  
  1         86  
4              
5             BEGIN {
6 1     1   5 our $VERSION = $namespace::clean::xs::VERSION;
7              
8 1         4 $INC{'namespace/clean.pm'} = $INC{'namespace/clean/xs.pm'};
9              
10 1         4 for my $glob (qw/import unimport clean_subroutines get_functions get_class_store/) {
11 1     1   8 no strict 'refs';
  1         3  
  1         104  
12 5         11 *{"namespace::clean::$glob"} = *{"namespace::clean::xs::$glob"}{CODE};
  5         27  
  5         18  
13             }
14              
15 1         31 $namespace::clean::VERSION = 0.26; # feature set compability
16             }
17              
18             1;
19             __END__