#!perl -w
use strict;
use Test::More tests => 6;

package Foo;
use base 'Class::Accessor::Chained';
__PACKAGE__->mk_accessors(qw( foo bar baz ));
package main;

my $foo = Foo->new->foo(1)->baz(2)->bar(4);
isa_ok( $foo, 'Foo' );
is( $foo->bar, 4, "get gets the value" );
is( $foo->foo( 5 ), $foo, "set gets the object" );

# and again, but with Fast accessors
package Bar;
use base 'Class::Accessor::Chained::Fast';
__PACKAGE__->mk_accessors(qw( foo bar baz ));
package main;

my $bar = Bar->new->foo(1)->baz(2)->bar(4);
isa_ok( $bar, 'Bar' );
is( $bar->bar, 4, "get gets the value" );
is( $bar->foo( 5 ), $bar, "set gets the object" );