NAME

Problem::Module - Danijel Tašov's great new module

NAME

文档 - Problem script pl_END );

sub setup_recurs { while(my($file, $text) = each %Files) { # Convert to a relative, native file path. $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);

    my $dir = dirname($file);
    mkpath $dir;
    my $utf8 = ($] < 5.008 or !$Config{useperlio}) ? "" : ":utf8";
    open(FILE, ">$utf8", $file) || die "Can't create $file: $!";
    print FILE $text;
    close FILE;

    # ensure file at least 1 second old for makes that assume
    # files with the same time are out of date.
    my $time = calibrate_mtime();
    utime $time, $time - 1, $file;
}

return 1;
}

sub teardown_recurs { foreach my $file (keys %Files) { my $dir = dirname($file); if( -e $dir ) { rmtree($dir) || return; } } return 1; }

1;