File Coverage

blib/lib/Data/YUID.pm

Criterion	Covered	Total	%
statement	12	24	50.0
branch	0	2	0.0
condition	0	2	0.0
subroutine	4	9	44.4
pod	1	4	25.0
total	17	41	41.4

# $Id$

package Data::YUID;
use strict;
use warnings;
use Data::YUID::Generator;

use 5.006.001;
our $VERSION = '0.06';

sub debug_id {
    my $class = shift;
    my $id = shift;
    return "timestamp:~ serial:~ host:~" unless defined $id;
    my $f = shift || "0x\%x";
    return sprintf "timestamp:$f serial:$f host:$f", $class->_id_parts($id);
}

sub _id_parts {
    Data::YUID::Generator->decompose($_[1]);
}

sub timestamp {
    my @parts = shift->_id_parts(@_);
    return $parts[0];
}

sub serial {
    my @parts = shift->_id_parts(@_);
    return $parts[1];
}
sub host {
    my @parts = shift->_id_parts(@_);
    return $parts[2];
}

1;
__END__