9 use Moose::Util::TypeConstraints;
10 use NoInlineAttribute;
21 cut_in_half => [ div => 2 ],
35 my $class = Moose::Meta::Class->create(
37 superclasses => ['Moose::Object'],
40 my @traits = 'Number';
41 push @traits, 'NoInlineAttribute'
42 if delete $attr{no_inline};
44 $class->add_attribute(
51 clearer => '_clear_integer',
56 return ( $class->name, \%handles );
61 run_tests(build_class);
62 run_tests( build_class( lazy => 1 ) );
63 run_tests( build_class( trigger => sub { } ) );
64 run_tests( build_class( no_inline => 1 ) );
66 # Will force the inlining code to check the entire hashref when it is modified.
67 subtype 'MyInt', as 'Int', where { 1 };
69 run_tests( build_class( isa => 'MyInt' ) );
71 coerce 'MyInt', from 'Int', via { $_ };
73 run_tests( build_class( isa => 'MyInt', coerce => 1 ) );
77 my ( $class, $handles ) = @_;
79 can_ok( $class, $_ ) for sort keys %{$handles};
82 my $obj = $class->new;
84 is( $obj->integer, 5, 'Default to five' );
86 is( $obj->add(10), 15, 'add returns new value' );
88 is( $obj->integer, 15, 'Add ten for fithteen' );
90 like( exception { $obj->add( 10, 2 ) }, qr/Cannot call add with more than 1 argument/, 'add throws an error when 2 arguments are passed' );
92 is( $obj->sub(3), 12, 'sub returns new value' );
94 is( $obj->integer, 12, 'Subtract three for 12' );
96 like( exception { $obj->sub( 10, 2 ) }, qr/Cannot call sub with more than 1 argument/, 'sub throws an error when 2 arguments are passed' );
98 is( $obj->set(10), 10, 'set returns new value' );
100 is( $obj->integer, 10, 'Set to ten' );
102 like( exception { $obj->set( 10, 2 ) }, qr/Cannot call set with more than 1 argument/, 'set throws an error when 2 arguments are passed' );
104 is( $obj->div(2), 5, 'div returns new value' );
106 is( $obj->integer, 5, 'divide by 2' );
108 like( exception { $obj->div( 10, 2 ) }, qr/Cannot call div with more than 1 argument/, 'div throws an error when 2 arguments are passed' );
110 is( $obj->mul(2), 10, 'mul returns new value' );
112 is( $obj->integer, 10, 'multiplied by 2' );
114 like( exception { $obj->mul( 10, 2 ) }, qr/Cannot call mul with more than 1 argument/, 'mul throws an error when 2 arguments are passed' );
116 is( $obj->mod(2), 0, 'mod returns new value' );
118 is( $obj->integer, 0, 'Mod by 2' );
120 like( exception { $obj->mod( 10, 2 ) }, qr/Cannot call mod with more than 1 argument/, 'mod throws an error when 2 arguments are passed' );
126 is( $obj->integer, 2, 'Mod by 5' );
130 is( $obj->abs, 1, 'abs returns new value' );
132 like( exception { $obj->abs(10) }, qr/Cannot call abs with any arguments/, 'abs throws an error when an argument is passed' );
134 is( $obj->integer, 1, 'abs 1' );
140 is( $obj->integer, 13, 'inc 12' );
144 is( $obj->integer, 12, 'dec 13' );
146 if ( $class->meta->get_attribute('integer')->is_lazy ) {
147 my $obj = $class->new;
151 is( $obj->integer, 7, 'add with lazy default' );
153 $obj->_clear_integer;
157 is( $obj->integer, 1, 'mod with lazy default' );