view release on metacpan or  search on metacpan

inc/inc_Module-Load/Module/Load.pm  view on Meta::CPAN

    return $file;
}

sub _who { (caller(1))[0] }

sub _is_file {
    local $_ = shift;
    return  /^\./               ? 1 :
            /[^\w:']/           ? 1 :
            undef
    #' silly bbedit..
}


1;

__END__

=pod

=head1 NAME