18 lines
336 B
Perl
18 lines
336 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 3;
|
|
BEGIN { use_ok 'director_unroll' };
|
|
require_ok 'director_unroll';
|
|
|
|
{
|
|
package MyFoo;
|
|
use base 'director_unroll::Foo';
|
|
sub ping { "MyFoo::ping()" }
|
|
}
|
|
|
|
$a = MyFoo->new();
|
|
$b = director_unroll::Bar->new();
|
|
$b->set($a);
|
|
my $c = $b->get();
|
|
is(${$a->this}, ${$c->this}, "unrolling");
|