5 use_ok 'MooObjectWithDelegate';
8 package MooObjectWithDelegate;
11 around 'connect', sub {
12 my ($orig, $self, @args) = @_;
13 return $self->$orig(@args) . 'c';
17 ok my $moo_object = MooObjectWithDelegate->new,
20 is $moo_object->connect, 'abc',