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,
No Answer is Posted For this Question
Be the First to Post Answer
What are the advantages of c over Perl?
Which guidelines by Perl modules must be followed?
How can I implement the function overloading in Perl ? I read about the operator overloading, I do not know how to implement the function overloading. Thanks in advance ?
Difference between the variables in which chomp function work ?
What is perl scripting?
What are the different instances used in cgi overhead?
How many ways can we express string in Perl?
Explain returning values from subroutines?
What are the features of perl language?
How do you match one letter in the current locale?
write a script to check whether user enter a value is a leap year or not?
3 Answers Oracle, Persistent, ViPrak,
You want to open and read data files with perl. How would you do that?