Súbor: [Platon] / iotta / Iotta / Filter.pm (stiahnutie)
Revízia 1.1.1.1, Sun Feb 16 15:48:06 2003 UTC (21 years, 2 months ago) by yenar
Zmeny od 1.1: +0 -0
[lines]
initial import of iotta into platon cvs
|
package iotta::filter;
require iotta;
@ISA = ("iotta");
sub filter {
my ($self, $d);
$self = shift;
$d = shift;
#print STDERR "iotta::filter::filter called\n";
return $d;
}
sub setup {
}
sub initialize {
my $self = shift;
$self->SUPER::initialize (@_);
$self->{files}=".*";
$self->{filename}="unknown";
$self->{magic}="";
}
1;
Platon Group <platon@platon.sk> http://platon.sk/
|