use strict;
use warnings;
use Math::Int64 qw( hex_to_int64 );
use Test::More;

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

##</code><code>##

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

    $self->_try(sub { require overload; }, die_on_fail => 1);

    foreach my $thing (@_) {
        if( $self->_is_object($$thing) ) {
            if( my $string_meth = overload::Method( $$thing, $type ) ) {
>>>>>>>>>>>>>>>                $$thing = $$thing->$string_meth();
            }
        }
    }

    return;
}

##</code><code>##

sub _unoverload_str {
    my $self = shift;

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

##</code><code>##

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

##</code><code>##

C:\Documents and Settings\Owner\Desktop>perl n13.pl
not ok 1 - some test
#   Failed test 'some test'
#   at n13.pl line 7.
Usage: Math::Int64::_string(self, other, rev) at C:/perl512/lib/Test/Builder.pm
line 876.
# Tests were run but no plan was declared and done_testing() was not seen.

C:\Documents and Settings\Owner\Desktop>