[engit/Iron-Munger.git] / scripts / munge

#!/usr/bin/env perl

use strict;
use warnings;
use IronMunger;
use File::Path qw(rmtree);
use File::Copy::Recursive qw(dircopy);

rmtree('output');
dircopy('share','output');

my $munger = IronMunger->load_from_plagger('csv');

print $munger->debug_dump;

$munger->save_monger_stats('output');
Commit	Line	Data
aa75d10b	1	#!/usr/bin/env perl
	2
	3	use strict;
	4	use warnings;
	5	use IronMunger;
	6	use File::Path qw(rmtree);
	7	use File::Copy::Recursive qw(dircopy);
	8
	9	rmtree('output');
	10	dircopy('share','output');
	11
	12	my $munger = IronMunger->load_from_plagger('csv');
	13
	14	print $munger->debug_dump;
	15
	16	$munger->save_monger_stats('output');