use vars qw( $VERSION @ISA @EXPORT_OK %EXPORT_TAGS ); use Exporter; $VERSION = 0.01_0; # 12/28/02, 1:54 am @ISA = qw( Exporter ); @EXPORT_OK = qw( shave_opts coerce_array OOorNO myargs myself ); %EXPORT_TAGS = ( 'all' => [@EXPORT_OK] );