Advertisement
Guest User

Untitled

a guest
Jul 20th, 2017
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.23 KB | None | 0 0
  1.  # Returns absolute path to this module (removing basename)
  2.  16 sub _absPath {
  3.  17         my $path = File::Spec->rel2abs(__FILE__);
  4.  18         my ($volume, $dirs, $file) = File::Spec->splitpath($path);
  5.  19         return $dirs;
  6.  20 }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement