File: Subclass2.pm

package info (click to toggle)
libbadger-perl 0.16-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,400 kB
  • sloc: perl: 11,004; makefile: 9
file content (17 lines) | stat: -rw-r--r-- 373 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
package My::Exporter::Subclass2;
use base 'My::Exporter::Base2';

__PACKAGE__->export_all( qw($GOODBYE) );
__PACKAGE__->export_any( qw($FOO foo) );
__PACKAGE__->export_tags( baz => [qw($BAZ @BAZ)] );

use vars qw( $FOO @FOO $BAZ @BAZ $GOODBYE );

$FOO = 50;
@FOO = (60, 70);
sub foo { return 'this is the new foo' };
$BAZ = 999;
@BAZ = (987, 654);
$GOODBYE = 'see ya';

1;