Permalink
Fetching contributors…
Cannot retrieve contributors at this time
38 lines (26 sloc) 561 Bytes
use strict;
use warnings;
use Params::Validate qw(validate);
use Test::More;
{
package Overloaded;
use overload 'bool' => sub {0};
sub new { bless {} }
sub foo {1}
}
my $ovl = Overloaded->new;
{
eval {
my @p = ( object => $ovl );
validate( @p, { object => { isa => 'Overloaded' } } );
};
is( $@, q{}, 'overloaded object->isa' );
}
{
eval {
my @p = ( object => $ovl );
validate( @p, { object => { can => 'foo' } } );
};
is( $@, q{}, 'overloaded object->foo' );
}
done_testing();