Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: How to create a reusable routine ?

by bar10der (Beadle)
on Apr 02, 2004 at 15:39 UTC ( #342003=note: print w/replies, xml ) Need Help??


in reply to How to create a reusable routine ?

OK...I did try to write package and could compile without error.. but when I tried to run, I got

Undefined subroutine &main::ret called at test.pl line 11.

Here is my sample code -

package nu; use Exporter; @ISA = qw( Exporter ); @EXPORT_OK = qw( &ret ); my $action = $ARGV[0]; sub ret{ my $str = $action ? $action : 'Nop'; return $str; } 1;
Now I have another script where I want to call ret function from above package. Here is what I am doing -
---- --- use lib '/mydir/lib'; use nu; my $gat = ret('one4u'); print "Value is $gat \n"; ---- ---
Can some one pointout where I am going wrong please?

Replies are listed 'Best First'.
Re: Re: How to create a reusable routine ?
by gmpassos (Priest) on Apr 02, 2004 at 17:39 UTC
    @EXPORT_OK just tell what can be imported from this package. If you want to set some default things to be exported by the package you should set the array @EXPORT too.

    Soo, @EXPORT_OK just tells what we can import explicity:

    use nu qw( &some_funtion $var $array %etc ) ;
    And @EXPORT set what the package export when you don't paste anything:
    use nu ;
    Take a look in the documentation of Export: http://www.perldoc.com/perl5.8.0/lib/Exporter.html

    Other thing, try to build a pure Object-Oriented module, soo you will be able to use it in any type of application (console, GUI, CGI, mod_perl, etc...). One bad thing that you are doing is the action variablr, dependent of the arguments paste when the applications is executed by console.

    Here's a simple example to start building an OO module:

    package FOO ; use strict qw(vars); use vars qw($VERSION) ; $VERSION = '0.01' ; sub new { ## The class name: my $class = shift ; ## Arguments when creating the object: my ( $arg1 , $arg2 , @rest ) = @_ ; ## Define from what package this object will be: my $this = bless({} , $class) ; ## Define some internal value/attribute in the object: $this->{FOO} = $arg1 ; ## Return the created object: return $this ; } sub methodx { ## The object reference: my $this = shift ; ## Arguments of this method: my ( $arg1 , $arg2 , @rest ) = @_ ; ... } 1;
    To use this module and create an object:
    use FOO ; my $foo = new FOO("some args") ; my @returned = $foo->methodx("other args") ;

    Graciliano M. P.
    "Creativity is the expression of the liberty".

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2021-09-19 14:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?