Ovid@OT-D1 ~
$ perl -MData::Dumper -e '
my $x = bless {}, 'Foo';
print Dumper (\%Foo::);
$x->can('bar');
print Dumper (\%Foo::);
print Dumper (\%UNIVERSAL::)'