June 27, 2006 Two or Three Things I Learned ... Back

File::Temp

Use File::Temp when testing requires creation of directories or files.

{

    use_ok( 'File::Temp', qw| tempdir |);
    my $tdir = tempdir( CLEANUP => 1);
    ok(chdir $tdir, 'changed to temp directory for testing');
    ...
    ok(chdir $cwd, 'changed back to original directory');

}


Home Last TOC © 2006 James E Keenan Back Next