File Coverage

blib/lib/NetAddr/IP/Util_IS.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 2 2 100.0
total 10 10 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2             #
3             # DO NOT ALTER THIS FILE
4             # IT IS WRITTEN BY Makefile.PL
5             # EDIT THAT INSTEAD
6             #
7             package NetAddr::IP::Util_IS;
8 32     32   120 use vars qw($VERSION);
  32         35  
  32         2162  
9             $VERSION = 1.00;
10              
11              
12             sub pure {
13 32     32 1 2390 return 0;
14             }
15             sub not_pure {
16 32     32 1 207 return 1;
17             }
18             1;
19             __END__