File Coverage

lib/Package/Stash.pm
Criterion Covered Total %
statement 28 28 100.0
branch 3 4 75.0
condition 4 6 66.6
subroutine 10 10 100.0
pod n/a
total 45 48 93.7


line stmt bran cond sub pod time code
1             package Package::Stash; # git description: 5468b00
2 28     28   1433245 use strict;
  28     2   248  
  28         789  
  2         2121  
  2         4  
  2         40  
3 28     28   138 use warnings;
  28     2   46  
  28         666  
  2         9  
  2         4  
  2         41  
4 28     28   556 use 5.008001;
  28     2   88  
  2         28  
  2         8  
5             # ABSTRACT: routines for manipulating stashes
6              
7             our $VERSION = '0.38';
8             our $IMPLEMENTATION;
9              
10 28     28   11412 use Module::Implementation 0.06;
  28     2   110770  
  28         2620  
  2         35  
  2         27  
  2         220  
11              
12             BEGIN {
13             local $ENV{PACKAGE_STASH_IMPLEMENTATION} = $IMPLEMENTATION
14 28 100 66 28   435 if ( $IMPLEMENTATION and not $ENV{PACKAGE_STASH_IMPLEMENTATION} );
  2 50 66 2   15  
15              
16 28         179 Module::Implementation::build_loader_sub(
  2         11  
17             implementations => [ 'XS', 'PP' ],
18             symbols => [qw(
19             new
20             name
21             namespace
22             add_symbol
23             remove_glob
24             has_symbol
25             get_symbol
26             get_or_add_symbol
27             remove_symbol
28             list_all_symbols
29             get_all_symbols
30             )],
31             )->();
32 26         5631 $IMPLEMENTATION = Module::Implementation::implementation_for(__PACKAGE__);
  2         359  
33             }
34              
35              
36             1;
37              
38             __END__