Select Code to Download

use File::Path;
use Test::More qw|no_plan|;
...
ok(-d "$tmp/$partial", "$tmp/$partial created");
rmtree($partial);
ok(! -d "$tmp/$partial", "$tmp/$partial deleted");

           mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
           rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);

           mkpath(['foo/bar/baz', 'blurfl/quux'], 1, 0711);
           rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);