blob: 1c05cee0dcbcbe5f215d1468ab99750cc27b17d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
package Dummy;
use Exporter::Lite;
@EXPORT = qw(&foo $foo);
@EXPORT_OK = qw(&bar my_sum $bar);
$VERSION = 0.5;
$foo = 'foofer';
sub foo { 42 }
$bar = 'barfer';
sub bar { 23 }
sub my_sum (&@) {
my($sub, @list) = @_;
foreach (@list) { $sum = $sub->($_, $sum || 0); }
return $sum;
}
sub car { "yarblockos" }
return 23;
|
