[gitmo/Perl-Critic-Dynamic-Moose.git] / t / DynamicMoose / RequireMethodModifiers.run

## name No superclass
## failures 0
## cut

package Class;
use Moose;

sub foo {}
sub bar {}

#-----------------------------------------------------------------------------

## name No overriding methods
## failures 0
## cut

package Parent;

sub parent {}

package Child;
use Moose;
extends 'Parent';

sub child {}

#-----------------------------------------------------------------------------

## name Implicitly overrides a method
## failures 1
## cut

package Parent;

sub parent {}

package Child;
use Moose;
extends 'Parent';

sub parent {}

#-----------------------------------------------------------------------------

## name Weirdly dispatching methods
## failures 0
## cut

package Parent;
use Moose;

sub BUILD {}
sub DEMOLISH {}

package Child;
use Moose;
extends 'Parent';

sub BUILD {}
sub DEMOLISH {}

#-----------------------------------------------------------------------------

## name Make immutable
## failures 0
## cut

package Parent;
use Moose;

__PACKAGE__->meta->make_immutable;

package Child;
use Moose;
extends 'Parent';

__PACKAGE__->meta->make_immutable;

#-----------------------------------------------------------------------------

## name Many modifiers
## failures 0
## cut

package Parent;
use Moose;

sub foo {}

sub ai { inner() }

sub os {}

package Child;
use Moose;
extends 'Parent';

before foo => sub {};
after  foo => sub {};
around foo => sub {};

augment ai => sub {};

override os => sub { super };

#-----------------------------------------------------------------------------

## name Pull in a method from a role. Could go either way here.
## failures 1
## cut

package Parent;
use Moose;

sub foo {}

package Role;
use Moose::Role;

sub foo {}

package Child;
use Moose;
extends 'Parent';
with 'Role';

#-----------------------------------------------------------------------------

## name Grandparent
## failures 1
## cut

package Grandparent;
use Moose;

sub foo {}

package Parent;
use Moose;
extends 'Grandparent';

sub bar {}

package Child;
use Moose;
extends 'Parent';

sub foo {}

#-----------------------------------------------------------------------------

## name Grandparent with modifiers
## failures 0
## cut

package Grandparent;
use Moose;

sub foo {}

package Parent;
use Moose;
extends 'Grandparent';

before foo => sub {};

package Child;
use Moose;
extends 'Parent';

after foo => sub {};
Commit	Line	Data
fe411924	1	## name No superclass
	2	## failures 0
	3	## cut
	4
	5	package Class;
	6	use Moose;
	7
	8	sub foo {}
	9	sub bar {}
	10
	11	#-----------------------------------------------------------------------------
	12
	13	## name No overriding methods
	14	## failures 0
	15	## cut
	16
	17	package Parent;
	18
	19	sub parent {}
	20
	21	package Child;
	22	use Moose;
	23	extends 'Parent';
	24
	25	sub child {}
	26
	27	#-----------------------------------------------------------------------------
	28
	29	## name Implicitly overrides a method
	30	## failures 1
	31	## cut
	32
	33	package Parent;
	34
	35	sub parent {}
	36
	37	package Child;
	38	use Moose;
	39	extends 'Parent';
	40
	41	sub parent {}
	42
	43	#-----------------------------------------------------------------------------
	44
	45	## name Weirdly dispatching methods
	46	## failures 0
	47	## cut
	48
	49	package Parent;
	50	use Moose;
	51
	52	sub BUILD {}
	53	sub DEMOLISH {}
	54
	55	package Child;
	56	use Moose;
	57	extends 'Parent';
	58
	59	sub BUILD {}
	60	sub DEMOLISH {}
	61
	62	#-----------------------------------------------------------------------------
	63
	64	## name Make immutable
65	## failures 0
66	## cut
67
68	package Parent;
69	use Moose;
70
71	__PACKAGE__->meta->make_immutable;
72
73	package Child;
74	use Moose;
75	extends 'Parent';
76
77	__PACKAGE__->meta->make_immutable;
78
79	#-----------------------------------------------------------------------------
80
81	## name Many modifiers
82	## failures 0
83	## cut
84
85	package Parent;
86	use Moose;
87
88	sub foo {}
89
90	sub ai { inner() }
91
92	sub os {}
93
94	package Child;
95	use Moose;
96	extends 'Parent';
97
98	before foo => sub {};
99	after foo => sub {};
100	around foo => sub {};
101
102	augment ai => sub {};
103
104	override os => sub { super };
105
106	#-----------------------------------------------------------------------------
107
108	## name Pull in a method from a role. Could go either way here.
109	## failures 1
110	## cut
111
112	package Parent;
113	use Moose;
114
115	sub foo {}
116
117	package Role;
118	use Moose::Role;
119
120	sub foo {}
121
122	package Child;
123	use Moose;
124	extends 'Parent';
125	with 'Role';
126
127	#-----------------------------------------------------------------------------
128
129	## name Grandparent
130	## failures 1
131	## cut
132
133	package Grandparent;
134	use Moose;
135
136	sub foo {}
137
138	package Parent;
139	use Moose;
140	extends 'Grandparent';
141
142	sub bar {}
143
144	package Child;
145	use Moose;
146	extends 'Parent';
147
148	sub foo {}
149
150	#-----------------------------------------------------------------------------
151
152	## name Grandparent with modifiers
153	## failures 0
154	## cut
155
156	package Grandparent;
157	use Moose;
158
159	sub foo {}
160
161	package Parent;
162	use Moose;
163	extends 'Grandparent';
164
165	before foo => sub {};
166
167	package Child;
168	use Moose;
169	extends 'Parent';
170
171	after foo => sub {};
172