Select Code to Download

 
print __FILE__;

 
sub file_name_is_absolute {
    my ($self,$file) = @_;
    return scalar($file =~ m:^/:s);
}

 
package FOO; 
use File::Spec;
...


1;