view release on metacpan or  search on metacpan

lib/File/RandomGenerator.pm  view on Meta::CPAN

package File::RandomGenerator;
{
  $File::RandomGenerator::VERSION = '0.06';
}

# ABSTRACT: Utility to generate a random dir tree with random files.


use Modern::Perl;
use Moose;
use namespace::autoclean;
use File::Path;
use File::Temp;
use Carp;
use Smart::Args;
use Data::Dumper;
use Cwd;

use constant DEPTH => 1;
use constant WIDTH => 1;
use constant FILE_CNT => 10;
use constant ROOT_DIR => '/tmp';
use constant UNLINK => 0;



has 'depth' => ( is      => 'rw',
				 isa     => 'Int',
				 default => DEPTH
);


has 'num_files' => ( is      => 'rw',
					 isa     => 'Int',
					 default => FILE_CNT
);



has 'root_dir' => ( is      => 'rw',
					isa     => 'Str',
					default => ROOT_DIR,
);

has '_template' => ( is      => 'rw',
					isa     => 'Str',
					default => 'frgXXXXXX'
);


has 'unlink' => ( is      => 'rw',
				  isa     => 'Bool',
				  default => UNLINK
);


has 'width' => ( is      => 'rw',
				 isa     => 'Int',
				 default => WIDTH
);


#
# private attributes
#
has '_file_temp_list' => ( is      => 'rw',
						   isa     => 'ArrayRef[ File::Temp ]',
						   default => sub { [] }
);