Help for this page

Select Code to Download


  1. or download this
    use File::Path;
use Path::Class::File;
my $pcd = Path::Class::Dir->new('test_dir', 'test_subdir');
make_path($pcd, { verbose => 1 })
  2. or download this
    use File::Path;
use Path::Class::File;
my $pcd = Path::Class::Dir->new('test_dir', 'test_subdir');
make_path($pcd)
  3. or download this
    #!/usr/bin/env perl

...
remove_tree($t_dir); # Actually remove the tree

exit;
  4. or download this
    make_path($pcd) did NOT work
make_path($pcd, {}) worked.
...
remove_tree($t_dir_pcd->stringify) worked.
make_path("$pcd") worked
remove_tree("$t_dir_pcd") worked.