Help for this page

Select Code to Download


  1. or download this
    use My::Module;
    My::Module::print_file_name();
    
  2. or download this
    package My::Module;
    use feature qw(say);
    ...
        say __FILE__;
    }
    1;
    
  3. or download this
    if ( !File::Spec->file_name_is_absolute( $filename ) ) {
       $filename = File::Spec->rel2abs( $filename, $FindBin::Bin );
    }
    
  4. or download this
    package Cwd::Initial;
    use strict;
    ...
    
    1;