Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: Checking for Presence of Optional Attribute in Moose Object

by FalseVinylShrub (Chaplain)
on Jul 04, 2010 at 04:41 UTC ( #847954=note: print w/ replies, xml ) Need Help??


in reply to Checking for Presence of Optional Attribute in Moose Object

Hi

I think your test should work without the warning if you use if (defined $self->age) { ... }.

According to Moose::Manual::Attributes, you could also set up a predicate for that attribute:

has 'age' => ( is => 'ro', isa => 'Str', predicate => 'has_age' ); if ($self->has_age) { ... }

The predicate allows you to have undefined or false values and still know whether it's ever been set or not.

On the other hand, if you just want to be able to interpolate an empty value into a string without warnings, how about putting a default of '':

has 'age' => ( is => 'ro', isa => 'Str', default => '', );

Assumes that '' is not a valid age... But that sounds like a reasonable assumption.

FalseVinylShrub

Disclaimer: Please review and test code, and use at your own risk... If I answer a question, I would like to hear if and how you solved your problem.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2016-06-27 02:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (335 votes). Check out past polls.