Is this what you mean?

 1:07 >perl -MData::Dumper -E "say join(q[, ], @Data::Dumper::ISA); @D
+ata::Dumper::ISA = ('fred', 'wilma'); say join(q[, ], @Data::Dumper::
+ISA);"
Exporter
fred, wilma
[download]

But why would you want to do this?

Update: Sorry, I saw “class’, missed “object”. I apologise for the noise. But I’d still like to know, why do you want to do this?