File Coverage

blib/lib/Types/ULID.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	32	33	96.9

package Types::ULID;
$Types::ULID::VERSION = '0.003';
use v5.10;
use strict;
use warnings;

use Type::Library -base;
use Types::Standard qw(Undef);
use Types::Common::String qw(StrLength);
use Data::ULID;

use constant HAS_XS => eval { require Data::ULID::XS; 1; };

my $tr_alphabet = '0-9a-hjkmnp-tv-zA-HJKMNP-TV-Z';
my $ULID = Type::Tiny->new(
	name => 'ULID',
	parent => StrLength[26, 26],
	constraint => qq{ tr/$tr_alphabet// == 26 },
	inlined => sub {
		my $varname = pop;
		return (undef, qq{ ($varname =~ tr/$tr_alphabet//) == 26 });
	},

	coercion => [
		Undef, HAS_XS ? q{ Data::ULID::XS::ulid() } : q{ Data::ULID::ulid() },
	],
);

my $BinaryULID = Type::Tiny->new(
	name => 'BinaryULID',
	parent => StrLength[16, 16],

	coercion => [
		Undef, HAS_XS ? q{ Data::ULID::XS::binary_ulid() } : q{ Data::ULID::binary_ulid() },
	],
);

__PACKAGE__->add_type($ULID);
__PACKAGE__->add_type($BinaryULID);

__PACKAGE__->make_immutable;

__END__