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.38-23-gce01289
2 29     29   1395787 use strict;
  29     2   239  
  29         769  
  2         1869  
  2         4  
  2         36  
3 29     29   134 use warnings;
  29     2   46  
  29         653  
  2         9  
  2         6  
  2         40  
4 29     29   528 use 5.008001;
  29     2   86  
  2         26  
  2         7  
5             # ABSTRACT: Routines for manipulating stashes
6              
7             our $VERSION = '0.39';
8             our $IMPLEMENTATION;
9              
10 29     29   10617 use Module::Implementation 0.06;
  29     2   102919  
  29         2418  
  2         33  
  2         27  
  2         199  
11              
12             BEGIN {
13             local $ENV{PACKAGE_STASH_IMPLEMENTATION} = $IMPLEMENTATION
14 29 100 66 29   421 if ( $IMPLEMENTATION and not $ENV{PACKAGE_STASH_IMPLEMENTATION} );
  2 50 66 2   15  
15              
16 29         157 Module::Implementation::build_loader_sub(
  2         57  
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         6655 $IMPLEMENTATION = Module::Implementation::implementation_for(__PACKAGE__);
  2         415  
33             }
34              
35             __END__