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