So just use a string as the classname!

my $object = 'ThisClass';
...
$object->this;
$object->that;
[download]

-- Randal L. Schwartz, Perl hacker