package Scrap::Foo;
use strict;

sub bar {
    my $dummy;
    $dummy->{_init}->{__PACKAGE__}++;
    return $dummy;
}
1

##</code><code>##

use strict;
use Scrap::Foo;
use Data::Dumper;
my $dummy = Scrap::Foo::bar();
print Dumper $dummy;

##</code><code>##

$VAR1 = {
          '_init' => {
                       '__PACKAGE__' => '1'
                     }
        };

##</code><code>##

my $package = __PACKAGE__;
$dummy->{_init}->{$package}++;