Simple module to test
package MyApp;
use strict;
use warnings;
use Exporter qw(import);
our @EXPORT_OK = qw(add div);
sub add {
my ($x, $y) = @_;
return $x + $y;
}
sub div {
my ($x, $y) = @_;
return $x / $y;
}
1;
Press ← or → to navigate between chapters
Press S or / to search in the book
Press ? to show this help
Press Esc to hide this help
package MyApp;
use strict;
use warnings;
use Exporter qw(import);
our @EXPORT_OK = qw(add div);
sub add {
my ($x, $y) = @_;
return $x + $y;
}
sub div {
my ($x, $y) = @_;
return $x / $y;
}
1;