use strict;
use warnings;
use Test::More tests => 24;
-use Test::Exception;
+use t::Exception;
do {
package Person;
has error => (
handles => "string",
);
- } qr/You must pass a HASH or ARRAY to handles/;
+ } qr/Unable to canonicalize the 'handles' option with string/;
::throws_ok {
has error2 => (
handles => \"ref_to_string",
);
- } qr/You must pass a HASH or ARRAY to handles/;
+ } qr/Unable to canonicalize the 'handles' option with SCALAR\(\w+\)/;
::throws_ok {
has error3 => (
handles => qr/regex/,
);
- } qr/You must pass a HASH or ARRAY to handles/;
+ } qr/Unable to canonicalize the 'handles' option with \(\?-xism:regex\)/;
::throws_ok {
has error4 => (
handles => sub { "code" },
);
- } qr/You must pass a HASH or ARRAY to handles/;
+ } qr/Unable to canonicalize the 'handles' option with CODE\(\w+\)/;
};
can_ok(Class => qw(person has_person person_name person_age name age quid));
is_deeply(
$object->meta->get_attribute('me')->handles,
- { name => 'name', age => 'age' },
+ [ 'name', 'age' ],
"correct handles layout for 'me'",
);