Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 2730 Views
- I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
Explain split function in perl?
What does undef function in perl?
How to renaming a file in perl programming?
Why do you program in Perl?
Explain returning values from subroutines?
Which feature of perl provides code reusability?
Differences between die and exit.
Explain lists and ivalue?
what are prefix dereferencer and list them out?
Why aren't Perl's patterns regular expressions?
How do I debug a perl program?
What is the different between array and hash in perl programming?
ASP 
