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  

---

Which feature of Perl provides code reusability ? Give any example of that feature.

1 Answers  

---

What are arrays in perl?

0 Answers  

---

how to search a unique pattern in a file by using perl hash map function ??? plz answer me

2 Answers  

---

What does undef function in perl?

0 Answers  

---

---

what is the difference between java and cgi?

0 Answers  

---

How to access parameters passed to a subroutine in perl?

0 Answers  

---

Explain splicing of arrays?

0 Answers  

---

How to prevent file truncation in perl?

0 Answers  

---

i have a folder called 'error' and in that, i have error log files which are generated by the build, now i want to findout the string 'error' from each log file and that error has to be copied into the another file called 'analysis'. how do you do this in perl?

5 Answers   HP,

---

Is perl a case sensitive language?

0 Answers  

---

What is warn function in perl?

0 Answers  

---