#!/usr/bin/env perl

# Thanks to Schwern for this test case:
# https://rt.cpan.org/Ticket/Display.html?id=55652

use strict;
use warnings;

use autobox;

use Test::More tests => 4;

sub SCALAR::method {
    pass("method called $_[1]");
    bless \$_[0], 'Meta';
}

my $native = 42;

$native->method('once');
is($native, 42, '$native == 42 after first method call');

$native->method('twice');
is($native, 42, '$native == 42 after second method call');