1 package MooObjectWithDelegate;
8 do { $_[0] && blessed($_[0]) }
9 or die "Not an Object!";
12 builder => '_build_delegated',
13 handles => [qw/connect/],
16 sub _build_delegated {
18 return ClassicObject->new;
21 around 'connect', sub {
22 my ($orig, $self, @args) = @_;
23 return $self->$orig(@args) . 'b';