package Some::Class;
use Logger;

sub new {
    ...
    $self->{logger} = Logger->new;
    ...
}
sub print_to_log {
    my $self = shift;
    $self->{logger}->( @_ )
}

sub someMethod {
    my( $self ) = @_;
    ...
    $self->print_to_log( 'some stuff' );
    ...
}

sub someOtherMethod {
    my( $self ) = @_;
    ...
    $self->print_to_log( 'some other stuff' );
    ...
}