File Coverage

blib/lib/builtins.pm
Criterion Covered Total %
statement 16 18 88.8
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 26 88.4


line stmt bran cond sub pod time code
1             package builtins;
2              
3 5     5   573542 use 5.036;
  5         21  
4 5     5   39 use warnings;
  5         28  
  5         480  
5              
6             our $VERSION = '0.000008';
7              
8             sub import {
9 5     5   34 no warnings 'shadow';
  5         9  
  5         325  
10 3     3   100 warnings->unimport('experimental::builtin');
11 5     5   29 no warnings 'shadow';
  5         22  
  5         1338  
12 3         53 builtin->import( grep { not /^(?:un)?import$/ } keys %builtin:: );
  66         350  
13             }
14              
15             sub unimport {
16 1     1   36 warnings->import('experimental::builtin');
17 1 50       39 if ($builtin::{unimport}) {
18 0           builtin->unimport( grep { not /^(?:un)?import$/ } keys %builtin:: );
  0            
19             }
20             }
21              
22              
23             1; # Magic true value required at end of module
24             __END__