default => sub { Foo->new() },
handles => qr/^a$/,
);
- } '... can create the attribute with delegations';
+ } 'can create the attribute with delegations';
}
my $bar;
lives_ok {
$bar = Bar->new;
-} '... created the object ok';
+} 'created the object ok';
isa_ok($bar, 'Bar');
-is($bar->a, 'Foo::a', '... got the right delgated value');
+is($bar->a, 'Foo::a', 'got the right delgated value');
my @w;
$SIG{__WARN__} = sub { push @w, "@_" };
default => sub { Foo->new() },
handles => qr/.*/,
);
- } '... can create the attribute with delegations';
+ } 'can create the attribute with delegations';
}
my $baz;
lives_ok {
$baz = Baz->new;
-} '... created the object ok';
+} 'created the object ok';
isa_ok($baz, 'Baz');
-is($baz->a, 'Foo::a', '... got the right delgated value');
+is($baz->a, 'Foo::a', 'got the right delgated value');
default => sub { Foo->new() },
handles => [qw(a new)],
);
- } '... can create the attribute with delegations';
+ } 'can create the attribute with delegations';
}
my $blart;
lives_ok {
$blart = Blart->new;
-} '... created the object ok';
+} 'created the object ok';
isa_ok($blart, 'Blart');
-is($blart->a, 'Foo::a', '... got the right delgated value');
+is($blart->a, 'Foo::a', 'got the right delgated value');