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 1     1   108946 use strict;
  1         76  
  1         42  
4 1     1   7 use warnings;
  1         2  
  1         150  
5              
6             require lib::filter;
7              
8             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
9             our $DATE = '2021-08-29'; # DATE
10             our $DIST = 'lib-filter'; # DIST
11             our $VERSION = '0.281'; # VERSION
12              
13             sub import {
14 0     0     my $pkg = shift;
15              
16 0           lib::filter->import(allow_core=>0, allow_noncore=>0, allow=>join(';',@_));
17             }
18              
19             sub unimport {
20 0     0     lib::filter->unimport;
21             }
22              
23             1;
24             # ABSTRACT: Only allow a list of modules to be locateable/loadable
25              
26             __END__