File Coverage

blib/lib/Sort/Key/IPv4.pm
Criterion Covered Total %
statement 39 39 100.0
branch n/a
condition n/a
subroutine 13 13 100.0
pod n/a
total 52 52 100.0


line stmt bran cond sub pod time code
1             package Sort::Key::IPv4;
2              
3 1     1   32891 use strict;
  1         2  
  1         34  
4 1     1   5 use warnings;
  1         2  
  1         65  
5              
6             BEGIN {
7 1     1   2 our $VERSION = '0.03';
8              
9 1         5 require XSLoader;
10 1         694 XSLoader::load('Sort::Key::IPv4', $VERSION);
11             }
12              
13             require Exporter;
14              
15             our @ISA = qw(Exporter);
16             our @EXPORT_OK = qw( ipv4keysort
17             ipv4keysort_inplace
18             ripv4keysort
19             ripv4keysort_inplace
20             ipv4sort
21             ipv4sort_inplace
22             ripv4sort
23             ripv4sort_inplace
24              
25             netipv4keysort
26             netipv4keysort_inplace
27             rnetipv4keysort
28             rnetipv4keysort_inplace
29             netipv4sort
30             netipv4sort_inplace
31             rnetipv4sort
32             rnetipv4sort_inplace
33              
34             pack_ipv4
35             pack_netipv4
36             ipv4_to_uv);
37              
38              
39 1     1   827 use Sort::Key::Register ipv4 => \&pack_ipv4, 'uint';
  1         4996  
  1         7  
40 1     1   90 use Sort::Key::Register netipv4 => \&pack_netipv4, 'uint', 'uint';
  1         3  
  1         5  
41              
42 1     1   1088 use Sort::Key::Maker ipv4keysort => 'ipv4';
  1         398  
  1         6  
43 1     1   621 use Sort::Key::Maker ripv4keysort => '-ipv4';
  1         2  
  1         6  
44 1     1   536 use Sort::Key::Maker ipv4sort => \&pack_ipv4, 'uint';
  1         2  
  1         6  
45 1     1   161 use Sort::Key::Maker ripv4sort => \&pack_ipv4, '-uint';
  1         2  
  1         5  
46              
47 1     1   160 use Sort::Key::Maker netipv4keysort => 'netipv4';
  1         2  
  1         5  
48 1     1   554 use Sort::Key::Maker rnetipv4keysort => '-netipv4';
  1         1  
  1         4  
49 1     1   674 use Sort::Key::Maker netipv4sort => \&pack_netipv4, 'uint', 'uint';
  1         2  
  1         5  
50 1     1   197 use Sort::Key::Maker netripv4sort => \&pack_netipv4, '-uint', '-uint';
  1         2  
  1         4  
51              
52             *ipv4_to_uv = \&pack_ipv4;
53              
54              
55             1;
56             __END__