Help for this page

Select Code to Download


  1. or download this
    my $class = ref($proto) || $proto;
  2. or download this
    package MyGlobalHash;
use base Exporter;
@EXPORT = qw(%MyGlobalHash);
%MyGlobalHash = (foo => "Hello, world!\n");
1;
  3. or download this
    package RandomPackage;
use MyGlobalHash;
...
print $MyGlobalHash{"foo"};