package DupEventChecker;
use Modern::Perl;
use IO::Dir;
use Moose;

has 'dir'  => ( is => 'ro', isa => 'IO::Dir', writer => '_set_dir' );

sub BUILD {
  my $self = shift;
  my $args = shift;

  $self->_set_dir(IO::Dir->new($args->{dir_name}));
}
return 1;