File Coverage

blib/lib/Etcd/Node.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Etcd::Node;
$Etcd::Node::VERSION = '0.004';
use namespace::autoclean;

use Moo;
use Type::Tiny;
use Types::Standard qw(Int Str Bool ArrayRef);
use Type::Utils qw(class_type);

# http://www.pelagodesign.com/blog/2009/05/20/iso-8601-date-validation-that-doesnt-suck/
my $ISO8601 = do {
    my $iso8601_re = qr{^([\+-]?\d{4}(?!\d{2}\b))((-?)((0[1-9]|1[0-2])(\3([12]\d|0[1-9]|3[01]))?|W([0-4]\d|5[0-2])(-?[1-7])?|(00[1-9]|0[1-9]\d|[12]\d{2}|3([0-5]\d|6[1-6])))([T\s]((([01]\d|2[0-3])((:?)[0-5]\d)?|24\:?00)([\.,]\d+(?!:))?)?(\17[0-5]\d([\.,]\d+)?)?([zZ]|([\+-])([01]\d|2[0-3]):?([0-5]\d)?)?)?)?$};
    Type::Tiny->new(
        name       => "ISO8601",
        constraint => sub { m/$iso8601_re/ },
        inlined    => sub { "$_[1] =~ m/$iso8601_re/" },
    );
};

has key            => ( is => 'ro', isa => Str, required => 1 );
has value          => ( is => 'ro', isa => Str );
has created_index  => ( is => 'ro', isa => Int, init_arg => 'createdIndex'  );
has modified_index => ( is => 'ro', isa => Int, init_arg => 'modifiedIndex' );
has ttl            => ( is => 'ro', isa => Int );
has expiration     => ( is => 'ro', isa => $ISO8601 );
has dir            => ( is => 'ro', isa => Bool, coerce => sub { !! $_[0] } );

has nodes => (
    is => 'ro',
    isa => ArrayRef[class_type('Etcd::Node')],
    coerce => sub { ref $_[0] eq "ARRAY" ? [ map { Etcd::Node->new(%$_) } @{$_[0]} ] : $_[0] }
);

1;

__END__