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-24'; # DATE
4             our $VERSION = '0.27'; # VERSION
5              
6 1     1   33578 use strict;
  1         1  
  1         22  
7 1     1   4 use warnings;
  1         1  
  1         71  
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__