Re: How to detect a returns value gracefully

Check ref $$result instead of $result whenever ref($result) eq 'REF'.

use strict;
use warnings;

my $aFoo = [];
my $result = \$aFoo;

print 'ref $result : ' . ref($result) . "\n";
print 'ref $$result : ' . ref($$result) . "\n";
[download]

prints

ref $result : REF
ref $$result : ARRAY
[download]

Best, beth

Comment on Re: How to detect a returns value gracefully Select or Download Code

Replies are listed 'Best First'.
Re^2: How to detect a returns value gracefully by Anonymous Monk on Feb 26, 2009 at 08:39 UTC
You shouldn't use references until you've read perlref	[reply]
Re^3: How to detect a returns value gracefully by almut (Canon) on Feb 26, 2009 at 11:18 UTC
Care to explain what the issue is instead of spreading FUD?	[reply]
Re^4: How to detect a returns value gracefully by Anonymous Monk on Feb 26, 2009 at 19:53 UTC
RatKing shouldn't use references until read perlref.	[reply]
Re^5: How to detect a returns value gracefully by almut (Canon) on Feb 26, 2009 at 20:00 UTC
Re^6: How to detect a returns value gracefully by Anonymous Monk on Feb 28, 2009 at 08:09 UTC