my ($self, $value, $callback, $attr) = @_;
::isa_ok($attr, 'Moose::Meta::Attribute');
- ::is($attr->name, 'foo', '... got the right name');
+ ::is($attr->name, 'foo', 'got the right name');
$callback->($value * 2);
},
my ($self, $value, $callback, $attr) = @_;
::isa_ok($attr, 'Moose::Meta::Attribute');
- ::is($attr->name, 'lazy_foo', '... got the right name');
+ ::is($attr->name, 'lazy_foo', 'got the right name');
$callback->($value * 2);
},
my ($self, $value, $callback, $attr) = @_;
::isa_ok($attr, 'Moose::Meta::Attribute');
- ::is($attr->name, 'lazy_foo_w_type', '... got the right name');
+ ::is($attr->name, 'lazy_foo_w_type', 'got the right name');
$callback->($value * 2);
},
my ($self, $value, $callback, $attr) = @_;
::isa_ok($attr, 'Moose::Meta::Attribute');
- ::is($attr->name, 'lazy_foo_builder', '... got the right name');
+ ::is($attr->name, 'lazy_foo_builder', 'got the right name');
$callback->($value * 2);
},
my ($self, $value, $callback, $attr) = @_;
::isa_ok($attr, 'Moose::Meta::Attribute');
- ::is($attr->name, 'lazy_foo_builder_w_type', '... got the right name');
+ ::is($attr->name, 'lazy_foo_builder_w_type', 'got the right name');
$callback->($value * 2);
},
my ($self, $value, $callback, $attr) = @_;
::isa_ok($attr, 'Moose::Meta::Attribute');
- ::is($attr->name, 'foo', '... got the right name');
+ ::is($attr->name, 'foo', 'got the right name');
$callback->($value * 2);
},
my ($self, $value, $callback, $attr) = @_;
::isa_ok($attr, 'Moose::Meta::Attribute');
- ::is($attr->name, 'foo', '... got the right name');
+ ::is($attr->name, 'foo', 'got the right name');
$callback->("Hello $value World");
},
dies_ok {
Fail::Bar->new(foo => 10)
-} '... this fails, because initializer returns a bad type';
+} 'this fails, because initializer returns a bad type';