webshell

Ghost Exploiter Team Official

C:/Program Files (x86)/Plesk/perl/lib/Test2/Tools/

File / Folder	Size	Action
.	-
AsyncSubtest.pm	3.896KB	edt ren
Basic.pm	6.948KB	edt ren
Class.pm	4.727KB	edt ren
ClassicCompare.pm	11.784KB	edt ren
Compare.pm	48.986KB	edt ren
Defer.pm	3.314KB	edt ren
Encoding.pm	1.535KB	edt ren
Event.pm	1.71KB	edt ren
Exception.pm	3.877KB	edt ren
Exports.pm	3.88KB	edt ren
GenTemp.pm	2.389KB	edt ren
Grab.pm	2.482KB	edt ren
Mock.pm	12.581KB	edt ren
Ref.pm	3.61KB	edt ren
Refcount.pm	8.554KB	edt ren
Spec.pm	16.288KB	edt ren
Subtest.pm	3.66KB	edt ren
Target.pm	1.983KB	edt ren
Tester.pm	7.517KB	edt ren
Tiny.pm	8.516KB	edt ren
Warnings.pm	3.295KB	edt ren

package Test2::Tools::GenTemp;

use strict;
use warnings;

our $VERSION = '1.302210';

use File::Temp qw/tempdir/;
use File::Spec;

our @EXPORT = qw{gen_temp};
use base 'Exporter';

sub gen_temp {
    my %args = @_;

my $tempdir_args = delete $args{'-tempdir'} || [CLEANUP => 1, TMPDIR => 1];

my $tmp = tempdir(@$tempdir_args);

gen_dir($tmp, \%args);

return $tmp;
}

sub gen_dir {
    my ($dir, $content) = @_;

for my $path (keys %$content) {
        my $fq = File::Spec->catfile($dir, $path);
        my $inside = $content->{$path};

if (ref $inside) {
            # Subdirectory
            mkdir($fq) or die "Could not make dir '$fq': $!";
            gen_dir($fq, $inside);
        }
        else {
            open(my $fh, '>', $fq) or die "Could not open file '$fq' for writing: $!";
            print $fh $inside;
            close($fh);
        }
    }
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Test2::Tools::GenTemp - Tool for generating a populated temp directory.

=head1 DESCRIPTION

This exports a tool that helps you make a temporary directory, nested
directories and text files within.

=head1 SYNOPSIS

use Test2::Tools::GenTemp qw/gen_temp/;

my $dir = gen_temp(
        a_file => "Contents of a_file",
        a_dir  => {
            'a_file' => 'Contents of a_dir/afile',
            a_nested_dir => { ... },
        },
        ...
    );

done_testing;

=head1 EXPORTS

All subs are exported by default.

=over 4

=item gen_temp(file => 'content', subdir => [ sub_dir_file => 'content', ...], ...)

=item gen_temp(-tempdir => \@TEMPDIR_ARGS, file => 'content', subdir => [ sub_dir_file => 'content', ...], ...)

This will generate a new temporary directory with all the files and subdirs you
specify, recursively. The initial temp directory is created using
C<File::Temp::tempdir()>, you may pass arguments to tempdir using the
C<< -tempdir => [...] >> argument.

=back

=head1 SOURCE

The source code repository for Test2-Suite can be found at
F<https://github.com/Test-More/test-more/>.

=head1 MAINTAINERS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 AUTHORS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See F<http://dev.perl.org/licenses/>

=cut

<=Back