##
package My::Module;
use feature qw(say);
sub print_file_name {
say __FILE__;
}
1;
##
##
if ( !File::Spec->file_name_is_absolute( $filename ) ) {
$filename = File::Spec->rel2abs( $filename, $FindBin::Bin );
}
##
##
package Cwd::Initial;
use strict;
use warnings;
use Cwd ();
our $cwd;
our $VERSION = '0.10';
sub _getcwd {
$cwd = Cwd::getcwd();
}
BEGIN {
_getcwd();
}
sub getcwd {
return $cwd;
}
1;