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

## name No collision
## failures 0
## cut

package Role;
use Moose::Role;

sub role {}

package Class;
use Moose;
with 'Role';

sub class {}

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

## name Name collision
## failures 1
## cut

package Role;
use Moose::Role;

sub foo {}

package Class;
use Moose;
with 'Role';

sub foo {}

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

## name Name collision with exclusion
## failures 0
## cut

package Role;
use Moose::Role;

sub foo {}

package Class;
use Moose;
with 'Role' => { excludes => 'foo' };

sub foo {}
Commit	Line	Data
042287b0	1	## name No collision
	2	## failures 0
	3	## cut
	4
	5	package Role;
	6	use Moose::Role;
	7
	8	sub role {}
	9
	10	package Class;
	11	use Moose;
	12	with 'Role';
	13
	14	sub class {}
	15
	16	#-----------------------------------------------------------------------------
	17
	18	## name Name collision
	19	## failures 1
	20	## cut
	21
	22	package Role;
	23	use Moose::Role;
	24
	25	sub foo {}
	26
	27	package Class;
	28	use Moose;
	29	with 'Role';
	30
	31	sub foo {}
	32
	33	#-----------------------------------------------------------------------------
	34
	35	## name Name collision with exclusion
	36	## failures 0
	37	## cut
	38
	39	package Role;
	40	use Moose::Role;
	41
	42	sub foo {}
	43
	44	package Class;
	45	use Moose;
	46	with 'Role' => { excludes => 'foo' };
	47
	48	sub foo {}
	49