use Acme::Alias bless => [qw(curse damn)];
my $string = "foo";
my $obj = curse \$string, 'CursedString';
my $obj2 = damn \$string, 'DamnedString';