http://www.perlmonks.org?node_id=847954


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.