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'));