lazy_build => 1,
default => 1,
);
- } qr/You can not use lazy_build and default for the same attribute error/;
+ } qr/You can not use lazy_build and default for the same attribute \(error\)/;
};
my @calls;
builder => 'build_my_customs',
predicate => 'has_my_customs',
clearer => 'clear_my_customs',
-
);
sub build_my_customs {
}
};
-
my $cb = Class::CustomBuilder->new;
ok(!$cb->has_my_customs, "correct predicate");
is($cb->custom, 'yo');
ok($cub->_has_attr, "correct predicate");
ok($cub->_clear_attr, "correct clearer");
ok(!$cub->_has_attr, "correct predicate");
+