package Scrap::Foo;
use strict;

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