Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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


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.


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?

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2016-10-27 05:10 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (353 votes). Check out past polls.