#!/usr/bin/perl

# Test for a custom isa method that returns the same way that

# Object::InsideOut does.

use strict;

BEGIN {

	$|  = 1;

	$^W = 1;

	$ENV{PERL_PARAMS_UTIL_PP} ||= 0;

}

use Test::More tests => 2;

use Scalar::Util ();

use Params::Util ();

#####################################################################

# Create an object and test it

SCOPE: {

	my $object = Foo->new;

	ok( Scalar::Util::blessed($object), 'Foo' );

	my $instance = Params::Util::_INSTANCE($object, 'Foo');

	is( $instance, undef, '_INSTANCE correctly returns undef' );

}

#####################################################################

# Create a package to simulate Object::InsideOut

CLASS: {

	package Foo;

	sub new {

		my $foo  = 1234;

		my $self = \$foo;

		bless $self, $_[0];

		return $self;

	}

	sub isa {

		return ('');

	}

	1;

}