1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#########################################################
package AnyData::Format::FileSys;
#########################################################
# AnyData driver for plain text files
# copyright (c) 2000, Jeff Zucker <jeff@vpservices.com>
#########################################################
use strict;
use warnings;
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;
|
