Dummy.pm   [plain text]

package Dummy;

require Exporter;

@ISA         = qw(Exporter);
@EXPORT      = qw(foo);
@EXPORT_OK   = qw(bar);
$VERSION = 0.5;

sub foo { 42 }

sub bar { 23 }

sub car { "yarblockos" }

return 23;