[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 {}

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

## name Name collision from two roles
## failures 1
## cut

package Role::A;
use Moose::Role;

sub foo {}

package Role::B;
use Moose::Role;

sub foo {}

package Class;
use Moose;
with 'Role::A';
with 'Role::B';

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

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

package Role;
use Moose::Role;

sub foo {}

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

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
c3c1ebd6	50	#-----------------------------------------------------------------------------
	51
	52	## name Name collision from two roles
	53	## failures 1
	54	## cut
	55
	56	package Role::A;
	57	use Moose::Role;
	58
	59	sub foo {}
	60
	61	package Role::B;
	62	use Moose::Role;
	63
	64	sub foo {}
	65
	66	package Class;
	67	use Moose;
	68	with 'Role::A';
	69	with 'Role::B';
	70
aa65a014	71	#-----------------------------------------------------------------------------
	72
	73	## name Name collision with aliasing
	74	## failures 0
	75	## cut
	76
	77	package Role;
	78	use Moose::Role;
	79
	80	sub foo {}
	81
	82	package Class;
	83	use Moose;
	84	with 'Role' => { alias => { foo => 'foo_bar' } };
	85
	86	sub foo {}
	87