package Object;
use Params::Validate qw(:all);

sub new {
    my $class = shift;
    my %self = validate(@_, {logger => { isa => 'Logger' } } );
    return( bless \%self, $class );
};

# ... more code ...

sub log {
    my ($self, @messages) = @_;
    $self->{logger}->log($self, @messages);
};