1package My::Exporter::Subclass2; 2use base 'My::Exporter::Base2'; 3 4__PACKAGE__->export_all( qw($GOODBYE) ); 5__PACKAGE__->export_any( qw($FOO foo) ); 6__PACKAGE__->export_tags( baz => [qw($BAZ @BAZ)] ); 7 8use vars qw( $FOO @FOO $BAZ @BAZ $GOODBYE ); 9 10$FOO = 50; 11@FOO = (60, 70); 12sub foo { return 'this is the new foo' }; 13$BAZ = 999; 14@BAZ = (987, 654); 15$GOODBYE = 'see ya'; 16 171; 18