Select Code to Download

package DupEventChecker;
use Modern::Perl;
...
  $self->_set_dir(IO::Dir->new($args->{dir_name}));
}
return 1;

use Modern::Perl;
use DupEventChecker;

my $dir = DupEventChecker->new({dir_name => '.'});