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

package Horus;

use 5.008003;
use strict;
use warnings;

our $VERSION = '0.07';

use Exporter 'import';
our @EXPORT_OK = qw(
    uuid_v1 uuid_v2 uuid_v3 uuid_v4 uuid_v5
    uuid_v6 uuid_v7 uuid_v8 uuid_nil uuid_max
    uuid_v4_bulk

    uuid_parse uuid_validate uuid_version uuid_variant
    uuid_cmp uuid_convert uuid_time uuid_is_nil uuid_is_max

    UUID_FMT_STR UUID_FMT_HEX UUID_FMT_BRACES UUID_FMT_URN
    UUID_FMT_BASE64 UUID_FMT_BASE32 UUID_FMT_CROCKFORD
    UUID_FMT_BINARY UUID_FMT_UPPER_STR UUID_FMT_UPPER_HEX

    UUID_NS_DNS UUID_NS_URL UUID_NS_OID UUID_NS_X500
);

our %EXPORT_TAGS = (
    all       => \@EXPORT_OK,
    generate  => [qw(uuid_v1 uuid_v2 uuid_v3 uuid_v4 uuid_v5
                     uuid_v6 uuid_v7 uuid_v8 uuid_nil uuid_max uuid_v4_bulk)],
    util      => [qw(uuid_parse uuid_validate uuid_version uuid_variant
                     uuid_cmp uuid_convert uuid_time uuid_is_nil uuid_is_max)],
    format    => [qw(UUID_FMT_STR UUID_FMT_HEX UUID_FMT_BRACES UUID_FMT_URN
                     UUID_FMT_BASE64 UUID_FMT_BASE32 UUID_FMT_CROCKFORD
                     UUID_FMT_BINARY UUID_FMT_UPPER_STR UUID_FMT_UPPER_HEX)],
    namespace => [qw(UUID_NS_DNS UUID_NS_URL UUID_NS_OID UUID_NS_X500)],
);

require XSLoader;
XSLoader::load('Horus', $VERSION);

sub include_dir {
    my $dir = $INC{'Horus.pm'};
    $dir =~ s{Horus\.pm$}{Horus/include};
    return $dir;
}

1;

__END__