Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

What is the significance of a package

by vyeddula (Acolyte)
on Jul 06, 2012 at 22:47 UTC ( #980391=perlquestion: print w/replies, xml ) Need Help??
vyeddula has asked for the wisdom of the Perl Monks concerning the following question:

Please explain me the significance of packages in perl.A simple code will be appreciated

Replies are listed 'Best First'.
Re: What is the significance of a package
by davido (Archbishop) on Jul 07, 2012 at 00:09 UTC

    It seems silly for us to spend time and effort composing an explanation of packages, and sample code, when both are provided in Perl's documentation, here: perlobj, where it says, "A package is simply a namespace containing variables and subroutines."

    perlmod is also useful.

    Now if your question was, "I've read perlobj and perlmod, but am having trouble understanding xyz, then it wouldn't seem like duplicated effort.

    So go ahead and look them over. Let us know what questions they don't settle.


Re: What is the significance of a package
by tobyink (Abbot) on Jul 06, 2012 at 23:03 UTC

    Packages provide a namespacing mechanism. Package A can define a function called "output", and package B can define a function called "output", and both packages will see their own output function. Example:

    use 5.014; package A { sub stuff { output($_) for qw(1 2 3 4) } sub output { say "A: @_" } } package B { sub stuff { output($_) for qw(2 4 6 8) } sub output { say "B: @_" } } package main { A::stuff(); B::stuff(); }

    Packages are also used for object-oriented programming in Perl. A reference to a variable can become associated with a package (a process known as blessing), after which that reference is considered to be an object. Objects can have method calls performed on them, in which case the method is resolved to a function defined in the package associated with the object. (Or, if there is no such function, potentially a function in a parent class.)

    use 5.014; package C { sub foo { say "foo!" } } package main { my $object = bless []=> 'C'; $object->foo; }
    perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
Re: What is the significance of a package
by zentara (Archbishop) on Jul 07, 2012 at 10:56 UTC
Re: What is the significance of a package
by muba (Priest) on Jul 06, 2012 at 23:05 UTC

    One important feature is that packages give you namespaces. Entries with identical names can co-exist because they live in different namespaces. As to demonstrate:

    ### use strict; use warnings; use Bar; use subs qw(foo); foo; sub foo { print "Foo, from the main package.\n"; }
    ### package Bar; use strict; use warnings; sub foo { print "Also foo, but this comes from the Bar package.\n"; print "(And no, if my wife calls, I'm not at the bar!)\n"; }

    Try to do this without packages, and Perl will rightfully complain, "Subroutine foo redefined at ...". Which is hardly ever what you want.

Re: What is the significance of a package
by monsoon (Pilgrim) on Jul 06, 2012 at 23:11 UTC
    In short packages are namespaces. A detailed explanation is worth a chapter in a book. Camel book for example. I recommend you get a copy and study it if you're serious about Perl.
Re: What is the significance of a package
by Anonymous Monk on Jul 07, 2012 at 23:52 UTC
    This sounds like homework.
      Possibly an interview question - and there's nothing wrong with wanting to be able to answer an interview question - but I do encourage reading up on things like this, and asking a more detailed question if there's confusion; being able to answer the questions, but not really use the concepts, may get you a job, but understanding them well will keep you this one and make it far easier to get the next one ("say, that programmer really gets this stuff").
      Homework on Perl?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://980391]
Approved by muba
Front-paged by cavac
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (3)
As of 2018-06-23 01:46 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (125 votes). Check out past polls.