From: John Napiorkowski Date: Mon, 30 Mar 2009 14:30:26 +0000 (+0000) Subject: removed useless comments (just distract you from the code) X-Git-Tag: 0.01~40 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=58e765dac420eb8be6cd62541d987551b28e8cc5;p=gitmo%2FMooseX-Dependent.git removed useless comments (just distract you from the code) --- diff --git a/t/02-depending.t b/t/02-depending.t index 245e246..99a5b01 100644 --- a/t/02-depending.t +++ b/t/02-depending.t @@ -44,7 +44,7 @@ use Test::More tests=>22; { Int, sub { my ($dependent_int, $constraining_arrayref) = @_; - (grep { $_ == $dependent_int} @$constraining_arrayref) ? 0:1 + (grep { $_ == $dependent_int} @$constraining_arrayref) ? undef:1 }, ArrayRef[Int], ]; @@ -61,8 +61,12 @@ use Test::More tests=>22; { subtype UniqueInt2, as depending { my ($dependent_int, $constraining_arrayref) = @_; - (grep { $_ == $dependent_int} @$constraining_arrayref) ? 0:1 - } Int, ArrayRef[Int]; + (grep { $_ == $dependent_int} @$constraining_arrayref) ? undef:1 + } Int, ArrayRef[Int], + where { + use Data::Dump qw/dump/; + warn dump @_; + } isa_ok UniqueInt2, 'MooseX::Meta::TypeConstraint::Dependent'; ok !UniqueInt2->check(['a',[1,2,3]]), '"a" not an Int';