Revízia 1.1, Sun Feb 16 15:48:06 2003 UTC (21 years, 2 months ago) by yenar
Initial revision
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;