Re: Fun with implicit type conversions

[kikuchiyo]

$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;