package MyDataFile;

sub new {
    my $p = shift;
    my $class="MyDataFile";
    my $self = {
          fields => { },
          filename => undef
   };
   bless $self, $class;
   return $self;
}

sub filename {
   my $self = shift;
   if ( $_[0] ) {
       $self->{filename} = shift;
   }
   return $self->{filename};
}

sub addField {
   my ($self,$field_name,$start,$length)=@_;
   $self->{fields} = {
              fieldname=>$field_name,
              start=> $start,
              length=> $length
      };
}

sub getField {
     my ($self,$fieldname)=@_;
     return $self->{fields}->{$fieldname};
}

sub getAllFieldnames {
     my $self=shift;
     return keys %{$self->{fields}};
}


1;