package GetPaid::FlatFile::Artran;

use warnings;
use strict;
use File::Spec;

use base qw(GetPaid::FlatFile);
our $VERSION = '0.01';

my @Path = split /::/, __PACKAGE__;
my $Configfile = File::Spec->rel2abs((join '/', @Path). ".txt");

sub new {
   my ($class, $dir) = @_;
   $dir = '.' unless defined $dir;
   my $this  = $class->SUPER::new(
      "$dir/" . uc(pop @Path) . '.TXT', # data file to create
      $Configfile
   );
   bless $this, ref($class) || $class;
}

1;