typeglob-name-package.pl to HTML.

index -|- end

Generated: Sun Aug 21 11:11:32 2011 from typeglob-name-package.pl 2010/09/03 311.

#!/usr/bin/perl
# typeglob-name-package.pl
package Foo;
$foo = "Some value";
$bar = "Another value";
who_am_i( *foo );
who_am_i( *bar );
sub who_am_i {
    local $glob = shift;
    print "I'm from package [" . *{$glob}{PACKAGE} . "]\n";
    print "My name is ["       . *{$glob}{NAME}    . "]\n";
}

index -|- top