#!/usr/bin/perl

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

use Data::Dumper;
use Chronology;

$Data::Dumper::Indent = 1;

die "usage: filter.pl file module filter_type\n" unless(@ARGV == 3);

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

my @o = split(/\s+/, $ft);

my $c = new Chronology();
$c->load($module, $file);
print "Error\n" unless(defined $c);

my $new = $c->filter(@o);

print Dumper($new);