#!/usr/bin/perl

BEGIN {
	$DB::single = $DB::single = 1;
	$|  = 1;
	$^W = 1;
}

use Test::More tests => 4;

SCOPE: {
	package Foo;

	sub new {
		my $class = shift;
		bless { @_ }, $class;
	}

	1;
}

SCOPE: {
	package Bar;

	use Class::Adapter::Builder
		ISA      => 'Foo',
		AUTOLOAD => 1;

	sub new {
		my $class = shift;
		return $class->SUPER::new(
			Foo->new(@_),
		);
	}
}

# Create an object
SCOPE: {
	my $object = Bar->new;
	isa_ok( $object, 'Bar' );
	$object->DESTROY;
}

my $foo = Foo->new;
isa_ok( $foo, 'Foo' );
my $bar = Bar->new;
isa_ok( $bar, 'Foo' );
isa_ok( $bar, 'Bar' );