use strict;
use warnings;
-use Test::More tests => 12;
+use Test::More tests => 11;
use Test::Exception;
-BEGIN {
- use_ok('Moose::AttributeHelpers');
-}
-
{
package MyHomePage;
use Moose;
+ use Moose::AttributeHelpers;
has 'counter' => (
- traits => [ 'Counter' ],
- is => 'ro',
- isa => 'Int',
- default => sub { 0 },
- handles => {
+ traits => ['Counter'],
+ is => 'ro',
+ isa => 'Int',
+ default => 0,
+ handles => {
inc_counter => 'inc',
dec_counter => 'dec',
reset_counter => 'reset',
}
my $page = MyHomePage->new();
-isa_ok($page, 'MyHomePage');
+isa_ok( $page, 'MyHomePage' );
-can_ok($page, $_) for qw[
+can_ok( $page, $_ ) for qw[
counter
dec_counter
inc_counter
];
lives_ok {
- $page->meta->remove_attribute('counter')
-} '... removed the counter attribute okay';
+ $page->meta->remove_attribute('counter');
+}
+'... removed the counter attribute okay';
-ok(!$page->meta->has_attribute('counter'), '... no longer has the attribute');
+ok( !$page->meta->has_attribute('counter'),
+ '... no longer has the attribute' );
-ok(!$page->can($_), "... our class no longer has the $_ method") for qw[
+ok( !$page->can($_), "... our class no longer has the $_ method" ) for qw[
counter
dec_counter
inc_counter
reset_counter
];
-
-
-