Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Class::Std :default semantics

by esharris (Monk)
on Oct 26, 2005 at 19:29 UTC ( #503142=perlquestion: print w/ replies, xml ) Need Help??
esharris has asked for the wisdom of the Perl Monks concerning the following question:

The attribute specification :default('') didn't work as expected . Here is my program.
#!/usr/bin/perl -w package Foo; { use Class::Std; my %a : ATTR( :default('') :get<a>); }; my $f = Foo->new(); print ref($f), "\n"; if (defined($f->get_a())) { print "yes\n"; } else { print "no\n"; } if ($f->get_a() eq '') { print "yes\n"; } else { print "no\n"; } package Bar; { use Class::Std; my %a : ATTR( :default('''') :get<a>); }; my $g = Bar->new(); print ref($g), "\n"; if (defined($g->get_a())) { print "yes\n"; } else { print "no\n"; } if ($g->get_a() eq '') { print "yes\n"; } else { print "no\n"; } print "Hello\n"; if (undef eq '') { print "yes\n" } else { print "no\n"; }
When executed, this perl script gives the following output.
./ Foo no Use of uninitialized value in string eq at ./ line 14. yes Bar yes yes Hello Use of uninitialized value in string eq at ./ line 31. yes
Based on the explanation of Class::Std in CPAN, I expected $f->get_a() to be the null string. However, according to the 2nd and 3rd line of output, it is actually undefined.

I have a conjecture. If you look at the source, you see that the given default value is first evaluated, after the string delimiters are removed. in the Foo case, eval '' returns normally with the undefined value. To initialize the hash bucket to the null string in Goo, I had to do :default(''''). Is this a bug?

Comment on Class::Std :default semantics
Select or Download Code
Replies are listed 'Best First'.
Re: Class::Std :default semantics
by TheDamian (Priest) on Oct 27, 2005 at 10:33 UTC
    Yep. It's a bug. Fixed in the next release. Thanks for the report.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://503142]
Approved by Limbic~Region
Front-paged by planetscape
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (7)
As of 2015-11-27 16:33 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (731 votes), past polls