File: Base1.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 (18 lines) | stat: -rw-r--r-- 468 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
package My::Exporter::Base1;
use base 'Badger::Exporter';

__PACKAGE__->export_all( qw($FOO @FOO %FOO foo) );
__PACKAGE__->export_any( qw($BAR @BAR %BAR bar) );

use vars qw( $FOO $BAR @FOO @BAR %FOO %BAZ );

$FOO = 1;
$BAR = 2;
@FOO = (10, 100, 1000);
@BAR = (20, 200, 2000);
%FOO = (ten => 10, hundred => 100, thousand => 1000);
%BAR = (twenty => 20, two_hundred => 200, two_thousand => 2000);
sub foo { return 'this is foo' };
sub bar { return 'this is bar' };

1;