Re: Tiny Perl puzzle
by tobyink (Canon) on Jun 05, 2014 at 22:19 UTC
|
Good puzzle. This sort of thing is precisely the reason various best practices have arisen.
use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name
| [reply] [Watch: Dir/Any] [d/l] [select] |
Re: Tiny Perl puzzle (duh)
by tye (Sage) on Jun 06, 2014 at 00:22 UTC
|
This surprises any even moderately experienced Perl programmer?
Update: It appears that my test didn't sufficiently accurately replicate the original program text. Though I admit this particular quirk didn't and doesn't bother me much as I avoid barewords exactly because they lead to lots of ambiguities.
| [reply] [Watch: Dir/Any] |
Re: Tiny Perl puzzle
by LanX (Saint) on Jun 06, 2014 at 00:35 UTC
|
Can't test ATM :)
Cheers Rolf
(addicted to the Perl Programming Language)
update
| [reply] [Watch: Dir/Any] [d/l] |
|
| [reply] [Watch: Dir/Any] [d/l] |
|
| [reply] [Watch: Dir/Any] [d/l] [select] |
|
|
|
|
Re: Tiny Perl puzzle
by sundialsvc4 (Abbot) on Jun 06, 2014 at 12:09 UTC
|
print (two + two == five)
? ( user == politician)
? "Re-elect me and I will fix it."
: "It's not a bug, it's a feature!"
: (user == accountant)
? "What do you -want- the answer to be?"
: "Don't worry, sonny, no child will be left behind.™"
;
| [reply] [Watch: Dir/Any] [d/l] |
|
| [reply] [Watch: Dir/Any] |
|
| [reply] [Watch: Dir/Any] |