Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Very basic package / module question...

by almut (Canon)
on Feb 05, 2010 at 15:52 UTC ( [id://821589]=note: print w/replies, xml ) Need Help??


in reply to Very basic package / module question...

If you want to make the constants available in the namespace that uses SPEAK::ITALIAN, you need to export them, just like you did with the sub hello:

@EXPORT = qw(hello HELLO GOODBYE);

Otherwise, you have to access them fully qualified:

print SPEAK::ITALIAN::GOODBYE . " in Italiano\n";

Update: or you could do it the OO way (via inheritance):

package SPEAK::ITALIAN; use strict; use warnings; use constant HELLO => "Hello"; use constant GOODBYE => "Goodbye"; sub new { my $class = shift; return bless {}, $class; } sub hello { print HELLO . " in Italiano\n"; } 1; # the derived class (SPEAK/ITALIAN/Goodbye.pm) package SPEAK::ITALIAN::Goodbye; use strict; use warnings; use base "SPEAK::ITALIAN"; sub goodbye { my $self = shift; print $self->GOODBYE . " in Italiano\n"; } 1; # your script #!/usr/bin/perl use strict; use warnings; use SPEAK::ITALIAN::Goodbye; my $obj = SPEAK::ITALIAN::Goodbye->new(); $obj->hello(); $obj->goodbye();

Replies are listed 'Best First'.
Re^2: Very basic package / module question...
by smullis (Pilgrim) on Apr 06, 2011 at 11:27 UTC

    (about a year passes...)

    I ended up using inheritance...

    Thanks all!

    SM

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://821589]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (5)
As of 2024-03-19 11:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found