File Coverage

blib/lib/Acme/StringFormat.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Acme::StringFormat;
2              
3 5     5   288124 use 5.010;
  5         18  
  5         192  
4              
5 5     5   28 use strict;
  5         16  
  5         169  
6 5     5   27 use XSLoader;
  5         12  
  5         631  
7              
8             our $VERSION = '0.04';
9              
10             XSLoader::load(__PACKAGE__, $VERSION);
11              
12             sub import{
13 11     11   185 $^H{(__PACKAGE__)} = _enter();
14              
15 11         6990 return;
16             }
17             sub unimport{
18 2     2   158 delete $^H{(__PACKAGE__)};
19              
20 2         248 return;
21             }
22              
23             1;
24             __END__