Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: What does this mean?

by Perlbotics (Chancellor)
on Aug 20, 2012 at 19:55 UTC ( #988498=note: print w/replies, xml ) Need Help??

in reply to What does this mean?

It's a common setter/getter idiom however with an unfortunate chosen method name setID.

'get' attribute: no argument given, so $id is undefined, current value of $self->{_id} is returned

my $id = $obj->setID(); # return current _id
'set' attribute (and 'get' new value at the same time)
my $new_id = $obj->setID( 42 ); # updates and returns new _id 42 # or just: $obj->setID( 42 );

Replies are listed 'Best First'.
Re^2: What does this mean?
by tobyink (Abbot) on Aug 20, 2012 at 22:24 UTC

    I don't know if it was necessarily intended to act as a getter+setter. It's probably just a setter that happens to include a quick check to prevent people from setting the ID to undef. It happens to also return the current ID, but I'd assume that's just incidental. A method needs to return something; might as well be something vaguely useful.

    perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://988498]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2018-06-25 18:31 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (128 votes). Check out past polls.