view release on metacpan or  search on metacpan

scriptdist  view on Meta::CPAN

			}

		my $output = catfile( $Defaults{directory}, $path );
		$show_message->( "Output is $file\n" );
		copy( $input, $output, \%Defaults );
		}
	}


FILE: foreach my $filename ( sort keys %{ content( \%Defaults ) } ) {
	my @path = split m|\Q$Defaults{dir_sep}|, $filename;

	my $file = catfile( $Defaults{directory}, @path );

	$show_message->( "Checking for file [$filename]... " );
	if( -e $file ) { $show_message->( "already exists\n" ); next FILE }

	$show_message->( "Adding file [$filename]...\n" );
	open my($fh), '>:utf8', $file or do {
		warn "Could not write to [$file]: $!\n";
		next FILE;