Delegation example from http://blogs.perl.org/users/mark_a_stratman/2011/03/subclassing-tricky-non-moose-classes-dont-do-it.html

MyDate.pm

package MyDate;
use Moose;
use namespace::autoclean;
use Date::Handler;

has '_date_handler' => (
    is => 'ro',
    isa => 'Date::Handler',
    handles => qr/.*/,
);
around BUILDARGS => sub {
    my $orig = shift;
    my $class = shift;
    return $class->$orig(_date_handler => Date::Handler->new(@_));
};

no Moose;
__PACKAGE__->meta->make_immutable;