#!perl
use strict;
use warnings;
use Test::More;
use mop;
class Thing1 {
has $!name;
method name is overload(q[""]) {
return $!name;
}
}
class Thing2 extends Thing1 {
method name {
return uc($self->next::method);
}
}
my $thing1 = Thing1->new(name => 'foo');
is("$thing1", 'foo', '... this stringifies correctly');
my $thing2 = Thing2->new(name => 'bar');
is("$thing2", 'BAR', '... this should stringify as well');
done_testing;