#########################################################
package AnyData::Format::FileSys;
#########################################################
# AnyData driver for plain text files
# copyright (c) 2000, Jeff Zucker <jeff@vpservices.com>
#########################################################
use strict;
use AnyData::Format::Base;
use vars qw( @ISA $DEBUG );
@AnyData::Format::FileSys::ISA = qw( AnyData::Format::Base );
$DEBUG = 0;

sub new {
    my $class = shift;
    my $self = shift || {};
    $self->{rec_sep}   ||= "\n";
    $self->{keep_first_line} = 1;
    $self->{storage} = 'FileSys';
    return bless $self, $class;
}

1;