package Iotta::Elem; use strict; require Iotta; our @ISA = ("Iotta"); sub run { my $self = shift; print STDERR " WARNING: generic element...\n"; } sub setup { } sub finish { } sub initialize { my $self = shift; $self->SUPER::initialize (@_); $self->{next}=0; $self->{data}=0; $self->{chain}=0; } 1;