1use strict;
2use warnings;
3use Test::More tests => 3;
4BEGIN { use_ok 'director_unroll' };
5require_ok 'director_unroll';
6
7{
8  package MyFoo;
9  use base 'director_unroll::Foo';
10  sub ping { "MyFoo::ping()" }
11}
12
13$a = MyFoo->new();
14$b = director_unroll::Bar->new();
15$b->set($a);
16my $c = $b->get();
17is(${$a->this}, ${$c->this}, "unrolling");
18