scripts/munge

   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');