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