#!/usr/bin/perl

package My::Module;
use feature qw(say);

local $_SCRIPT = "";
local $_PATH = "";
BEGIN{ 
        use Cwd 'abs_path';
        $_PATH = $0; # this script 
        $_PATH =~ s/([^\/]+)$//; # strip the filename, now we have a (relative) directory
        $_SCRIPT = $1; # the stripped part is the filename
        $_PATH = abs_path($_PATH); # now we have an absolute directory 
         print "My::Module 0=$0 _PATH=$_PATH _SCRIPT=$_SCRIPT \n";
}

sub print_file_name {
    say __FILE__;
}

sub print_script_name {
    say "print_script_name: $_PATH/$_SCRIPT";
}


sub print_caller_name {
    my @D = caller();
    $D[1]= abs_path($_PATH.'/'.$D[1]) unless $D[1]=~m{^/};
    say "print_caller_name: @D";
}


1;