Select Code to Download

package Foo;

use warnings;
...
}

1;

$ perl -I. -MData::Dumper -MFoo -e'print Dumper (Foo->data)'
Variable "%data" is not available at (eval 1) line 1.
$VAR1 = {};

$ perl -I. -MData::Dumper -MFoo -e'print Dumper (Foo->data)'
Useless use of private hash in void context at Foo.pm line 16.
$VAR1 = {
          'foo' => 'bar'
        };

package main;
use warnings;
use strict;
use Data::Dumper;
print Dumper (Foo->data);