Help for this page

Select Code to Download


  1. or download this
    package WarnOver;
use strict;
...
    fallback => 1;
;
1;
  2. or download this
    use strict;
use warnings;
...
$\="\n";
print $foo % 2;
print "$foo";
  3. or download this
    numifying reference Foo=HASH(0x225118) at checkwarn.pl line 10
0
stringifying reference Foo=HASH(0x225118) at checkwarn.pl line 11
Foo=HASH(0x225118)
  4. or download this
    package Foo;
use WarnOver;
$foo = bless {};
$bar = bless {}; 
print "equal" if $foo == $bar; # two warnings!