use strict;
use warnings;
use Test::More tests => 9;
use Test::Exception;

require_ok( 'Bar' );
require_ok( 'Foo' );

my $o = Bar->new;
my $p = Foo->new;

dies_ok { $o->{bar} = 42 } "dies on direct access";

$o->bar(13);
is( $o->bar, 13, "Bar obj set/get bar" );

$o->foo(42);
is( $o->foo, 42, "Bar obj set/get Bar's foo" );

$o->Foo::foo(23);
is( $o->Foo::foo, 23, "Bar obj set/get Foo's foo" );

$p->foo(99);
is( $p->foo, 99, "Foo obj set/get foo");

is( $o->foo, 42, "Bar obj's foo is still Bar obj's foo" );
is( $o->Foo::foo, 23, "Bar obj's Foo's foo is still Bar obj's Foo's foo" );