package ORTestObjects;
use Moo;
has name => (is => 'rwp', default => sub { 'Fred' });
sub same_name {
my ($self, $other) = @_;
return $self->name eq $other->name;
}
sub give_back {
my ($self) = @_;
return $self;
}
sub takes_object {
my ($self, $object) = @_;
if($object->isa('ORTestObjects')) {
return 1;
}
return 0;
}
1;