package MyLog;

use strict;
use warnings;

my $my_logger = undef;

sub init {
    my ( $class, $logger ) = @_;
    $my_logger = $logger;
    $my_logger->info('INIT');
}

sub path {
    my $path = ( eval { caller(0) } )[1];
    $my_logger->info($path);
    return $path;
}

1;