Help for this page

Select Code to Download


  1. or download this
    use File::Spec;
    my $project_dir = File::Spec->catdir( File::Spec->rel2abs(__FILE__), F
    +ile::Spec->updir() );
    
  2. or download this
    use File::Spec;
    my $project_dir;
    BEGIN { $project_dir = File::Spec->catdir( File::Spec->rel2abs(__FILE_
    +_), File::Spec->updir() ); }