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
- 2732 Views
- I also Faced
- E-Mail Answers
No Answer is Posted For this Question
Be the First to Post Answer
Explain chomp, chop, cpan, tk.
How will you open a file in a write-only mode in perl?
What are the characteristics of a project that is well suited to Perl?
Which feature of perl provides code reusability?
What is the usage of -i and 0s options?
What is the importance of perl warnings? How do you turn them on?
What are the various file operations in perl. Explain with example.
How to convert arrays into a string in perl?
What are scalars?
How many types of variable in perl?
Explain string comparison operators in perl.
How to implement a stack in Perl?
ASP 
