Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Need help with OO perl

by borisz (Canon)
on Dec 27, 2008 at 02:23 UTC ( [id://732738]=note: print w/replies, xml ) Need Help??


in reply to Need help with OO perl

($self->{lib}) = ($lib->print_name()); just put undef into $self->{lib} and undef->print_name can not work later. maybe you should replace 
($self->{lib}) = ($lib->print_name());

[download]
with: 
$self->{lib} = $lib;

[download]
Boris

Replies are listed 'Best First'.
Re^2: Need help with OO perl
by almut (Canon) on Dec 27, 2008 at 02:37 UTC

    Actually, it's the return value of print "From test1","\n"; that's being returned by print_name() (i.e. 1, not undef) — but otherwise your observation is of course correct...

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://732738]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2024-04-26 08:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found