ok this is an overly simplistic example of what I'm trying to do but
in the end I was expecting that default would trigger coerce, though
it looks like it does not. Should it? or am I expecting something to
work in a completely stupid way (it's happened before)?
#!/usr/bin/perl;
use strict;
use warnings;
use Test::Most qw{no_plan bail};
BEGIN {
package My::Test;
use Moose;
use Scalar::Util qw{looks_like_number};
use Moose::Util::TypeConstraints;
subtype 'split_types' => as 'HashRef[ArrayRef]';
coerce 'split_types'
=> from 'ArrayRef'
=> via { _split_em(@$_) };
sub _split_em {
return { nums => [ grep{ looks_like_number($_) } @_ ],
strs => [ grep{!looks_like_number($_) } @_ ],
};
}
has data => (
is => 'rw',
isa => 'split_types',
coerce => 1,
default => sub{ () },
);
} #END BEGIN
eq_or_diff(
My::Test::_split_em(1,2,3),
{ nums => [1,2,3],
strs => [],
},
);
eq_or_diff(
My::Test::_split_em(qw{cat dog}),
{ nums => [],
strs => [qw{cat dog}],
},
);
eq_or_diff(
My::Test::_split_em(1,2,3,qw{cat dog}),
{ nums => [1,2,3],
strs => [qw{cat dog}],
},
);
foreach my $in ( [1,2,3], [qw{cat dog}], [qw{1 2 3 cat dog}] ) {
ok( my $t = My::Test->new( data => [1,2,3] ) );
}
# THIS TEST FAILS!
lives_ok { My::Test->new }, q{~shouldn't~ this pass?};
--
benh~
http://three.sentenc.es/
