my $self = shift;
my $val = shift;
- return
- "Scalar::Util::blessed($val) && $val->isa("
- . B::perlstring( $self->class ) . ')';
+ return 'Scalar::Util::blessed(' . $val . ')'
+ . ' && ' . $val . '->isa(' . B::perlstring($self->class) . ')';
};
sub new {