package MooseX::AttributeHelpers::MethodProvider::Hash;
use Moose::Role;
-our $VERSION = '0.17';
+our $VERSION = '0.22';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
while ( @kvp ) {
my ( $key, $value ) = ( shift(@kvp), shift(@kvp) );
($container_type_constraint->check($value))
- || confess "Value " . ($value||'undef') . " did not pass container type constraint";
+ || confess "Value " . ($value||'undef') . " did not pass container type constraint '$container_type_constraint'";
push @keys, $key;
push @values, $value;
}
}
elsif (@_ == 2) { # writer
($container_type_constraint->check($_[1]))
- || confess "Value " . ($_[1]||'undef') . " did not pass container type constraint";
+ || confess "Value " . ($_[1]||'undef') . " did not pass container type constraint '$container_type_constraint'";
$reader->($self)->{$_[0]} = $_[1];
}
else {
=head1 COPYRIGHT AND LICENSE
-Copyright 2007-2008 by Infinity Interactive, Inc.
+Copyright 2007-2009 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>