Re^2: Handling non-fatal method error strings without exceptions or globals?

Or, you could use wantarray to eliminate the caveat...

#!/usr/bin/perl -w

$result = fun();
print "$result\n";
($result, $error) = fun();
print "$result, $error\n";

sub fun
{
    return wantarray ? ("stuff","Error") : "stuff"
}
[download]

-- All code is 100% tested and functional unless otherwise noted.

Comment on Re^2: Handling non-fatal method error strings without exceptions or globals? Download Code