1 package MooObjectWithDelegate;
9 do { $_[0] && Scalar::Util::blessed($_[0]) }
10 or die "Not an Object!";
13 builder => '_build_delegated',
14 handles => [qw/connect/],
17 sub _build_delegated {
19 return ClassicObject->new;
22 around 'connect', sub {
23 my ($orig, $self, @args) = @_;
24 return $self->$orig(@args) . 'b';