}
use MooseX::Types::Structured qw(Tuple Dict slurpy);
- use MooseX::Dependent::Types qw(Dependent);
+ use MooseX::Parameterizable::Types qw(Parameterizable);
use MooseX::Types::Moose qw(Int Str);
use Moose::Util::TypeConstraints;
ok subtype( Set, as "Set::Scalar"), 'Created Set subtype';
ok subtype( UniqueInt,
- as Dependent[Int, Set],
+ as Parameterizable[Int, Set],
where {
my ($int, $set) = @_;
return !$set->has($int);
- }), 'Created UniqueInt Dependent Type';
+ }), 'Created UniqueInt Parameterizable Type';
ok( (my $set_obj = Set::Scalar->new(1,2,3,4,5)), 'Create Set Object');
};
subtype RangedInt,
- as Dependent[Int, Range],
+ as Parameterizable[Int, Range],
where {
my ($value, $range) = @_;
return ($value >= $range->{min} &&
ok NameBetween18and35Age->check(['John',28]), 'Good NameBetween18and35Age';
ok !NameBetween18and35Age->check(['John','Napiorkowski']), 'Bad NameBetween18and35Age';
ok !NameBetween18and35Age->check(['John',99]), 'Bad NameBetween18and35Age';
-}
\ No newline at end of file
+}