package MYCALC;
use Exporter;
our @EXPORT = ();
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(addition multi);
our %EXPORT_TAGS = (DEFAULT => [qw(&addition)],Both =>
[qw(&addition &
+multi)]);
sub addition {
return $_[0] + $_[1];
}
sub multi {
return $_[0] * $_[1];
}
1;
Program:
use strict;
use warnings;
my @list = qw (2 2);
use Module qw(:DEFAULT);
print addition(@list),"\n";
Above coding is my module MYCALC and the program which using
this module, I have not exported any function using @EXPORT,
but I have used the DEFAULT in %EXPORT_TAGS with the
function addition, when I call this function from the main
it says the error as,
- 0 Answers
- 2453 Views
- I also Faced
- E-Mail Answers
Why does Perl not have overloaded functions?
How to make the following assignment, as arrayreference assignment ? my $arr_ref='[1,2,3,4,4,'elem']';
What is grep used for in perl?
Create a function that is only available inside the scope where it is defined ?
Differentiate between c++ and perl.
How do you find the length of an array?
How to print escaping characters inside a string in perl?
What does the qq{ } operator do?
How interpreter is used in perl?
You want to empty an array. How would you do that?
In Perl, there are some arguments that are used frequently. What are that arguments and what do they mean?
How to read a directory in perl?
ASP 
