Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re^3: Importing variables (not functions) from in-file packages

by tobyink (Canon)
on Feb 12, 2014 at 21:29 UTC ( #1074698=note: print w/replies, xml ) Need Help??

in reply to Re^2: Importing variables (not functions) from in-file packages
in thread Importing variables (not functions) from in-file packages

Yup - and you don't even need to do so at the "top level". package statements can appear within blocks. Like...

package main; use strict; use warnings; { package Person; use Data::Dumper (); # load, but import nothing! sub new { my $class = shift; bless {@_}, $class; } sub dump { my $self = shift; package Data::Dumper; # The following line is executed in Data::Dumper, # so it can see the "Dumper" sub defined there! print Dumper($self); } # We're back to the Person package here because # the closing brace ended the Data::Dumper package printf "Line %d is in package %s\n", __LINE__, __PACKAGE__; } # And now we're back to the main package. printf "Line %d is in package %s\n", __LINE__, __PACKAGE__; my $bob = Person->new(name => 'Robert'); $bob->dump;
use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2023-06-07 00:24 GMT
Find Nodes?
    Voting Booth?
    How often do you go to conferences?

    Results (29 votes). Check out past polls.