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

##</code><code>##

$VAR1 = {};
$VAR1 = {
          'can' => *Foo::can,
          'bar' => *Foo::bar
        };
$VAR1 = {
          'can' => *UNIVERSAL::can,
          'bar' => *UNIVERSAL::bar,
          'isa' => *UNIVERSAL::isa,
          'VERSION' => *UNIVERSAL::VERSION
        };