package UNIVERSAL::can; # Small performance hit and breaks otherwise working code. # http://rt.cpan.org/Ticket/Display.html?id=31709 use Config; my $max_int = 2 ** ( $Config{intsize} * 8 ); our $VERSION = $max_int; 1;