http://qs321.pair.com?node_id=11105306


in reply to Fun with implicit type conversions

$orry, I couldn't resist.

#!/usr/bin/perl package Sorry; use overload '-' => sub { "@_\n" }, '!' => sub { __PACKAGE__->new("Perl Hacker"); }, '""' => sub { $_[0]->[0] }; sub new { bless [$_[1] // "Just Another"] } package main; my $orry = Sorry->new; print $orry - not $orry;