File Coverage

blib/lib/Sort/Key/OID.pm
Criterion Covered Total %
statement 24 25 96.0
branch n/a
condition n/a
subroutine 8 9 88.8
pod 0 1 0.0
total 32 35 91.4


line stmt bran cond sub pod time code
1             package Sort::Key::OID;
2              
3 1     1   35451 use strict;
  1         3  
  1         36  
4 1     1   5 use warnings;
  1         2  
  1         72  
5              
6             BEGIN {
7 1     1   2 our $VERSION = '0.05';
8              
9 1         5 require XSLoader;
10 1         871 XSLoader::load('Sort::Key::OID', $VERSION);
11             }
12              
13             require Exporter;
14              
15             our @ISA = qw(Exporter);
16             our @EXPORT_OK = qw( oidkeysort
17             oidkeysort_inplace
18             roidkeysort
19             roidkeysort_inplace
20             oidsort
21             oidsort_inplace
22             roidsort
23             roidsort_inplace
24             encode_oid
25             encode_oid_hex);
26              
27             sub encode_oid_hex {
28 0     0 0   join " ", map sprintf("%02x", ord($_)), split //, encode_oid(@_);
29             }
30              
31 1     1   945 use Sort::Key::Register oid => \&encode_oid, 'str';
  1         5204  
  1         8  
32              
33 1     1   968 use Sort::Key::Maker oidkeysort => 'oid';
  1         369  
  1         6  
34 1     1   518 use Sort::Key::Maker roidkeysort => '-oid';
  1         3  
  1         3  
35 1     1   477 use Sort::Key::Maker oidsort => \&encode_oid, 'str';
  1         11  
  1         7  
36 1     1   182 use Sort::Key::Maker roidsort => \&encode_oid, '-str';
  1         2  
  1         6  
37              
38             1;
39              
40             __END__