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
- 2660 Views
- I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
What are the characteristics of a project that is well suited to Perl?
What does file test operators do in perl?
How interpreter is used in perl?
What do the symbols $ @ and % mean when prefixing a variable?
How do you debug a Perl scripting ( at the compile time error or run time error) in Unix environment ?
How to find the length of an array in perl?
What is the purpose of _package_ literal?
How to check the status of airplane mode (enable/disable) in perl for Android mobile?
Explain the functioning of conditional structures in perl.
You want to open and read data files with perl. How would you do that?
Explain what is perl language?
How can we create perl programs in unix, windows nt, macintosh and os/2 ?
ASP 
