Select Code to Download

#!/usr/bin/perl
use MyClass;

my $obj = MyClass->new();

package MyClass;
use Class::Std;
...
bless $hash_ref, 'MyClass';

1;

Name "MyClass::DEMOLISH" used only once: possible typo at /usr/share/p
+erl5/Class/Std.pm line 523.

sub DESTROY {
    my ($self) = @_;
...
        }
    }
}

package MyClass;
use Class::Std;
...
    print "demolishing...\n";
}
1;

#!/usr/bin/perl
use warnings;
...
BEGIN {
    foo('bar');
}

Name "main::bar" used only once: possible typo at ./test2.pl line 6.

#!/usr/bin/perl
use warnings;
...

    foo('bar');

#!/usr/bin/perl
use warnings;
...
    foo('bar');
    foo('bar');
}

#!/usr/bin/perl
use warnings;
...
    foo('bar');
    foo('baz');
}

Name "main::bar" used only once: possible typo at ./test2.pl line 6.
Name "main::baz" used only once: possible typo at ./test2.pl line 6.

#!/usr/local/bin/perl
#
...
    $foo = 1;
    $baz = 1;
}

Name "main::bar" used only once: possible typo at ./test3.pl line 7.