#!/usr/bin/perl

use strict;
use warnings;
use lib qw(lib);

use Data::Dumper;
use Chronology;

$Data::Dumper::Indent = 1;

die "usage: dumper.pl file module\n" unless(@ARGV == 2);

my ($file, $module) = @ARGV;

my $c = new Chronology();
$c->load($module, $file);
print Dumper($c->{_chrono_});