Select Code to Download

Ovid@OT-D1 ~
$ perl -MData::Dumper -e '
...
$x->can('bar');
print Dumper (\%Foo::);
print Dumper (\%UNIVERSAL::)'

$VAR1 = {};
$VAR1 = {
...
          'isa' => *UNIVERSAL::isa,
          'VERSION' => *UNIVERSAL::VERSION
        };