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;