43 lines
522 B
Perl
43 lines
522 B
Perl
use strict;
|
|
use warnings;
|
|
|
|
package Test::Deep::Obj;
|
|
|
|
use Test::Deep::Cmp;
|
|
use Scalar::Util;
|
|
|
|
sub init
|
|
{
|
|
my $self = shift;
|
|
|
|
my $val = shift;
|
|
$self->{val} = $val;
|
|
}
|
|
|
|
sub descend
|
|
{
|
|
my $self = shift;
|
|
my $got = shift;
|
|
|
|
return Scalar::Util::blessed($got)
|
|
&& $got->isa($self->{val});
|
|
}
|
|
|
|
sub diag_message
|
|
{
|
|
my $self = shift;
|
|
|
|
my $where = shift;
|
|
|
|
return "Checking class of $where with isa()";
|
|
}
|
|
|
|
sub renderExp
|
|
{
|
|
my $self = shift;
|
|
|
|
return "blessed into '$self->{val}' or subclass of '$self->{val}'";
|
|
}
|
|
|
|
1;
|