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
- 2620 Views
- I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
what is the function that is used to identify how many characters are there in a string?
What happens when you return a reference to a private variable?
There is no strict data types in perl unlike in other high level languages like Java so wouldn't that be a problem if a code in perl is to be a written by a big team of 20+ members ?"
Does Perl have objects? If yes, then does it force you to use objects? If no, then why?
How can we create perl programs in unix, windows nt, macintosh and os/2 ?
Where the command line arguments are stored and if you want to read command-line arguments with Perl, how would you do that?
Can inheritance be used in perl?
How do you debug a Perl scripting ( at the compile time error or run time error) in Unix environment ?
What is 'commit' command in perl?
What are the various file operations in perl. Explain with example.
What can be done for efficient parameter passing in perl?
Explain perl one-liner?
ASP 
