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
- 2359 Views
- I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
what is the difference between java and cgi?
Why aren't Perl's patterns regular expressions?
what are the steps involved in reading a cgi script on the server?
What are the various perl data types based on the context?
Explain use of ‘my’ keyword in perl?
Explain the various characteristics of perl.
What does delete function do in perl?
what is Perl one liner?
Why we use CGI?
Explain goto label, goto name, and goto expr?
Explain lexical variables.
What does -> symbol indicates in Perl?
ASP 
