Pass parameter to subroutines from another module perl

Question

I am trying to do something like this: There are:

package Module;
use base 'Exporter';
our @EXPORT = qw(print);

sub print {
    my $nr = shift;
    print "$nr\n";
    if ($nr >= 5) {
        print "greater\n";
    } else {
        print "smaller\n";
    }
}

1;

and

main.pl :

use My::Module;
my $number = 7;
Module->print($number);

The problem is that when I run it I get this :

Module smaller

can anyone help me figure out what I am doing wrong?

happydave · Accepted Answer · 2014-11-10 04:36:53Z

1

When the arrow operator is used, the thing on the left is implicitly passed as the first parameter. You want to use Module::print($number);

answered Nov 10, 2014 at 4:36

happydave

7,2371 gold badge29 silver badges25 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

happydave Over a year ago

See the "Method Invocation" section in the documentation for perlobj: perldoc.perl.org/perlobj.html#Method-Invocation

friedo Over a year ago

You also don't want to export print if you're going to call it by its fully-qualified name. And you should probably name it something else since print is a builtin.

Collectives™ on Stack Overflow

Pass parameter to subroutines from another module perl

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related