File Coverage

blib/lib/Net/IP/Match/Trie.pm
Criterion Covered Total %
statement 12 14 85.7
branch 3 6 50.0
condition 1 3 33.3
subroutine 3 3 100.0
pod n/a
total 19 26 73.0


line stmt bran cond sub pod time code
1             # -*- mode: coding: utf-8; -*-
2             package Net::IP::Match::Trie;
3              
4 1     1   4 use strict;
  1         1  
  1         22  
5 1     1   3 use warnings;
  1         1  
  1         103  
6              
7             our $VERSION = '0.01_01';
8              
9             sub import {
10 1     1   1 my $class = shift;
11              
12 1 50       7 $ENV{NIMT_PP} = grep {$_ eq "PP"} @_ unless $ENV{NIMT_PP};
  0         0  
13              
14 1 50       2 unless ($ENV{NIMT_PP}) {
15 1         2 eval { require Net::IP::Match::Trie::XS; };
  1         311  
16             }
17 1 50 33     35 if ($@ || $ENV{NIMT_PP}) {
18 0           require Net::IP::Match::Trie::PP;
19             }
20             }
21              
22             1;
23             __END__