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: v0.39-2-ga9a8cce
2 29     29   1296002 use strict;
  29     2   230  
  29         736  
  2         1868  
  2         4  
  2         31  
3 29     29   145 use warnings;
  29     2   57  
  29         638  
  2         8  
  2         2  
  2         34  
4 29     29   539 use 5.008001;
  29     2   81  
  2         23  
  2         5  
5             # ABSTRACT: Routines for manipulating stashes
6              
7             our $VERSION = '0.40';
8             our $IMPLEMENTATION;
9              
10 29     29   10209 use Module::Implementation 0.06;
  29     2   99338  
  29         2355  
  2         36  
  2         23  
  2         183  
11              
12             BEGIN {
13             local $ENV{PACKAGE_STASH_IMPLEMENTATION} = $IMPLEMENTATION
14 29 100 66 29   479 if ( $IMPLEMENTATION and not $ENV{PACKAGE_STASH_IMPLEMENTATION} );
  2 50 66 2   14  
15              
16 29         149 Module::Implementation::build_loader_sub(
  2         10  
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 27         6171 $IMPLEMENTATION = Module::Implementation::implementation_for(__PACKAGE__);
  2         300  
33             }
34              
35             __END__