use strict;
use warnings;
-our $VERSION = '0.01';
+our $VERSION = '0.02';
our $AUTHORITY = 'CPAN:JROCKWAY';
use MooseX::Types -declare => ['UUID'];
subtype UUID,
as Str, where { _validate_uuid($_) };
-coerce UUID
+coerce UUID,
# i've never seen lowercase UUIDs, but someone's bound to try it
from Str, via { uc };
package Class;
use Moose;
use MooseX::Types::UUID qw(UUID);
-
+
has 'uuid' => ( is => 'ro', isa => UUID );
package main;