Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "    stringification ", defined($e)
        ?"WORKED: $e\n":"DIDN'T work: $@\n";
}

Object OnlyAString=SCALAR(0x3684370):
    "" IS overloaded
...
Object OnlyANumber=SCALAR(0x3679682):
    "" is NOT overloaded
    stringification DIDN'T work: Operation """": no method found, argu
+ment in overloaded package OnlyANumber at test.pl line 28.