File Coverage

blib/lib/lib/disallow.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::disallow;
2              
3             our $DATE = '2016-08-23'; # DATE
4             our $VERSION = '0.26'; # VERSION
5              
6 1     1   32120 use strict;
  1         1  
  1         23  
7 1     1   3 use warnings;
  1         1  
  1         70  
8              
9             require lib::filter;
10              
11             sub import {
12 0     0     my $pkg = shift;
13              
14 0           lib::filter->import(disallow=>join(';',@_));
15             }
16              
17             sub unimport {
18 0     0     lib::filter->unimport;
19             }
20              
21             1;
22             # ABSTRACT: Disallow a list of modules from being locateable/loadable
23              
24             __END__