in reply to Question about creating intelligent behaviors in modules WRT external objects/modules
Using isa:
if (UNIVERSAL::isa($ref, 'Foo::Bar')) { #... } elsif (UNIVERSAL::isa($ref, 'Baz::Quux')) { #... } [download]