/usr/share/perl5/AnyData/Format/FileSys.pm is in libanydata-perl 0.12-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #########################################################
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;
|