Help for this page

Select Code to Download


  1. or download this
    my $modulePath = $INC{'Chess/PGN/EPD.pm'};
  2. or download this
    ...
use File::Spec::Functions qw(rel2abs splitpath updir catdir);
...
my $loadPath   = rel2abs ($INC{'Chess/PGN/EPD.pm'});
my @parts      = splitpath ($loadPath);
my $db_dir_qfn = realpath (catdir (@parts[0, 1], updir(), 'db'));