Select Code to Download

use strict;
use warnings;
...

my $normalnum = 0;
is($normalnum, hex_to_int64("0x8000200030004000"), "some test");

sub _unoverload {
    my $self = shift;
...

    return;
}

sub _unoverload_str {
    my $self = shift;

    return $self->_unoverload( q[""], @_ );
}

#   Failed test 'some test'
not ok 1 - some test
#   at C:\Documents and Settings\Owner\Desktop\n13.pl line 7.

C:\Documents and Settings\Owner\Desktop>perl n13.pl
not ok 1 - some test
...
# Tests were run but no plan was declared and done_testing() was not s
+een.

C:\Documents and Settings\Owner\Desktop>