use strict;
use warnings;
use lib ".";
use WarnOver;

my $foo = bless {}, "Foo";

$\="\n";
print $foo % 2;
print "$foo";