/usr/local/CPAN/Data-LUID/Data/LUID/Generator/TUID.pm

• package Data::LUID::Generator::TUID
  • next
• EOF

package Data::LUID::Generator::TUID;

use strict;
use warnings;

use Moose;
use Data::LUID::Carp;

use Data::TUID;

has length => qw/is ro isa Int required 1/, default => 6;

sub next {
    my $self = shift;
    return tuid length => $self->length;
}

1;