#!/usr/bin/perl
use strict;
use warnings;
use mymodule;
my $m = mymodule->new();
print "My Test\n";
$m->Func1();
$m->Func2("Fluffy", 5);
####
package mymodule;
require Exporter;
use strict;
use warnings;
our @ISA = qw (Exporter);
our @EXPORT = qw();
our @EXPORT_OK qw(Func1);
our $VERSION = 0.01;
sub new {
my $class = shift;
my $self = {};
bless ($self, $class);
return $self;
}
sub Func1 {
print "Hi there\n";
}
sub Func2 {
my ($class, $name, $value) = @_;
print "hi $name, value $value\n";
}
##
##
My Test
Hi there
hi Fluffy, value 5