@ISA = qw(IO::Handle Exporter); ... if ( is_really_seekable() ) { # to be implemented splice @ISA, 1, 0, ('IO::Seekable'); # insert after IO::Handle }