File Coverage

blib/lib/Horus.pm
Criterion Covered Total %
statement 11 14 78.5
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 15 20 75.0


line stmt bran cond sub pod time code
1             package Horus;
2              
3 19     19   1939073 use 5.008003;
  19         65  
4 19     19   93 use strict;
  19         31  
  19         628  
5 19     19   92 use warnings;
  19         57  
  19         1471  
6              
7             our $VERSION = '0.02';
8              
9 19     19   98 use Exporter 'import';
  19         43  
  19         5066  
10             our @EXPORT_OK = qw(
11             uuid_v1 uuid_v2 uuid_v3 uuid_v4 uuid_v5
12             uuid_v6 uuid_v7 uuid_v8 uuid_nil uuid_max
13             uuid_v4_bulk
14              
15             uuid_parse uuid_validate uuid_version uuid_variant
16             uuid_cmp uuid_convert uuid_time uuid_is_nil uuid_is_max
17              
18             UUID_FMT_STR UUID_FMT_HEX UUID_FMT_BRACES UUID_FMT_URN
19             UUID_FMT_BASE64 UUID_FMT_BASE32 UUID_FMT_CROCKFORD
20             UUID_FMT_BINARY UUID_FMT_UPPER_STR UUID_FMT_UPPER_HEX
21              
22             UUID_NS_DNS UUID_NS_URL UUID_NS_OID UUID_NS_X500
23             );
24              
25             our %EXPORT_TAGS = (
26             all => \@EXPORT_OK,
27             generate => [qw(uuid_v1 uuid_v2 uuid_v3 uuid_v4 uuid_v5
28             uuid_v6 uuid_v7 uuid_v8 uuid_nil uuid_max uuid_v4_bulk)],
29             util => [qw(uuid_parse uuid_validate uuid_version uuid_variant
30             uuid_cmp uuid_convert uuid_time uuid_is_nil uuid_is_max)],
31             format => [qw(UUID_FMT_STR UUID_FMT_HEX UUID_FMT_BRACES UUID_FMT_URN
32             UUID_FMT_BASE64 UUID_FMT_BASE32 UUID_FMT_CROCKFORD
33             UUID_FMT_BINARY UUID_FMT_UPPER_STR UUID_FMT_UPPER_HEX)],
34             namespace => [qw(UUID_NS_DNS UUID_NS_URL UUID_NS_OID UUID_NS_X500)],
35             );
36              
37             require XSLoader;
38             XSLoader::load('Horus', $VERSION);
39              
40             sub include_dir {
41 0     0 0   my $dir = $INC{'Horus.pm'};
42 0           $dir =~ s{Horus\.pm$}{Horus/include};
43 0           return $dir;
44             }
45              
46             1;
47              
48             __END__