File Coverage

blib/lib/lib/allow.pm
Criterion Covered Total %
statement 6 9 66.6
branch n/a
condition n/a
subroutine 2 4 50.0
pod n/a
total 8 13 61.5


line stmt bran cond sub pod time code
1             package lib::allow;
2              
3             our $DATE = '2016-08-24'; # DATE
4             our $VERSION = '0.27'; # VERSION
5              
6 1     1   37744 use strict;
  1         2  
  1         26  
7 1     1   3 use warnings;
  1         1  
  1         78  
8              
9             require lib::filter;
10              
11             sub import {
12 0     0     my $pkg = shift;
13              
14 0           lib::filter->import(allow_core=>0, allow_noncore=>0, allow=>join(';',@_));
15             }
16              
17             sub unimport {
18 0     0     lib::filter->unimport;
19             }
20              
21             1;
22             # ABSTRACT: Only allow a list of modules to be locateable/loadable
23              
24             __END__