Commit b09c96f30fa0c8974acdec95ff82a5f01fedea51 - libmoose-perl

+18

-0

Changes less more

0	0	Also see Moose::Manual::Delta for more details of, and workarounds
1	1	for, noteworthy changes.
	2
	3	2.0800 Wed, Mar 27, 2013
	4
	5	[ENHANCEMENTS]
	6
	7	* The super() subroutine now carps if you pass it arguments. These arguments
	8	are always ignored, but we used to ignore them silently. RT #77383.
	9
	10	* Roles can now override methods from other roles they consume directly,
	11	without needing to manually exclude them (just like classes can). (mst)
	12
	13	[BUG FIXES]
	14
	15	* Fix false positive when checking for circular references for modules that
	16	use the "also" parameter with Moose::Exporter. Reported by Jon
	17	Swartz. Fixed by Matthew Wickline. RT #63818.
	18
	19	* Fix memory leak in type unions. (Karen Etheridge) RT#83929.
2	20
3	21	2.0604 Wed, Sep 19, 2012
4	22

+3

-3

LICENSE less more

0		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	0	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1	1
2	2	This is free software; you can redistribute it and/or modify it under
3	3	the same terms as the Perl 5 programming language system itself.

11	11
12	12	--- The GNU General Public License, Version 1, February 1989 ---
13	13
14		This software is Copyright (c) 2012 by Infinity Interactive, Inc..
	14	This software is Copyright (c) 2013 by Infinity Interactive, Inc..
15	15
16	16	This is free software, licensed under:
17	17

271	271
272	272	--- The Artistic License 1.0 ---
273	273
274		This software is Copyright (c) 2012 by Infinity Interactive, Inc..
	274	This software is Copyright (c) 2013 by Infinity Interactive, Inc..
275	275
276	276	This is free software, licensed under:
277	277

+4

-1

MANIFEST less more

51	51	inc/CheckDelta.pm
52	52	inc/Clean.pm
53	53	inc/ExtractInlineTests.pm
54		inc/GatherDir.pm
55	54	inc/GitUpToDate.pm
56	55	inc/MMHelper.pm
57	56	inc/MakeMaker.pm

336	335	t/basics/rebless.t
337	336	t/basics/require_superclasses.t
338	337	t/basics/super_and_override.t
	338	t/basics/super_warns_on_args.t
339	339	t/basics/universal_methods_wrappable.t
340	340	t/basics/wrapped_method_cxt_propagation.t
341	341	t/bugs/DEMOLISHALL.t

360	360	t/bugs/inline_reader_bug.t
361	361	t/bugs/instance_application_role_args.t
362	362	t/bugs/lazybuild_required_undef.t
	363	t/bugs/moose_exporter_false_circular_reference_rt_63818.t
363	364	t/bugs/moose_octal_defaults.t
364	365	t/bugs/native_trait_handles_bad_value.t
365	366	t/bugs/reader_precedence_bug.t

368	369	t/bugs/subtype_conflict_bug.t
369	370	t/bugs/subtype_quote_bug.t
370	371	t/bugs/super_recursion.t
	372	t/bugs/traits_with_exporter.t
371	373	t/bugs/type_constraint_messages.t
372	374	t/cmop/ArrayBasedStorage_test.t
373	375	t/cmop/AttributesWithHistory_test.t

567	569	t/recipes/basics_binarytree_attributefeatures.t
568	570	t/recipes/basics_company_subtypes.t
569	571	t/recipes/basics_datetime_extendingnonmooseparent.t
	572	t/recipes/basics_geonome_overloadingsubtypesandcoercion.t
570	573	t/recipes/basics_http_subtypesandcoercion.t
571	574	t/recipes/basics_point_attributesandsubclassing.t
572	575	t/recipes/extending_debugging_baseclassrole.t

+5

-2

META.json less more

3	3	"Moose is maintained by the Moose Cabal, along with the help of many contributors. See L<Moose/CABAL> and L<Moose/CONTRIBUTORS> for details."
4	4	],
5	5	"dynamic_config" : 0,
6		"generated_by" : "Dist::Zilla version 4.300020, CPAN::Meta::Converter version 2.120921",
	6	"generated_by" : "Dist::Zilla version 4.300031, CPAN::Meta::Converter version 2.120921",
7	7	"license" : [
8	8	"perl_5"
9	9	],

52	52	"DateTime::Calendar::Mayan" : "0",
53	53	"DateTime::Format::MySQL" : "0",
54	54	"Declare::Constraints::Simple" : "0",
	55	"ExtUtils::MakeMaker::Dist::Zilla::Develop" : "0",
55	56	"File::Find::Rule" : "0",
56	57	"HTTP::Headers" : "0",
57	58	"IO::File" : "0",

66	67	"Test::Deep" : "0",
67	68	"Test::DependentModules" : "0.13",
68	69	"Test::Inline" : "0",
	70	"Test::Inline::Extract" : "0",
69	71	"Test::LeakTrace" : "0",
70	72	"Test::Memory::Cycle" : "0",
71	73	"Test::Output" : "0",
	74	"Test::Pod" : "1.41",
72	75	"Test::Spelling" : "0",
73	76	"URI" : "0"
74	77	}

119	122	"web" : "http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo/Moose.git;a=summary"
120	123	}
121	124	},
122		"version" : "2.0604",
	125	"version" : "2.0800",
123	126	"x_authority" : "cpan:STEVAN",
124	127	"x_conflicts" : {
125	128	"Catalyst" : "5.80028",

+2

-2

META.yml less more

9	9	Dist::CheckConflicts: 0.02
10	10	ExtUtils::MakeMaker: 6.30
11	11	dynamic_config: 0
12		generated_by: 'Dist::Zilla version 4.300020, CPAN::Meta::Converter version 2.120921'
	12	generated_by: 'Dist::Zilla version 4.300031, CPAN::Meta::Converter version 2.120921'
13	13	license: perl
14	14	meta-spec:
15	15	url: http://module-build.sourceforge.net/META-spec-v1.4.html

60	60	resources:
61	61	bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Moose
62	62	repository: git://git.moose.perl.org/Moose.git
63		version: 2.0604
	63	version: 2.0800
64	64	x_authority: cpan:STEVAN
65	65	x_conflicts:
66	66	Catalyst: 5.80028

+1

-1

Makefile.PL less more

44	44	'Task::Weaken' => '0',
45	45	'Try::Tiny' => '0.02'
46	46	},
47		'VERSION' => '2.0604',
	47	'VERSION' => '2.0800',
48	48	'XS' => {
49	49	'xs/Attribute.xs' => 'xs/Attribute.c',
50	50	'xs/AttributeCore.xs' => 'xs/AttributeCore.c',

+2

-2

README less more

0	0
1	1
2	2	This archive contains the distribution Moose,
3		version 2.0604:
	3	version 2.0800:
4	4
5	5	A postmodern object system for Perl 5
6	6
7		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	7	This software is copyright (c) 2013 by Infinity Interactive, Inc..
8	8
9	9	This is free software; you can redistribute it and/or modify it under
10	10	the same terms as the Perl 5 programming language system itself.

+19

-17

TODO less more

	0	# vim: set ft=markdown :
	1
0	2	## Uncontroversial Items
1	3
2	4	These items are reasonably well thought out, and can go in any major release.

36	38	### Deprecate old-style Moose extensions
37	39
38	40	Moose extensions that work by calling `Moose->init_meta(metaclass =>
39		'Some::Custom::Metaclass', ...)` during their own init_meta should be
	41	'Some::Custom::Metaclass', ...)` during their own `init_meta` should be
40	42	deprecated, so they can be removed later (this should fix the issues with
41	43	`init_meta` generation in Moose::Exporter, see RT51561)
42	44
43	45	This needs to wait until the previous fix gets in, since it will hopefully
44		eliminate the need to write custom init_meta methods entirely.
	46	eliminate the need to write custom `init_meta` methods entirely.
45	47
46	48	### Attributes in roles need to be able to participate in role composition
47	49

78	80	There's no actual reason for this not to work, and it gets asked often enough
79	81	that we really should just do it at some point.
80	82
81		### use Sub::Identify instead of doing our own thing with get_code_info
	83	### use Sub::Identify instead of doing our own thing with `get_code_info`
82	84
83	85	No idea why we stopped using Sub::Identify in the past, but there's no reason
84		not to do this. We have a bug fix in our version (the isGV_with_GP thing), so
	86	not to do this. We have a bug fix in our version (the `isGV_with_GP` thing), so
85	87	this should be submitted to Sub::Identify first.
86	88
87	89	## Needs Thought

93	95	or at least, don't break existing overloading support
94	96
95	97	This shouldn't treat the overloading stuff as actual methods, since that's just
96		an implementation detail, but we should provide an API for add_overload,
97		get_overload, get_overload_list, etc. In particular, this would allow
	98	an implementation detail, but we should provide an API for `add_overload`,
	99	`get_overload`, `get_overload_list`, etc. In particular, this would allow
98	100	namespace::autoclean to not break things.
99	101
100	102	Also, MooseX::Role::WithOverloading should probably be cored.

139	141	### Rename a bunch of the public API methods
140	142
141	143	Right now the public API is kind of a mess - we have things like `get_method`
142		vs `find_method_by`_name (you almost always want to use the latter), there
	144	vs `find_method_by_name` (you almost always want to use the latter), there
143	145	being no `has_method` equivalent that checks superclasses, `get_method_list`
144	146	being public but only returning method names, while `_get_local_methods` is
145	147	private (returning method objects), and yet neither of those looks at

155	157
156	158	There's a _lot_ of different conventions in here. Some things to consider:
157	159
158		* new vs _new
	160	* `new` vs `_new`
159	161	* allowing new( 'name', %args ) vs ( name => 'name', %args )
160		* Method->wrap vs Method->new
	162	* `Method->wrap` vs `Method->new`
161	163
162	164	### Move method modifiers out to an external module
163	165

194	196	stands now, it does things like parse type names (and determine if
195	197	they're valid), manage the registry, and much more.
196	198
197		### Anything with a _(meta)?class method
	199	### Anything with a \_(meta)?class method
198	200
199	201	Every method that returns a class name needs to become a rw attribute
200	202	that can be set via the constructor.

215	217	### Does applying metaroles really need to reinitialize the metaclass?
216	218
217	219	Seems like the logic that's actually necessary is already contained in
218		rebless_instance, and not reinitializing means that existing attributes and
	220	`rebless_instance`, and not reinitializing means that existing attributes and
219	221	methods won't be blown away when metaroles are applied.
220	222
221	223	### Do we want to core namespace::autoclean behavior somehow?

345	347
346	348	### `t/todo_tests/role_insertion_order.t`
347	349
348		Roles don't preserve attribute insertion_order.
	350	Roles don't preserve attribute `insertion_order`.
349	351
350	352	### `t/todo_tests/various_role_features.t`
351	353

358	360	handles => 'Role'.
359	361	* Delegating to a role doesn't make $class->does('Role') true.
360	362	* Method modifier in a role doesn't create a method requirement.
361		* Role->meta->has_method('attr_accessor') is false.
	363	* `Role->meta->has_method('attr_accessor')` is false.
362	364
363	365	### `t/type_constraints/type_names.t`
364	366

449	451
450	452	The type checks can get expensive and some people have suggested that allowing
451	453	the checks to be turned off would be helpful for deploying into performance
452		intensive systems. Perhaps this can actually be done as an option to make_immutable?
	454	intensive systems. Perhaps this can actually be done as an option to `make_immutable`?
453	455
454	456	### misc. minor bits
455	457
456		* make the errors for TCs use ->message
	458	* make the errors for TCs use `->message`
457	459	* look into localizing the messages too
458	460	* make ANON TCs be lazy, so they can possibly be subsituted for the real thing later
459	461	* make ANON TCs more introspectable

466	468	}
467	469	on_fail { MyException->throw(value => $_[0], message => $_[1]) };
468	470
469		fail() will just return false unless the call is made via $tc->check_or_fail($value);
	471	fail() will just return false unless the call is made via `$tc->check_or_fail($value);`
470	472
471	473	* and then something like this:
472	474

495	497	[17:13] <autarch> that's fine for me
496	498	[17:13] <stevan> k
497	499
498		coerce_deeply => 1 # reads better
	500	`coerce_deeply => 1 # reads better`
499	501
500	502	### Moose::Meta::TypeConstraint::Parameter{izable,ized}
501	503

+5

-0

benchmarks/lotsa-classes.pl less more

18	18	my $name = shift;
19	19	my $attrs = join '', map { "has '$_' => ( is => 'ro', isa => 'Str' );\n" } @_;
20	20	return qq{package $name;\nuse Moose;\n$attrs\n1;\n__END__\n};
	21	},
	22	'MooseImmutable' => sub {
	23	my $name = shift;
	24	my $attrs = join '', map { "has '$_' => ( is => 'ro', isa => 'Str' );\n" } @_;
	25	return qq{package $name;\nuse Moose;\n$attrs\n__PACKAGE__->meta->make_immutable;\n1;\n__END__\n};
21	26	},
22	27	'Moo' => sub {
23	28	my $name = shift;

+19

-4

dist.ini less more

2	2	license = Perl_5
3	3	copyright_holder = Infinity Interactive, Inc.
4	4
5		version = 2.0604
	5	version = 2.0800
	6
	7	; This sets the required version of Dist::Zilla
	8	:version = 4.200016
6	9
7	10	[=inc::RequireAuthorDeps]
8	11	[=inc::Clean]
9	12
10		[=inc::GatherDir]
	13	[GatherDir]
	14	exclude_match = ^t/recipes/(?!basics_geonome_overloadingsubtypesandcoercion)
11	15	[PruneCruft]
12	16	[ManifestSkip]
13	17	[MetaYAML]

74	78	[NoTabsTests]
75	79
76	80	[CheckChangesHasContent]
	81	[CheckPrereqsIndexed]
77	82
78	83	[Prereqs]
79	84	Carp = 1.22

127	132	Test::Output = 0
128	133	Test::Spelling = 0
129	134	URI = 0
	135	Test::Inline::Extract = 0
	136	ExtUtils::MakeMaker::Dist::Zilla::Develop = 0
130	137
131	138	[Prereqs / RuntimeRecommends]
132	139	; this needs to be installed after, since it deps on Moose

187	194
188	195	[=inc::CheckDelta]
189	196	[=inc::GitUpToDate]
	197
	198	[Git::Remote::Check]
	199	remote_branch = stable/2.08
	200
	201	[Git::CheckFor::CorrectBranch]
	202	release_branch = stable/2.08
	203
190	204	[Git::Check]
191	205	allow_dirty =
192	206
193	207	[Git::Tag]
194	208	tag_format = %v
195		tag_message =
	209	tag_message = %v%t
196	210
197	211	[Git::Commit]
198		commit_msg = changelog
	212	allow_dirty = Changes
	213	commit_msg = changelog for %N-%v%t

+0

-16

~~inc/GatherDir.pm~~ less more

0		package inc::GatherDir;
1
2		use Moose;
3
4		extends 'Dist::Zilla::Plugin::GatherDir';
5
6		around _file_from_filename => sub {
7		my $orig = shift;
8		my $self = shift;
9		my $file = $self->$orig(@_);
10		return $file if $file->name =~ m+^t/recipes/basics_recipe10\.t+;
11		return () if $file->name =~ m+^t/recipes+;
12		return $file;
13		};
14
15		1;

+4

-10

lib/Class/MOP/Attribute.pm less more

3	3	$Class::MOP::Attribute::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Attribute::VERSION = '2.0604';
	6	$Class::MOP::Attribute::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

475	475
476	476	# ABSTRACT: Attribute Meta Object
477	477
478
	478	__END__
479	479
480	480	=pod
481	481

485	485
486	486	=head1 VERSION
487	487
488		version 2.0604
	488	version 2.0800
489	489
490	490	=head1 SYNOPSIS
491	491

1025	1025
1026	1026	=head1 COPYRIGHT AND LICENSE
1027	1027
1028		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1028	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1029	1029
1030	1030	This is free software; you can redistribute it and/or modify it under
1031	1031	the same terms as the Perl 5 programming language system itself.
1032	1032
1033	1033	=cut
1034
1035
1036		__END__
1037
1038
1039

+4

-9

lib/Class/MOP/Class/Immutable/Trait.pm less more

2	2	$Class::MOP::Class::Immutable::Trait::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Class::MOP::Class::Immutable::Trait::VERSION = '2.0604';
	5	$Class::MOP::Class::Immutable::Trait::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

93	93
94	94	# ABSTRACT: Implements immutability for metaclass objects
95	95
96
	96	__END__
97	97
98	98	=pod
99	99

103	103
104	104	=head1 VERSION
105	105
106		version 2.0604
	106	version 2.0800
107	107
108	108	=head1 DESCRIPTION
109	109

118	118
119	119	=head1 COPYRIGHT AND LICENSE
120	120
121		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	121	This software is copyright (c) 2013 by Infinity Interactive, Inc..
122	122
123	123	This is free software; you can redistribute it and/or modify it under
124	124	the same terms as the Perl 5 programming language system itself.
125	125
126	126	=cut
127
128
129		__END__
130
131

+4

-8

lib/Class/MOP/Class.pm less more

3	3	$Class::MOP::Class::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Class::VERSION = '2.0604';
	6	$Class::MOP::Class::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

1495	1495
1496	1496	# ABSTRACT: Class Meta Object
1497	1497
1498
	1498	__END__
1499	1499
1500	1500	=pod
1501	1501

1505	1505
1506	1506	=head1 VERSION
1507	1507
1508		version 2.0604
	1508	version 2.0800
1509	1509
1510	1510	=head1 SYNOPSIS
1511	1511

2227	2227
2228	2228	=head1 COPYRIGHT AND LICENSE
2229	2229
2230		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	2230	This software is copyright (c) 2013 by Infinity Interactive, Inc..
2231	2231
2232	2232	This is free software; you can redistribute it and/or modify it under
2233	2233	the same terms as the Perl 5 programming language system itself.
2234	2234
2235	2235	=cut
2236
2237
2238		__END__
2239

+4

-8

lib/Class/MOP/Deprecated.pm less more

2	2	$Class::MOP::Deprecated::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Class::MOP::Deprecated::VERSION = '2.0604';
	5	$Class::MOP::Deprecated::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

15	15
16	16	# ABSTRACT: Manages deprecation warnings for Class::MOP
17	17
18
	18	__END__
19	19
20	20	=pod
21	21

25	25
26	26	=head1 VERSION
27	27
28		version 2.0604
	28	version 2.0800
29	29
30	30	=head1 DESCRIPTION
31	31

46	46
47	47	=head1 COPYRIGHT AND LICENSE
48	48
49		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	49	This software is copyright (c) 2013 by Infinity Interactive, Inc..
50	50
51	51	This is free software; you can redistribute it and/or modify it under
52	52	the same terms as the Perl 5 programming language system itself.
53	53
54	54	=cut
55
56
57		__END__
58

+4

-9

lib/Class/MOP/Instance.pm less more

3	3	$Class::MOP::Instance::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Instance::VERSION = '2.0604';
	6	$Class::MOP::Instance::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

278	278
279	279	# ABSTRACT: Instance Meta Object
280	280
281
	281	__END__
282	282
283	283	=pod
284	284

288	288
289	289	=head1 VERSION
290	290
291		version 2.0604
	291	version 2.0800
292	292
293	293	=head1 DESCRIPTION
294	294

486	486
487	487	=head1 COPYRIGHT AND LICENSE
488	488
489		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	489	This software is copyright (c) 2013 by Infinity Interactive, Inc..
490	490
491	491	This is free software; you can redistribute it and/or modify it under
492	492	the same terms as the Perl 5 programming language system itself.
493	493
494	494	=cut
495
496
497		__END__
498
499

+4

-9

lib/Class/MOP/Method/Accessor.pm less more

3	3	$Class::MOP::Method::Accessor::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Method::Accessor::VERSION = '2.0604';
	6	$Class::MOP::Method::Accessor::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

240	240
241	241	# ABSTRACT: Method Meta Object for accessors
242	242
243
	243	__END__
244	244
245	245	=pod
246	246

250	250
251	251	=head1 VERSION
252	252
253		version 2.0604
	253	version 2.0800
254	254
255	255	=head1 SYNOPSIS
256	256

335	335
336	336	=head1 COPYRIGHT AND LICENSE
337	337
338		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	338	This software is copyright (c) 2013 by Infinity Interactive, Inc..
339	339
340	340	This is free software; you can redistribute it and/or modify it under
341	341	the same terms as the Perl 5 programming language system itself.
342	342
343	343	=cut
344
345
346		__END__
347
348

+4

-9

lib/Class/MOP/Method/Constructor.pm less more

3	3	$Class::MOP::Method::Constructor::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Method::Constructor::VERSION = '2.0604';
	6	$Class::MOP::Method::Constructor::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

120	120
121	121	# ABSTRACT: Method Meta Object for constructors
122	122
123
	123	__END__
124	124
125	125	=pod
126	126

130	130
131	131	=head1 VERSION
132	132
133		version 2.0604
	133	version 2.0800
134	134
135	135	=head1 SYNOPSIS
136	136

198	198
199	199	=head1 COPYRIGHT AND LICENSE
200	200
201		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	201	This software is copyright (c) 2013 by Infinity Interactive, Inc..
202	202
203	203	This is free software; you can redistribute it and/or modify it under
204	204	the same terms as the Perl 5 programming language system itself.
205	205
206	206	=cut
207
208
209		__END__
210
211

+4

-9

lib/Class/MOP/Method/Generated.pm less more

3	3	$Class::MOP::Method::Generated::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Method::Generated::VERSION = '2.0604';
	6	$Class::MOP::Method::Generated::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

70	70
71	71	# ABSTRACT: Abstract base class for generated methods
72	72
73
	73	__END__
74	74
75	75	=pod
76	76

80	80
81	81	=head1 VERSION
82	82
83		version 2.0604
	83	version 2.0800
84	84
85	85	=head1 DESCRIPTION
86	86

96	96
97	97	=head1 COPYRIGHT AND LICENSE
98	98
99		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	99	This software is copyright (c) 2013 by Infinity Interactive, Inc..
100	100
101	101	This is free software; you can redistribute it and/or modify it under
102	102	the same terms as the Perl 5 programming language system itself.
103	103
104	104	=cut
105
106
107		__END__
108
109

+4

-9

lib/Class/MOP/Method/Inlined.pm less more

2	2	$Class::MOP::Method::Inlined::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Class::MOP::Method::Inlined::VERSION = '2.0604';
	5	$Class::MOP::Method::Inlined::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

112	112
113	113	# ABSTRACT: Method base class for methods which have been inlined
114	114
115
	115	__END__
116	116
117	117	=pod
118	118

122	122
123	123	=head1 VERSION
124	124
125		version 2.0604
	125	version 2.0800
126	126
127	127	=head1 DESCRIPTION
128	128

148	148
149	149	=head1 COPYRIGHT AND LICENSE
150	150
151		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	151	This software is copyright (c) 2013 by Infinity Interactive, Inc..
152	152
153	153	This is free software; you can redistribute it and/or modify it under
154	154	the same terms as the Perl 5 programming language system itself.
155	155
156	156	=cut
157
158
159		__END__
160
161

+4

-9

lib/Class/MOP/Method/Meta.pm less more

3	3	$Class::MOP::Method::Meta::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Method::Meta::VERSION = '2.0604';
	6	$Class::MOP::Method::Meta::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

84	84
85	85	# ABSTRACT: Method Meta Object for C<meta> methods
86	86
87
	87	__END__
88	88
89	89	=pod
90	90

94	94
95	95	=head1 VERSION
96	96
97		version 2.0604
	97	version 2.0800
98	98
99	99	=head1 DESCRIPTION
100	100

120	120
121	121	=head1 COPYRIGHT AND LICENSE
122	122
123		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	123	This software is copyright (c) 2013 by Infinity Interactive, Inc..
124	124
125	125	This is free software; you can redistribute it and/or modify it under
126	126	the same terms as the Perl 5 programming language system itself.
127	127
128	128	=cut
129
130
131		__END__
132
133

+4

-8

lib/Class/MOP/Method/Overload.pm less more

3	3	$Class::MOP::Method::Overload::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Method::Overload::VERSION = '2.0604';
	6	$Class::MOP::Method::Overload::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

52	52
53	53	# ABSTRACT: Method Meta Object for methods which implement overloading
54	54
55
	55	__END__
56	56
57	57	=pod
58	58

62	62
63	63	=head1 VERSION
64	64
65		version 2.0604
	65	version 2.0800
66	66
67	67	=head1 DESCRIPTION
68	68

91	91
92	92	=head1 COPYRIGHT AND LICENSE
93	93
94		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	94	This software is copyright (c) 2013 by Infinity Interactive, Inc..
95	95
96	96	This is free software; you can redistribute it and/or modify it under
97	97	the same terms as the Perl 5 programming language system itself.
98	98
99	99	=cut
100
101
102		__END__
103

+4

-9

lib/Class/MOP/Method/Wrapped.pm less more

3	3	$Class::MOP::Method::Wrapped::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Method::Wrapped::VERSION = '2.0604';
	6	$Class::MOP::Method::Wrapped::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

202	202
203	203	# ABSTRACT: Method Meta Object for methods with before/after/around modifiers
204	204
205
	205	__END__
206	206
207	207	=pod
208	208

212	212
213	213	=head1 VERSION
214	214
215		version 2.0604
	215	version 2.0800
216	216
217	217	=head1 DESCRIPTION
218	218

282	282
283	283	=head1 COPYRIGHT AND LICENSE
284	284
285		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	285	This software is copyright (c) 2013 by Infinity Interactive, Inc..
286	286
287	287	This is free software; you can redistribute it and/or modify it under
288	288	the same terms as the Perl 5 programming language system itself.
289	289
290	290	=cut
291
292
293		__END__
294
295

+4

-9

lib/Class/MOP/Method.pm less more

3	3	$Class::MOP::Method::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Method::VERSION = '2.0604';
	6	$Class::MOP::Method::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

143	143
144	144	# ABSTRACT: Method Meta Object
145	145
146
	146	__END__
147	147
148	148	=pod
149	149

153	153
154	154	=head1 VERSION
155	155
156		version 2.0604
	156	version 2.0800
157	157
158	158	=head1 DESCRIPTION
159	159

291	291
292	292	=head1 COPYRIGHT AND LICENSE
293	293
294		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	294	This software is copyright (c) 2013 by Infinity Interactive, Inc..
295	295
296	296	This is free software; you can redistribute it and/or modify it under
297	297	the same terms as the Perl 5 programming language system itself.
298	298
299	299	=cut
300
301
302		__END__
303
304

+4

-9

lib/Class/MOP/MiniTrait.pm less more

2	2	$Class::MOP::MiniTrait::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Class::MOP::MiniTrait::VERSION = '2.0604';
	5	$Class::MOP::MiniTrait::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

40	40
41	41	# ABSTRACT: Extremely limited trait application
42	42
43
	43	__END__
44	44
45	45	=pod
46	46

50	50
51	51	=head1 VERSION
52	52
53		version 2.0604
	53	version 2.0800
54	54
55	55	=head1 DESCRIPTION
56	56

64	64
65	65	=head1 COPYRIGHT AND LICENSE
66	66
67		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	67	This software is copyright (c) 2013 by Infinity Interactive, Inc..
68	68
69	69	This is free software; you can redistribute it and/or modify it under
70	70	the same terms as the Perl 5 programming language system itself.
71	71
72	72	=cut
73
74
75		__END__
76
77

+4

-8

lib/Class/MOP/Mixin/AttributeCore.pm less more

2	2	$Class::MOP::Mixin::AttributeCore::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Class::MOP::Mixin::AttributeCore::VERSION = '2.0604';
	5	$Class::MOP::Mixin::AttributeCore::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

54	54
55	55	# ABSTRACT: Core attributes shared by attribute metaclasses
56	56
57
	57	__END__
58	58
59	59	=pod
60	60

64	64
65	65	=head1 VERSION
66	66
67		version 2.0604
	67	version 2.0800
68	68
69	69	=head1 DESCRIPTION
70	70

77	77
78	78	=head1 COPYRIGHT AND LICENSE
79	79
80		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	80	This software is copyright (c) 2013 by Infinity Interactive, Inc..
81	81
82	82	This is free software; you can redistribute it and/or modify it under
83	83	the same terms as the Perl 5 programming language system itself.
84	84
85	85	=cut
86
87
88		__END__
89

+4

-8

lib/Class/MOP/Mixin/HasAttributes.pm less more

2	2	$Class::MOP::Mixin::HasAttributes::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Class::MOP::Mixin::HasAttributes::VERSION = '2.0604';
	5	$Class::MOP::Mixin::HasAttributes::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

99	99
100	100	# ABSTRACT: Methods for metaclasses which have attributes
101	101
102
	102	__END__
103	103
104	104	=pod
105	105

109	109
110	110	=head1 VERSION
111	111
112		version 2.0604
	112	version 2.0800
113	113
114	114	=head1 DESCRIPTION
115	115

123	123
124	124	=head1 COPYRIGHT AND LICENSE
125	125
126		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	126	This software is copyright (c) 2013 by Infinity Interactive, Inc..
127	127
128	128	This is free software; you can redistribute it and/or modify it under
129	129	the same terms as the Perl 5 programming language system itself.
130	130
131	131	=cut
132
133
134		__END__
135

+4

-8

lib/Class/MOP/Mixin/HasMethods.pm less more

2	2	$Class::MOP::Mixin::HasMethods::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Class::MOP::Mixin::HasMethods::VERSION = '2.0604';
	5	$Class::MOP::Mixin::HasMethods::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

298	298
299	299	# ABSTRACT: Methods for metaclasses which have methods
300	300
301
	301	__END__
302	302
303	303	=pod
304	304

308	308
309	309	=head1 VERSION
310	310
311		version 2.0604
	311	version 2.0800
312	312
313	313	=head1 DESCRIPTION
314	314

322	322
323	323	=head1 COPYRIGHT AND LICENSE
324	324
325		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	325	This software is copyright (c) 2013 by Infinity Interactive, Inc..
326	326
327	327	This is free software; you can redistribute it and/or modify it under
328	328	the same terms as the Perl 5 programming language system itself.
329	329
330	330	=cut
331
332
333		__END__
334

+4

-8

lib/Class/MOP/Mixin.pm less more

2	2	$Class::MOP::Mixin::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Class::MOP::Mixin::VERSION = '2.0604';
	5	$Class::MOP::Mixin::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

19	19
20	20	# ABSTRACT: Base class for mixin classes
21	21
22
	22	__END__
23	23
24	24	=pod
25	25

29	29
30	30	=head1 VERSION
31	31
32		version 2.0604
	32	version 2.0800
33	33
34	34	=head1 DESCRIPTION
35	35

53	53
54	54	=head1 COPYRIGHT AND LICENSE
55	55
56		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	56	This software is copyright (c) 2013 by Infinity Interactive, Inc..
57	57
58	58	This is free software; you can redistribute it and/or modify it under
59	59	the same terms as the Perl 5 programming language system itself.
60	60
61	61	=cut
62
63
64		__END__
65

+4

-8

lib/Class/MOP/Module.pm less more

3	3	$Class::MOP::Module::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Module::VERSION = '2.0604';
	6	$Class::MOP::Module::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

91	91
92	92	# ABSTRACT: Module Meta Object
93	93
94
	94	__END__
95	95
96	96	=pod
97	97

101	101
102	102	=head1 VERSION
103	103
104		version 2.0604
	104	version 2.0800
105	105
106	106	=head1 DESCRIPTION
107	107

160	160
161	161	=head1 COPYRIGHT AND LICENSE
162	162
163		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	163	This software is copyright (c) 2013 by Infinity Interactive, Inc..
164	164
165	165	This is free software; you can redistribute it and/or modify it under
166	166	the same terms as the Perl 5 programming language system itself.
167	167
168	168	=cut
169
170
171		__END__
172

+4

-8

lib/Class/MOP/Object.pm less more

3	3	$Class::MOP::Object::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Object::VERSION = '2.0604';
	6	$Class::MOP::Object::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

100	100
101	101	# ABSTRACT: Base class for metaclasses
102	102
103
	103	__END__
104	104
105	105	=pod
106	106

110	110
111	111	=head1 VERSION
112	112
113		version 2.0604
	113	version 2.0800
114	114
115	115	=head1 DESCRIPTION
116	116

140	140
141	141	=head1 COPYRIGHT AND LICENSE
142	142
143		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	143	This software is copyright (c) 2013 by Infinity Interactive, Inc..
144	144
145	145	This is free software; you can redistribute it and/or modify it under
146	146	the same terms as the Perl 5 programming language system itself.
147	147
148	148	=cut
149
150
151		__END__
152

+4

-8

lib/Class/MOP/Package.pm less more

3	3	$Class::MOP::Package::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::Package::VERSION = '2.0604';
	6	$Class::MOP::Package::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

261	261
262	262	# ABSTRACT: Package Meta Object
263	263
264
	264	__END__
265	265
266	266	=pod
267	267

271	271
272	272	=head1 VERSION
273	273
274		version 2.0604
	274	version 2.0800
275	275
276	276	=head1 DESCRIPTION
277	277

396	396
397	397	=head1 COPYRIGHT AND LICENSE
398	398
399		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	399	This software is copyright (c) 2013 by Infinity Interactive, Inc..
400	400
401	401	This is free software; you can redistribute it and/or modify it under
402	402	the same terms as the Perl 5 programming language system itself.
403	403
404	404	=cut
405
406
407		__END__
408

+4

-8

lib/Class/MOP.pm less more

3	3	$Class::MOP::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Class::MOP::VERSION = '2.0604';
	6	$Class::MOP::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

720	720
721	721	# ABSTRACT: A Meta Object Protocol for Perl 5
722	722
723
	723	__END__
724	724
725	725	=pod
726	726

730	730
731	731	=head1 VERSION
732	732
733		version 2.0604
	733	version 2.0800
734	734
735	735	=head1 DESCRIPTION
736	736

1113	1113
1114	1114	=head1 COPYRIGHT AND LICENSE
1115	1115
1116		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1116	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1117	1117
1118	1118	This is free software; you can redistribute it and/or modify it under
1119	1119	the same terms as the Perl 5 programming language system itself.
1120	1120
1121	1121	=cut
1122
1123
1124		__END__
1125

+3

-8

lib/Moose/Cookbook/Basics/BankAccount_MethodModifiersAndSubclassing.pod less more

1	1
2	2	# ABSTRACT: Demonstrates the use of method modifiers in a subclass
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

332	332
333	333	=head1 COPYRIGHT AND LICENSE
334	334
335		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	335	This software is copyright (c) 2013 by Infinity Interactive, Inc..
336	336
337	337	This is free software; you can redistribute it and/or modify it under
338	338	the same terms as the Perl 5 programming language system itself.
339	339
340	340	=cut
341
342
343		__END__
344
345

+3

-8

lib/Moose/Cookbook/Basics/BinaryTree_AttributeFeatures.pod less more

1	1
2	2	# ABSTRACT: Demonstrates various attribute features including lazy, predicates, weak refs, and more
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

345	345
346	346	=head1 COPYRIGHT AND LICENSE
347	347
348		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	348	This software is copyright (c) 2013 by Infinity Interactive, Inc..
349	349
350	350	This is free software; you can redistribute it and/or modify it under
351	351	the same terms as the Perl 5 programming language system itself.
352	352
353	353	=cut
354
355
356		__END__
357
358

+3

-8

lib/Moose/Cookbook/Basics/BinaryTree_BuilderAndLazyBuild.pod less more

1	1
2	2	# ABSTRACT: Builder methods and lazy_build
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

124	124
125	125	=head1 COPYRIGHT AND LICENSE
126	126
127		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	127	This software is copyright (c) 2013 by Infinity Interactive, Inc..
128	128
129	129	This is free software; you can redistribute it and/or modify it under
130	130	the same terms as the Perl 5 programming language system itself.
131	131
132	132	=cut
133
134
135		__END__
136
137

+3

-8

lib/Moose/Cookbook/Basics/Company_Subtypes.pod less more

1	1
2	2	# ABSTRACT: Demonstrates the use of subtypes and how to model classes related to companies, people, employees, etc.
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

550	550
551	551	=head1 COPYRIGHT AND LICENSE
552	552
553		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	553	This software is copyright (c) 2013 by Infinity Interactive, Inc..
554	554
555	555	This is free software; you can redistribute it and/or modify it under
556	556	the same terms as the Perl 5 programming language system itself.
557	557
558	558	=cut
559
560
561		__END__
562
563

+3

-8

lib/Moose/Cookbook/Basics/DateTime_ExtendingNonMooseParent.pod less more

1	1
2	2	# ABSTRACT: Extending a non-Moose parent class
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

75	75
76	76	=head1 COPYRIGHT AND LICENSE
77	77
78		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	78	This software is copyright (c) 2013 by Infinity Interactive, Inc..
79	79
80	80	This is free software; you can redistribute it and/or modify it under
81	81	the same terms as the Perl 5 programming language system itself.
82	82
83	83	=cut
84
85
86		__END__
87
88

+3

-8

lib/Moose/Cookbook/Basics/Document_AugmentAndInner.pod less more

1	1
2	2	# ABSTRACT: The augment modifier, which turns normal method overriding "inside-out"
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

145	145
146	146	=head1 COPYRIGHT AND LICENSE
147	147
148		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	148	This software is copyright (c) 2013 by Infinity Interactive, Inc..
149	149
150	150	This is free software; you can redistribute it and/or modify it under
151	151	the same terms as the Perl 5 programming language system itself.
152	152
153	153	=cut
154
155
156		__END__
157
158

+3

-9

lib/Moose/Cookbook/Basics/Genome_OverloadingSubtypesAndCoercion.pod less more

1	1
2	2	# ABSTRACT: Operator overloading, subtypes, and coercion
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

273	273
274	274	=head1 COPYRIGHT AND LICENSE
275	275
276		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	276	This software is copyright (c) 2013 by Infinity Interactive, Inc..
277	277
278	278	This is free software; you can redistribute it and/or modify it under
279	279	the same terms as the Perl 5 programming language system itself.
280	280
281	281	=cut
282
283
284		__END__
285
286
287

+3

-8

lib/Moose/Cookbook/Basics/HTTP_SubtypesAndCoercion.pod less more

1	1
2	2	# ABSTRACT: Demonstrates subtypes and coercion use HTTP-related classes (Request, Protocol, etc.)
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

293	293
294	294	=head1 COPYRIGHT AND LICENSE
295	295
296		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	296	This software is copyright (c) 2013 by Infinity Interactive, Inc..
297	297
298	298	This is free software; you can redistribute it and/or modify it under
299	299	the same terms as the Perl 5 programming language system itself.
300	300
301	301	=cut
302
303
304		__END__
305
306

+3

-8

lib/Moose/Cookbook/Basics/Immutable.pod less more

1	1
2	2	# ABSTRACT: Making Moose fast by making your class immutable
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

47	47
48	48	=head1 COPYRIGHT AND LICENSE
49	49
50		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	50	This software is copyright (c) 2013 by Infinity Interactive, Inc..
51	51
52	52	This is free software; you can redistribute it and/or modify it under
53	53	the same terms as the Perl 5 programming language system itself.
54	54
55	55	=cut
56
57
58		__END__
59
60

+3

-8

lib/Moose/Cookbook/Basics/Person_BUILDARGSAndBUILD.pod less more

1	1
2	2	# ABSTRACT: Using BUILDARGS and BUILD to hook into object construction
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

128	128
129	129	=head1 COPYRIGHT AND LICENSE
130	130
131		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	131	This software is copyright (c) 2013 by Infinity Interactive, Inc..
132	132
133	133	This is free software; you can redistribute it and/or modify it under
134	134	the same terms as the Perl 5 programming language system itself.
135	135
136	136	=cut
137
138
139		__END__
140
141

+3

-8

lib/Moose/Cookbook/Basics/Point_AttributesAndSubclassing.pod less more

1	1
2	2	# ABSTRACT: Point and Point3D classes, showing basic attributes and subclassing.
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

437	437
438	438	=head1 COPYRIGHT AND LICENSE
439	439
440		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	440	This software is copyright (c) 2013 by Infinity Interactive, Inc..
441	441
442	442	This is free software; you can redistribute it and/or modify it under
443	443	the same terms as the Perl 5 programming language system itself.
444	444
445	445	=cut
446
447
448		__END__
449
450

+3

-8

lib/Moose/Cookbook/Extending/Debugging_BaseClassRole.pod less more

1	1
2	2	# ABSTRACT: Providing a role for the base object class
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

102	102
103	103	=head1 COPYRIGHT AND LICENSE
104	104
105		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	105	This software is copyright (c) 2013 by Infinity Interactive, Inc..
106	106
107	107	This is free software; you can redistribute it and/or modify it under
108	108	the same terms as the Perl 5 programming language system itself.
109	109
110	110	=cut
111
112
113		__END__
114
115

+3

-8

lib/Moose/Cookbook/Extending/ExtensionOverview.pod less more

1	1
2	2	# ABSTRACT: Moose extension overview
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

352	352
353	353	=head1 COPYRIGHT AND LICENSE
354	354
355		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	355	This software is copyright (c) 2013 by Infinity Interactive, Inc..
356	356
357	357	This is free software; you can redistribute it and/or modify it under
358	358	the same terms as the Perl 5 programming language system itself.
359	359
360	360	=cut
361
362
363		__END__
364
365

+3

-8

lib/Moose/Cookbook/Extending/Mooseish_MooseSugar.pod less more

1	1
2	2	# ABSTRACT: Acting like Moose.pm and providing sugar Moose-style
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

108	108
109	109	=head1 COPYRIGHT AND LICENSE
110	110
111		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	111	This software is copyright (c) 2013 by Infinity Interactive, Inc..
112	112
113	113	This is free software; you can redistribute it and/or modify it under
114	114	the same terms as the Perl 5 programming language system itself.
115	115
116	116	=cut
117
118
119		__END__
120
121

+4

-12

lib/Moose/Cookbook/Legacy/Debugging_BaseClassReplacement.pm less more

2	2	$Moose::Cookbook::Legacy::Debugging_BaseClassReplacement::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Cookbook::Legacy::Debugging_BaseClassReplacement::VERSION = '2.0604';
	5	$Moose::Cookbook::Legacy::Debugging_BaseClassReplacement::VERSION = '2.0800';
6	6	}
7	7
8	8	# ABSTRACT: Providing an alternate base object class
9	9
10
11
12
13
14
	10	__END__
15	11
16	12	=pod
17	13

21	17
22	18	=head1 VERSION
23	19
24		version 2.0604
	20	version 2.0800
25	21
26	22	=head1 SYNOPSIS
27	23

150	146
151	147	=head1 COPYRIGHT AND LICENSE
152	148
153		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	149	This software is copyright (c) 2013 by Infinity Interactive, Inc..
154	150
155	151	This is free software; you can redistribute it and/or modify it under
156	152	the same terms as the Perl 5 programming language system itself.
157	153
158	154	=cut
159
160
161		__END__
162

+4

-10

lib/Moose/Cookbook/Legacy/Labeled_AttributeMetaclass.pm less more

2	2	$Moose::Cookbook::Meta::Labeled_AttributeMetaclass::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Cookbook::Meta::Labeled_AttributeMetaclass::VERSION = '2.0604';
	5	$Moose::Cookbook::Meta::Labeled_AttributeMetaclass::VERSION = '2.0800';
6	6	}
7	7
8	8	# ABSTRACT: A meta-attribute, attributes with labels
9	9
10
	10	__END__
11	11
12	12	=pod
13	13

17	17
18	18	=head1 VERSION
19	19
20		version 2.0604
	20	version 2.0800
21	21
22	22	=head1 SYNOPSIS
23	23

291	291
292	292	=head1 COPYRIGHT AND LICENSE
293	293
294		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	294	This software is copyright (c) 2013 by Infinity Interactive, Inc..
295	295
296	296	This is free software; you can redistribute it and/or modify it under
297	297	the same terms as the Perl 5 programming language system itself.
298	298
299	299	=cut
300
301
302		__END__
303
304
305

+3

-8

lib/Moose/Cookbook/Legacy/Table_ClassMetaclass.pod less more

1	1
2	2	# ABSTRACT: Adding a "table" attribute to the metaclass
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

80	80
81	81	=head1 COPYRIGHT AND LICENSE
82	82
83		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	83	This software is copyright (c) 2013 by Infinity Interactive, Inc..
84	84
85	85	This is free software; you can redistribute it and/or modify it under
86	86	the same terms as the Perl 5 programming language system itself.
87	87
88	88	=cut
89
90
91		__END__
92
93

+3

-8

lib/Moose/Cookbook/Meta/GlobRef_InstanceMetaclass.pod less more

1	1
2	2	# ABSTRACT: Creating a glob reference meta-instance class
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

261	261
262	262	=head1 COPYRIGHT AND LICENSE
263	263
264		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	264	This software is copyright (c) 2013 by Infinity Interactive, Inc..
265	265
266	266	This is free software; you can redistribute it and/or modify it under
267	267	the same terms as the Perl 5 programming language system itself.
268	268
269	269	=cut
270
271
272		__END__
273
274

+3

-8

lib/Moose/Cookbook/Meta/Labeled_AttributeTrait.pod less more

1	1
2	2	# ABSTRACT: Labels implemented via attribute traits
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

273	273
274	274	=head1 COPYRIGHT AND LICENSE
275	275
276		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	276	This software is copyright (c) 2013 by Infinity Interactive, Inc..
277	277
278	278	This is free software; you can redistribute it and/or modify it under
279	279	the same terms as the Perl 5 programming language system itself.
280	280
281	281	=cut
282
283
284		__END__
285
286

+3

-8

lib/Moose/Cookbook/Meta/PrivateOrPublic_MethodMetaclass.pod less more

1	1
2	2	# ABSTRACT: A method metaclass for marking methods public or private
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

170	170
171	171	=head1 COPYRIGHT AND LICENSE
172	172
173		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	173	This software is copyright (c) 2013 by Infinity Interactive, Inc..
174	174
175	175	This is free software; you can redistribute it and/or modify it under
176	176	the same terms as the Perl 5 programming language system itself.
177	177
178	178	=cut
179
180
181		__END__
182
183

+3

-8

lib/Moose/Cookbook/Meta/Table_MetaclassTrait.pod less more

1	1
2	2	# ABSTRACT: Adding a "table" attribute as a metaclass trait
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

104	104
105	105	=head1 COPYRIGHT AND LICENSE
106	106
107		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	107	This software is copyright (c) 2013 by Infinity Interactive, Inc..
108	108
109	109	This is free software; you can redistribute it and/or modify it under
110	110	the same terms as the Perl 5 programming language system itself.
111	111
112	112	=cut
113
114
115		__END__
116
117

+3

-10

lib/Moose/Cookbook/Meta/WhyMeta.pod less more

1	1
2	2	# ABSTRACT: Welcome to the meta world (Why Go Meta?)
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SUMMARY
17	17

65	65
66	66	=head1 COPYRIGHT AND LICENSE
67	67
68		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	68	This software is copyright (c) 2013 by Infinity Interactive, Inc..
69	69
70	70	This is free software; you can redistribute it and/or modify it under
71	71	the same terms as the Perl 5 programming language system itself.
72	72
73	73	=cut
74
75
76		__END__
77
78
79
80

+3

-7

lib/Moose/Cookbook/Roles/ApplicationToInstance.pod less more

1	1
2	2	# ABSTRACT: Applying a role to an object instance
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

139	139
140	140	=head1 COPYRIGHT AND LICENSE
141	141
142		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	142	This software is copyright (c) 2013 by Infinity Interactive, Inc..
143	143
144	144	This is free software; you can redistribute it and/or modify it under
145	145	the same terms as the Perl 5 programming language system itself.
146	146
147	147	=cut
148
149
150		__END__
151

+3

-8

lib/Moose/Cookbook/Roles/Comparable_CodeReuse.pod less more

1	1
2	2	# ABSTRACT: Using roles for code reuse
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

327	327
328	328	=head1 COPYRIGHT AND LICENSE
329	329
330		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	330	This software is copyright (c) 2013 by Infinity Interactive, Inc..
331	331
332	332	This is free software; you can redistribute it and/or modify it under
333	333	the same terms as the Perl 5 programming language system itself.
334	334
335	335	=cut
336
337
338		__END__
339
340

+3

-8

lib/Moose/Cookbook/Roles/Restartable_AdvancedComposition.pod less more

1	1
2	2	# ABSTRACT: Advanced Role Composition - method exclusion and aliasing
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

178	178
179	179	=head1 COPYRIGHT AND LICENSE
180	180
181		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	181	This software is copyright (c) 2013 by Infinity Interactive, Inc..
182	182
183	183	This is free software; you can redistribute it and/or modify it under
184	184	the same terms as the Perl 5 programming language system itself.
185	185
186	186	=cut
187
188
189		__END__
190
191

+3

-7

lib/Moose/Cookbook/Snack/Keywords.pod less more

1	1
2	2	# ABSTRACT: Restricted "keywords" in Moose
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

188	188
189	189	=head1 COPYRIGHT AND LICENSE
190	190
191		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	191	This software is copyright (c) 2013 by Infinity Interactive, Inc..
192	192
193	193	This is free software; you can redistribute it and/or modify it under
194	194	the same terms as the Perl 5 programming language system itself.
195	195
196	196	=cut
197
198
199		__END__
200

+3

-8

lib/Moose/Cookbook/Snack/Types.pod less more

1	1
2	2	# ABSTRACT: Snippets of code for using Types and Type Constraints
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SYNOPSIS
17	17

78	78
79	79	=head1 COPYRIGHT AND LICENSE
80	80
81		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	81	This software is copyright (c) 2013 by Infinity Interactive, Inc..
82	82
83	83	This is free software; you can redistribute it and/or modify it under
84	84	the same terms as the Perl 5 programming language system itself.
85	85
86	86	=cut
87
88
89		__END__
90
91

+3

-7

lib/Moose/Cookbook/Style.pod less more

1	1
2	2	# ABSTRACT: Expanded into Moose::Manual::BestPractices, so go read that
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

25	25
26	26	=head1 COPYRIGHT AND LICENSE
27	27
28		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	28	This software is copyright (c) 2013 by Infinity Interactive, Inc..
29	29
30	30	This is free software; you can redistribute it and/or modify it under
31	31	the same terms as the Perl 5 programming language system itself.
32	32
33	33	=cut
34
35
36		__END__
37

+3

-8

lib/Moose/Cookbook.pod less more

1	1
2	2	# ABSTRACT: How to cook a Moose
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

237	237
238	238	=head1 COPYRIGHT AND LICENSE
239	239
240		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	240	This software is copyright (c) 2013 by Infinity Interactive, Inc..
241	241
242	242	This is free software; you can redistribute it and/or modify it under
243	243	the same terms as the Perl 5 programming language system itself.
244	244
245	245	=cut
246
247
248		__END__
249
250

+4

-8

lib/Moose/Deprecated.pm less more

2	2	$Moose::Deprecated::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Deprecated::VERSION = '2.0604';
	5	$Moose::Deprecated::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

21	21
22	22	# ABSTRACT: Manages deprecation warnings for Moose
23	23
24
	24	__END__
25	25
26	26	=pod
27	27

31	31
32	32	=head1 VERSION
33	33
34		version 2.0604
	34	version 2.0800
35	35
36	36	=head1 DESCRIPTION
37	37

52	52
53	53	=head1 COPYRIGHT AND LICENSE
54	54
55		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	55	This software is copyright (c) 2013 by Infinity Interactive, Inc..
56	56
57	57	This is free software; you can redistribute it and/or modify it under
58	58	the same terms as the Perl 5 programming language system itself.
59	59
60	60	=cut
61
62
63		__END__
64

+4

-11

lib/Moose/Error/Confess.pm less more

2	2	$Moose::Error::Confess::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Error::Confess::VERSION = '2.0604';
	5	$Moose::Error::Confess::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

29	29
30	30	# ABSTRACT: Prefer C<confess>
31	31
32
	32	__END__
33	33
34	34	=pod
35	35

39	39
40	40	=head1 VERSION
41	41
42		version 2.0604
	42	version 2.0800
43	43
44	44	=head1 SYNOPSIS
45	45

62	62
63	63	=head1 COPYRIGHT AND LICENSE
64	64
65		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	65	This software is copyright (c) 2013 by Infinity Interactive, Inc..
66	66
67	67	This is free software; you can redistribute it and/or modify it under
68	68	the same terms as the Perl 5 programming language system itself.
69	69
70	70	=cut
71
72
73		__END__
74
75
76
77

+4

-10

lib/Moose/Error/Croak.pm less more

2	2	$Moose::Error::Croak::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Error::Croak::VERSION = '2.0604';
	5	$Moose::Error::Croak::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

29	29
30	30	# ABSTRACT: Prefer C<croak>
31	31
32
	32	__END__
33	33
34	34	=pod
35	35

39	39
40	40	=head1 VERSION
41	41
42		version 2.0604
	42	version 2.0800
43	43
44	44	=head1 SYNOPSIS
45	45

72	72
73	73	=head1 COPYRIGHT AND LICENSE
74	74
75		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	75	This software is copyright (c) 2013 by Infinity Interactive, Inc..
76	76
77	77	This is free software; you can redistribute it and/or modify it under
78	78	the same terms as the Perl 5 programming language system itself.
79	79
80	80	=cut
81
82
83		__END__
84
85
86

+4

-10

lib/Moose/Error/Default.pm less more

2	2	$Moose::Error::Default::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Error::Default::VERSION = '2.0604';
	5	$Moose::Error::Default::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

54	54
55	55	# ABSTRACT: L<Carp> based error generation for Moose.
56	56
57
	57	__END__
58	58
59	59	=pod
60	60

64	64
65	65	=head1 VERSION
66	66
67		version 2.0604
	67	version 2.0800
68	68
69	69	=head1 DESCRIPTION
70	70

99	99
100	100	=head1 COPYRIGHT AND LICENSE
101	101
102		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	102	This software is copyright (c) 2013 by Infinity Interactive, Inc..
103	103
104	104	This is free software; you can redistribute it and/or modify it under
105	105	the same terms as the Perl 5 programming language system itself.
106	106
107	107	=cut
108
109
110		__END__
111
112
113

+73

-49

lib/Moose/Exporter.pm less more

2	2	$Moose::Exporter::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Exporter::VERSION = '2.0604';
	5	$Moose::Exporter::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

138	138	);
139	139	}
140	140
141		{
142		our %_seen;
143
144		sub _follow_also {
145		my $class = shift;
146		my $exporting_package = shift;
147
148		local %_seen = ( $exporting_package => 1 );
149
150		return uniq( _follow_also_real($exporting_package) );
151		}
152
153		sub _follow_also_real {
154		my $exporting_package = shift;
155
156		if ( !exists $EXPORT_SPEC{$exporting_package} ) {
157		my $loaded = is_class_loaded($exporting_package);
158
159		die "Package in also ($exporting_package) does not seem to "
160		. "use Moose::Exporter"
161		. ( $loaded ? "" : " (is it loaded?)" );
162		}
163
164		my $also = $EXPORT_SPEC{$exporting_package}{also};
165
166		return unless defined $also;
167
168		my @also = ref $also ? @{$also} : $also;
169
170		for my $package (@also) {
	141	sub _follow_also {
	142	my $class = shift;
	143	my $exporting_package = shift;
	144
	145	_die_if_cycle_found_in_also_list_for_package($exporting_package);
	146
	147	return uniq( _follow_also_real($exporting_package) );
	148	}
	149
	150	sub _follow_also_real {
	151	my $exporting_package = shift;
	152	my @also = _also_list_for_package($exporting_package);
	153
	154	return map { $_, _follow_also_real($_) } @also;
	155	}
	156
	157	sub _also_list_for_package {
	158	my $package = shift;
	159
	160	if ( !exists $EXPORT_SPEC{$package} ) {
	161	my $loaded = is_class_loaded($package);
	162
	163	die "Package in also ($package) does not seem to "
	164	. "use Moose::Exporter"
	165	. ( $loaded ? "" : " (is it loaded?)" );
	166	}
	167
	168	my $also = $EXPORT_SPEC{$package}{also};
	169
	170	return unless defined $also;
	171
	172	return ref $also ? @$also : $also;
	173	}
	174
	175	# this is no Tarjan algorithm, but for the list sizes expected,
	176	# brute force will probably be fine (and more maintainable)
	177	sub _die_if_cycle_found_in_also_list_for_package {
	178	my $package = shift;
	179	_die_if_also_list_cycles_back_to_existing_stack(
	180	[ _also_list_for_package($package) ],
	181	[$package],
	182	);
	183	}
	184
	185	sub _die_if_also_list_cycles_back_to_existing_stack {
	186	my ( $also_list, $existing_stack ) = @_;
	187
	188	return unless @$also_list && @$existing_stack;
	189
	190	for my $also_member (@$also_list) {
	191	for my $stack_member (@$existing_stack) {
	192	next unless $also_member eq $stack_member;
	193
171	194	die
172		"Circular reference in 'also' parameter to Moose::Exporter between $exporting_package and $package"
173		if $_seen{$package};
174
175		$_seen{$package} = 1;
176		}
177
178		return map { $_, _follow_also_real($_) } @also;
	195	"Circular reference in 'also' parameter to Moose::Exporter between "
	196	. join(
	197	', ',
	198	@$existing_stack
	199	) . " and $also_member";
	200	}
	201
	202	_die_if_also_list_cycles_back_to_existing_stack(
	203	[ _also_list_for_package($also_member) ],
	204	[ $also_member, @$existing_stack ],
	205	);
179	206	}
180	207	}
181	208

620	647
621	648	my $meta = $meta_lookup->($class);
622	649
623		my $type = ( split /::/, ref $meta )[-1]
624		or Moose->throw_error(
625		'Cannot determine metaclass type for trait application . Meta isa '
626		. ref $meta );
	650	my $type = $meta->isa('Moose::Meta::Role') ? 'Trait'
	651	: $meta->isa('Class::MOP::Class') ? 'Class'
	652	: Moose->throw_error('Cannot determine metaclass type for '
	653	. 'trait application. Meta isa '
	654	. ref $meta);
627	655
628	656	my @resolved_traits = map {
629	657	ref $_

758	786
759	787	# ABSTRACT: make an import() and unimport() just like Moose.pm
760	788
761
	789	__END__
762	790
763	791	=pod
764	792

768	796
769	797	=head1 VERSION
770	798
771		version 2.0604
	799	version 2.0800
772	800
773	801	=head1 SYNOPSIS
774	802

972	1000
973	1001	=head1 COPYRIGHT AND LICENSE
974	1002
975		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1003	This software is copyright (c) 2013 by Infinity Interactive, Inc..
976	1004
977	1005	This is free software; you can redistribute it and/or modify it under
978	1006	the same terms as the Perl 5 programming language system itself.
979	1007
980	1008	=cut
981
982
983		__END__
984

+3

-7

lib/Moose/Intro.pod less more

1	1
2	2	# ABSTRACT: Expanded into Moose::Manual, so go read that
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

25	25
26	26	=head1 COPYRIGHT AND LICENSE
27	27
28		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	28	This software is copyright (c) 2013 by Infinity Interactive, Inc..
29	29
30	30	This is free software; you can redistribute it and/or modify it under
31	31	the same terms as the Perl 5 programming language system itself.
32	32
33	33	=cut
34
35
36		__END__
37

+3

-7

lib/Moose/Manual/Attributes.pod less more

1	1
2	2	# ABSTRACT: Object attributes with Moose
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 INTRODUCTION
17	17

638	638
639	639	=head1 COPYRIGHT AND LICENSE
640	640
641		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	641	This software is copyright (c) 2013 by Infinity Interactive, Inc..
642	642
643	643	This is free software; you can redistribute it and/or modify it under
644	644	the same terms as the Perl 5 programming language system itself.
645	645
646	646	=cut
647
648
649		__END__
650

+3

-7

lib/Moose/Manual/BestPractices.pod less more

1	1
2	2	# ABSTRACT: Get the most out of Moose
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 RECOMMENDATIONS
17	17

240	240
241	241	=head1 COPYRIGHT AND LICENSE
242	242
243		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	243	This software is copyright (c) 2013 by Infinity Interactive, Inc..
244	244
245	245	This is free software; you can redistribute it and/or modify it under
246	246	the same terms as the Perl 5 programming language system itself.
247	247
248	248	=cut
249
250
251		__END__
252

+3

-7

lib/Moose/Manual/Classes.pod less more

1	1
2	2	# ABSTRACT: Making your classes use Moose (and subclassing)
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 USING MOOSE
17	17

150	150
151	151	=head1 COPYRIGHT AND LICENSE
152	152
153		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	153	This software is copyright (c) 2013 by Infinity Interactive, Inc..
154	154
155	155	This is free software; you can redistribute it and/or modify it under
156	156	the same terms as the Perl 5 programming language system itself.
157	157
158	158	=cut
159
160
161		__END__
162

+3

-7

lib/Moose/Manual/Concepts.pod less more

1	1
2	2	# ABSTRACT: Moose OO concepts
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 MOOSE CONCEPTS (VS "OLD SCHOOL" Perl)
17	17

387	387
388	388	=head1 COPYRIGHT AND LICENSE
389	389
390		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	390	This software is copyright (c) 2013 by Infinity Interactive, Inc..
391	391
392	392	This is free software; you can redistribute it and/or modify it under
393	393	the same terms as the Perl 5 programming language system itself.
394	394
395	395	=cut
396
397
398		__END__
399

+3

-7

lib/Moose/Manual/Construction.pod less more

1	1
2	2	# ABSTRACT: Object construction (and destruction) with Moose
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 WHERE'S THE CONSTRUCTOR?
17	17

171	171
172	172	=head1 COPYRIGHT AND LICENSE
173	173
174		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	174	This software is copyright (c) 2013 by Infinity Interactive, Inc..
175	175
176	176	This is free software; you can redistribute it and/or modify it under
177	177	the same terms as the Perl 5 programming language system itself.
178	178
179	179	=cut
180
181
182		__END__
183

+3

-7

lib/Moose/Manual/Contributing.pod less more

1	1
2	2	# ABSTRACT: How to get involved in Moose
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 GETTING INVOLVED
17	17

389	389
390	390	=head1 COPYRIGHT AND LICENSE
391	391
392		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	392	This software is copyright (c) 2013 by Infinity Interactive, Inc..
393	393
394	394	This is free software; you can redistribute it and/or modify it under
395	395	the same terms as the Perl 5 programming language system itself.
396	396
397	397	=cut
398
399
400		__END__
401

+3

-7

lib/Moose/Manual/Delegation.pod less more

1	1
2	2	# ABSTRACT: Attribute delegation
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 WHAT IS DELEGATION?
17	17

191	191
192	192	=head1 COPYRIGHT AND LICENSE
193	193
194		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	194	This software is copyright (c) 2013 by Infinity Interactive, Inc..
195	195
196	196	This is free software; you can redistribute it and/or modify it under
197	197	the same terms as the Perl 5 programming language system itself.
198	198
199	199	=cut
200
201
202		__END__
203

+3

-7

lib/Moose/Manual/Delta.pod less more

1	1
2	2	# ABSTRACT: Important Changes in Moose
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

1053	1053
1054	1054	=head1 COPYRIGHT AND LICENSE
1055	1055
1056		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1056	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1057	1057
1058	1058	This is free software; you can redistribute it and/or modify it under
1059	1059	the same terms as the Perl 5 programming language system itself.
1060	1060
1061	1061	=cut
1062
1063
1064		__END__
1065

+3

-8

lib/Moose/Manual/FAQ.pod less more

1	1
2	2	# ABSTRACT: Frequently asked questions about Moose
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 FREQUENTLY ASKED QUESTIONS
17	17

418	418
419	419	=head1 COPYRIGHT AND LICENSE
420	420
421		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	421	This software is copyright (c) 2013 by Infinity Interactive, Inc..
422	422
423	423	This is free software; you can redistribute it and/or modify it under
424	424	the same terms as the Perl 5 programming language system itself.
425	425
426	426	=cut
427
428
429		__END__
430
431

+3

-7

lib/Moose/Manual/MOP.pod less more

1	1
2	2	# ABSTRACT: The Moose (and Class::MOP) meta API
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 INTRODUCTION
17	17

162	162
163	163	=head1 COPYRIGHT AND LICENSE
164	164
165		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	165	This software is copyright (c) 2013 by Infinity Interactive, Inc..
166	166
167	167	This is free software; you can redistribute it and/or modify it under
168	168	the same terms as the Perl 5 programming language system itself.
169	169
170	170	=cut
171
172
173		__END__
174

+3

-8

lib/Moose/Manual/MethodModifiers.pod less more

1	1
2	2	# ABSTRACT: Moose's method modifiers
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 WHAT IS A METHOD MODIFIER?
17	17

328	328
329	329	=head1 COPYRIGHT AND LICENSE
330	330
331		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	331	This software is copyright (c) 2013 by Infinity Interactive, Inc..
332	332
333	333	This is free software; you can redistribute it and/or modify it under
334	334	the same terms as the Perl 5 programming language system itself.
335	335
336	336	=cut
337
338
339		__END__
340
341

+3

-7

lib/Moose/Manual/MooseX.pod less more

1	1
2	2	# ABSTRACT: Recommended Moose extensions
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 MooseX?
17	17

272	272
273	273	=head1 COPYRIGHT AND LICENSE
274	274
275		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	275	This software is copyright (c) 2013 by Infinity Interactive, Inc..
276	276
277	277	This is free software; you can redistribute it and/or modify it under
278	278	the same terms as the Perl 5 programming language system itself.
279	279
280	280	=cut
281
282
283		__END__
284

+3

-7

lib/Moose/Manual/Roles.pod less more

1	1
2	2	# ABSTRACT: Roles, an alternative to deep hierarchies and base classes
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 WHAT IS A ROLE?
17	17

339	339
340	340	=head1 COPYRIGHT AND LICENSE
341	341
342		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	342	This software is copyright (c) 2013 by Infinity Interactive, Inc..
343	343
344	344	This is free software; you can redistribute it and/or modify it under
345	345	the same terms as the Perl 5 programming language system itself.
346	346
347	347	=cut
348
349
350		__END__
351

+3

-7

lib/Moose/Manual/Support.pod less more

1	1
2	2	# ABSTRACT: Policies regarding support, releases, and compatibility.
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 SUPPORT POLICY
17	17

151	151
152	152	=head1 COPYRIGHT AND LICENSE
153	153
154		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	154	This software is copyright (c) 2013 by Infinity Interactive, Inc..
155	155
156	156	This is free software; you can redistribute it and/or modify it under
157	157	the same terms as the Perl 5 programming language system itself.
158	158
159	159	=cut
160
161
162		__END__
163

+22

-26

lib/Moose/Manual/Types.pod less more

1	1
2	2	# ABSTRACT: Moose's type system
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 TYPES IN PERL?
17	17

41	41	The basic Moose type hierarchy looks like this
42	42
43	43	Any
44		Item
45		Bool
46		Maybe[`a]
47		Undef
48		Defined
49		Value
50		Str
51		Num
52		Int
53		ClassName
54		RoleName
55		Ref
56		ScalarRef[`a]
57		ArrayRef[`a]
58		HashRef[`a]
59		CodeRef
60		RegexpRef
61		GlobRef
	44	Item
	45	Bool
	46	Maybe[`a]
	47	Undef
	48	Defined
	49	Value
	50	Str
	51	Num
	52	Int
	53	ClassName
	54	RoleName
	55	Ref
	56	ScalarRef[`a]
	57	ArrayRef[`a]
	58	HashRef[`a]
	59	CodeRef
	60	RegexpRef
	61	GlobRef
62	62	FileHandle
63		Object
	63	Object
64	64
65	65	In practice, the only difference between C<Any> and C<Item> is
66	66	conceptual. C<Item> is used as the top-level type in the hierarchy.

437	437
438	438	=head1 COPYRIGHT AND LICENSE
439	439
440		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	440	This software is copyright (c) 2013 by Infinity Interactive, Inc..
441	441
442	442	This is free software; you can redistribute it and/or modify it under
443	443	the same terms as the Perl 5 programming language system itself.
444	444
445	445	=cut
446
447
448		__END__
449

+3

-7

lib/Moose/Manual/Unsweetened.pod less more

1	1
2	2	# ABSTRACT: Moose idioms in plain old Perl 5 without the sugar
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

334	334
335	335	=head1 COPYRIGHT AND LICENSE
336	336
337		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	337	This software is copyright (c) 2013 by Infinity Interactive, Inc..
338	338
339	339	This is free software; you can redistribute it and/or modify it under
340	340	the same terms as the Perl 5 programming language system itself.
341	341
342	342	=cut
343
344
345		__END__
346

+3

-7

lib/Moose/Manual.pod less more

1	1
2	2	# ABSTRACT: What is Moose, and how do I use it?
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 WHAT IS MOOSE?
17	17

263	263
264	264	=head1 COPYRIGHT AND LICENSE
265	265
266		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	266	This software is copyright (c) 2013 by Infinity Interactive, Inc..
267	267
268	268	This is free software; you can redistribute it and/or modify it under
269	269	the same terms as the Perl 5 programming language system itself.
270	270
271	271	=cut
272
273
274		__END__
275

+9

-11

lib/Moose/Meta/Attribute/Native/Trait/Array.pm less more

3	3	$Moose::Meta::Attribute::Native::Trait::Array::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Attribute::Native::Trait::Array::VERSION = '2.0604';
	6	$Moose::Meta::Attribute::Native::Trait::Array::VERSION = '2.0800';
7	7	}
8	8	use Moose::Role;
9	9

17	17
18	18	# ABSTRACT: Helper trait for ArrayRef attributes
19	19
20
	20	__END__
21	21
22	22	=pod
23	23

27	27
28	28	=head1 VERSION
29	29
30		version 2.0604
	30	version 2.0800
31	31
32	32	=head1 SYNOPSIS
33	33

307	307	=item * B<natatime($n, $code)>
308	308
309	309	This method returns an iterator which, on each call, returns C<$n> more items
310		from the array, in order, like C<natatime> from L<List::MoreUtils>. A coderef
311		can optionally be provided; it will be called on each group of C<$n> elements
312		in the array.
	310	from the array, in order, like C<natatime> from L<List::MoreUtils>.
	311
	312	If you pass a coderef as the second argument, then this code ref will be
	313	called on each group of C<$n> elements in the array until the array is
	314	exhausted.
313	315
314	316	This method accepts one or two arguments.
315	317

332	334
333	335	=head1 COPYRIGHT AND LICENSE
334	336
335		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	337	This software is copyright (c) 2013 by Infinity Interactive, Inc..
336	338
337	339	This is free software; you can redistribute it and/or modify it under
338	340	the same terms as the Perl 5 programming language system itself.
339	341
340	342	=cut
341
342
343		__END__
344

+4

-8

lib/Moose/Meta/Attribute/Native/Trait/Bool.pm less more

2	2	$Moose::Meta::Attribute::Native::Trait::Bool::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Attribute::Native::Trait::Bool::VERSION = '2.0604';
	5	$Moose::Meta::Attribute::Native::Trait::Bool::VERSION = '2.0800';
6	6	}
7	7	use Moose::Role;
8	8

17	17
18	18	# ABSTRACT: Helper trait for Bool attributes
19	19
20
	20	__END__
21	21
22	22	=pod
23	23

27	27
28	28	=head1 VERSION
29	29
30		version 2.0604
	30	version 2.0800
31	31
32	32	=head1 SYNOPSIS
33	33

99	99
100	100	=head1 COPYRIGHT AND LICENSE
101	101
102		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	102	This software is copyright (c) 2013 by Infinity Interactive, Inc..
103	103
104	104	This is free software; you can redistribute it and/or modify it under
105	105	the same terms as the Perl 5 programming language system itself.
106	106
107	107	=cut
108
109
110		__END__
111

+4

-8

lib/Moose/Meta/Attribute/Native/Trait/Code.pm less more

2	2	$Moose::Meta::Attribute::Native::Trait::Code::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Attribute::Native::Trait::Code::VERSION = '2.0604';
	5	$Moose::Meta::Attribute::Native::Trait::Code::VERSION = '2.0800';
6	6	}
7	7	use Moose::Role;
8	8

16	16
17	17	# ABSTRACT: Helper trait for CodeRef attributes
18	18
19
	19	__END__
20	20
21	21	=pod
22	22

26	26
27	27	=head1 VERSION
28	28
29		version 2.0604
	29	version 2.0800
30	30
31	31	=head1 SYNOPSIS
32	32

81	81
82	82	=head1 COPYRIGHT AND LICENSE
83	83
84		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	84	This software is copyright (c) 2013 by Infinity Interactive, Inc..
85	85
86	86	This is free software; you can redistribute it and/or modify it under
87	87	the same terms as the Perl 5 programming language system itself.
88	88
89	89	=cut
90
91
92		__END__
93

+5

-10

lib/Moose/Meta/Attribute/Native/Trait/Counter.pm less more

3	3	$Moose::Meta::Attribute::Native::Trait::Counter::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Attribute::Native::Trait::Counter::VERSION = '2.0604';
	6	$Moose::Meta::Attribute::Native::Trait::Counter::VERSION = '2.0800';
7	7	}
8	8	use Moose::Role;
9	9
10		with 'Moose::Meta::Attribute::Native::Trait' =>
11		{ -excludes => ['_root_types'] };
	10	with 'Moose::Meta::Attribute::Native::Trait';
12	11
13	12	sub _default_default { 0 }
14	13	sub _default_is { 'ro' }

21	20
22	21	# ABSTRACT: Helper trait for Int attributes which represent counters
23	22
24
	23	__END__
25	24
26	25	=pod
27	26

31	30
32	31	=head1 VERSION
33	32
34		version 2.0604
	33	version 2.0800
35	34
36	35	=head1 SYNOPSIS
37	36

113	112
114	113	=head1 COPYRIGHT AND LICENSE
115	114
116		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	115	This software is copyright (c) 2013 by Infinity Interactive, Inc..
117	116
118	117	This is free software; you can redistribute it and/or modify it under
119	118	the same terms as the Perl 5 programming language system itself.
120	119
121	120	=cut
122
123
124		__END__
125

+4

-8

lib/Moose/Meta/Attribute/Native/Trait/Hash.pm less more

3	3	$Moose::Meta::Attribute::Native::Trait::Hash::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Attribute::Native::Trait::Hash::VERSION = '2.0604';
	6	$Moose::Meta::Attribute::Native::Trait::Hash::VERSION = '2.0800';
7	7	}
8	8	use Moose::Role;
9	9

17	17
18	18	# ABSTRACT: Helper trait for HashRef attributes
19	19
20
	20	__END__
21	21
22	22	=pod
23	23

27	27
28	28	=head1 VERSION
29	29
30		version 2.0604
	30	version 2.0800
31	31
32	32	=head1 SYNOPSIS
33	33

179	179
180	180	=head1 COPYRIGHT AND LICENSE
181	181
182		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	182	This software is copyright (c) 2013 by Infinity Interactive, Inc..
183	183
184	184	This is free software; you can redistribute it and/or modify it under
185	185	the same terms as the Perl 5 programming language system itself.
186	186
187	187	=cut
188
189
190		__END__
191

+4

-8

lib/Moose/Meta/Attribute/Native/Trait/Number.pm less more

2	2	$Moose::Meta::Attribute::Native::Trait::Number::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Attribute::Native::Trait::Number::VERSION = '2.0604';
	5	$Moose::Meta::Attribute::Native::Trait::Number::VERSION = '2.0800';
6	6	}
7	7	use Moose::Role;
8	8

16	16
17	17	# ABSTRACT: Helper trait for Num attributes
18	18
19
	19	__END__
20	20
21	21	=pod
22	22

26	26
27	27	=head1 VERSION
28	28
29		version 2.0604
	29	version 2.0800
30	30
31	31	=head1 SYNOPSIS
32	32

107	107
108	108	=head1 COPYRIGHT AND LICENSE
109	109
110		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	110	This software is copyright (c) 2013 by Infinity Interactive, Inc..
111	111
112	112	This is free software; you can redistribute it and/or modify it under
113	113	the same terms as the Perl 5 programming language system itself.
114	114
115	115	=cut
116
117
118		__END__
119

+4

-8

lib/Moose/Meta/Attribute/Native/Trait/String.pm less more

2	2	$Moose::Meta::Attribute::Native::Trait::String::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Attribute::Native::Trait::String::VERSION = '2.0604';
	5	$Moose::Meta::Attribute::Native::Trait::String::VERSION = '2.0800';
6	6	}
7	7	use Moose::Role;
8	8

18	18
19	19	# ABSTRACT: Helper trait for Str attributes
20	20
21
	21	__END__
22	22
23	23	=pod
24	24

28	28
29	29	=head1 VERSION
30	30
31		version 2.0604
	31	version 2.0800
32	32
33	33	=head1 SYNOPSIS
34	34

141	141
142	142	=head1 COPYRIGHT AND LICENSE
143	143
144		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	144	This software is copyright (c) 2013 by Infinity Interactive, Inc..
145	145
146	146	This is free software; you can redistribute it and/or modify it under
147	147	the same terms as the Perl 5 programming language system itself.
148	148
149	149	=cut
150
151
152		__END__
153

+4

-8

lib/Moose/Meta/Attribute/Native/Trait.pm less more

3	3	$Moose::Meta::Attribute::Native::Trait::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Attribute::Native::Trait::VERSION = '2.0604';
	6	$Moose::Meta::Attribute::Native::Trait::VERSION = '2.0800';
7	7	}
8	8	use Moose::Role;
9	9

215	215
216	216	# ABSTRACT: Shared role for native delegation traits
217	217
218
	218	__END__
219	219
220	220	=pod
221	221

225	225
226	226	=head1 VERSION
227	227
228		version 2.0604
	228	version 2.0800
229	229
230	230	=head1 BUGS
231	231

242	242
243	243	=head1 COPYRIGHT AND LICENSE
244	244
245		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	245	This software is copyright (c) 2013 by Infinity Interactive, Inc..
246	246
247	247	This is free software; you can redistribute it and/or modify it under
248	248	the same terms as the Perl 5 programming language system itself.
249	249
250	250	=cut
251
252
253		__END__
254

+4

-8

lib/Moose/Meta/Attribute/Native.pm less more

2	2	$Moose::Meta::Attribute::Native::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Attribute::Native::VERSION = '2.0604';
	5	$Moose::Meta::Attribute::Native::VERSION = '2.0800';
6	6	}
7	7
8	8	use Class::Load qw(load_class);

33	33
34	34	# ABSTRACT: Delegate to native Perl types
35	35
36
	36	__END__
37	37
38	38	=pod
39	39

43	43
44	44	=head1 VERSION
45	45
46		version 2.0604
	46	version 2.0800
47	47
48	48	=head1 SYNOPSIS
49	49

260	260
261	261	=head1 COPYRIGHT AND LICENSE
262	262
263		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	263	This software is copyright (c) 2013 by Infinity Interactive, Inc..
264	264
265	265	This is free software; you can redistribute it and/or modify it under
266	266	the same terms as the Perl 5 programming language system itself.
267	267
268	268	=cut
269
270
271		__END__
272

+22

-11

lib/Moose/Meta/Attribute.pm less more

3	3	$Moose::Meta::Attribute::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Attribute::VERSION = '2.0604';
	6	$Moose::Meta::Attribute::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

99	99
100	100	if (@bad)
101	101	{
102		Carp::cluck "Found unknown argument(s) passed to '$name' attribute constructor in '$class': @bad";
	102	my $s = @bad > 1 ? 's' : '';
	103	my $list = join "', '", @bad;
	104
	105	my $package = $options{definition_context}{package};
	106	my $context = $options{definition_context}{context}
	107	\|\| 'attribute constructor';
	108	my $type = $options{definition_context}{type} \|\| 'class';
	109
	110	my $location = '';
	111	if (defined($package)) {
	112	$location = " in ";
	113	$location .= "$type " if $type;
	114	$location .= $package;
	115	}
	116
	117	Carp::cluck "Found unknown argument$s '$list' in the $context for '$name'$location";
103	118	}
104	119
105	120	return $class->SUPER::new($name, %options);

1282	1297	$Moose::Meta::Attribute::Custom::Moose::AUTHORITY = 'cpan:STEVAN';
1283	1298	}
1284	1299	{
1285		$Moose::Meta::Attribute::Custom::Moose::VERSION = '2.0604';
	1300	$Moose::Meta::Attribute::Custom::Moose::VERSION = '2.0800';
1286	1301	}
1287	1302	sub register_implementation { 'Moose::Meta::Attribute' }
1288	1303

1290	1305
1291	1306	# ABSTRACT: The Moose attribute metaclass
1292	1307
1293
	1308	__END__
1294	1309
1295	1310	=pod
1296	1311

1300	1315
1301	1316	=head1 VERSION
1302	1317
1303		version 2.0604
	1318	version 2.0800
1304	1319
1305	1320	=head1 DESCRIPTION
1306	1321

1325	1340
1326	1341	=over 4
1327	1342
1328		=item B<< Moose::Meta::Attribute->new(%options) >>
	1343	=item B<< Moose::Meta::Attribute->new($name, %options) >>
1329	1344
1330	1345	This method overrides the L<Class::MOP::Attribute> constructor.
1331	1346

1685	1700
1686	1701	=head1 COPYRIGHT AND LICENSE
1687	1702
1688		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1703	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1689	1704
1690	1705	This is free software; you can redistribute it and/or modify it under
1691	1706	the same terms as the Perl 5 programming language system itself.
1692	1707
1693	1708	=cut
1694
1695
1696		__END__
1697

+4

-9

lib/Moose/Meta/Class/Immutable/Trait.pm less more

2	2	$Moose::Meta::Class::Immutable::Trait::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Class::Immutable::Trait::VERSION = '2.0604';
	5	$Moose::Meta::Class::Immutable::Trait::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

46	46
47	47	# ABSTRACT: Implements immutability for metaclass objects
48	48
49
	49	__END__
50	50
51	51	=pod
52	52

56	56
57	57	=head1 VERSION
58	58
59		version 2.0604
	59	version 2.0800
60	60
61	61	=head1 DESCRIPTION
62	62

73	73
74	74	=head1 COPYRIGHT AND LICENSE
75	75
76		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	76	This software is copyright (c) 2013 by Infinity Interactive, Inc..
77	77
78	78	This is free software; you can redistribute it and/or modify it under
79	79	the same terms as the Perl 5 programming language system itself.
80	80
81	81	=cut
82
83
84		__END__
85
86

+4

-9

lib/Moose/Meta/Class.pm less more

3	3	$Moose::Meta::Class::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Class::VERSION = '2.0604';
	6	$Moose::Meta::Class::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

852	852
853	853	# ABSTRACT: The Moose metaclass
854	854
855
	855	__END__
856	856
857	857	=pod
858	858

862	862
863	863	=head1 VERSION
864	864
865		version 2.0604
	865	version 2.0800
866	866
867	867	=head1 DESCRIPTION
868	868

1019	1019
1020	1020	=head1 COPYRIGHT AND LICENSE
1021	1021
1022		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1022	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1023	1023
1024	1024	This is free software; you can redistribute it and/or modify it under
1025	1025	the same terms as the Perl 5 programming language system itself.
1026	1026
1027	1027	=cut
1028
1029
1030		__END__
1031
1032

+4

-8

lib/Moose/Meta/Instance.pm less more

3	3	$Moose::Meta::Instance::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Instance::VERSION = '2.0604';
	6	$Moose::Meta::Instance::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

19	19
20	20	# ABSTRACT: The Moose Instance metaclass
21	21
22
	22	__END__
23	23
24	24	=pod
25	25

29	29
30	30	=head1 VERSION
31	31
32		version 2.0604
	32	version 2.0800
33	33
34	34	=head1 SYNOPSIS
35	35

62	62
63	63	=head1 COPYRIGHT AND LICENSE
64	64
65		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	65	This software is copyright (c) 2013 by Infinity Interactive, Inc..
66	66
67	67	This is free software; you can redistribute it and/or modify it under
68	68	the same terms as the Perl 5 programming language system itself.
69	69
70	70	=cut
71
72
73		__END__
74

+9

-6

lib/Moose/Meta/Method/Accessor/Native/Array/Writer.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::Writer::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::Writer::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::Writer::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => ['_inline_coerce_new_values'],
15		},
16		'Moose::Meta::Method::Accessor::Native::Array',
17		'Moose::Meta::Method::Accessor::Native::Collection';
	13	with 'Moose::Meta::Method::Accessor::Native::Writer',
	14	'Moose::Meta::Method::Accessor::Native::Array',
	15	'Moose::Meta::Method::Accessor::Native::Collection';
	16
	17	sub _inline_coerce_new_values {
	18	my $self = shift;
	19	$self->Moose::Meta::Method::Accessor::Native::Collection::_inline_coerce_new_values(@_);
	20	}
18	21
19	22	sub _new_members { '@_' }
20	23

+18

-20

lib/Moose/Meta/Method/Accessor/Native/Array/accessor.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::accessor::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::accessor::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::accessor::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::set' => {
14		-excludes => [
15		qw( _generate_method
16		_minimum_arguments
17		_maximum_arguments
18		_inline_process_arguments
19		_inline_check_arguments
20		_return_value)
21		]
22		},
23		'Moose::Meta::Method::Accessor::Native::Array::get' => {
24		-excludes => [
25		qw(
26		_generate_method
27		_minimum_arguments
28		_maximum_arguments
29		)
30		]
31		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::set',
	14	'Moose::Meta::Method::Accessor::Native::Array::get';
	15
	16	sub _inline_process_arguments {
	17	my $self = shift;
	18	$self->Moose::Meta::Method::Accessor::Native::Array::get::_inline_process_arguments(@_);
	19	}
	20
	21	sub _inline_check_arguments {
	22	my $self = shift;
	23	$self->Moose::Meta::Method::Accessor::Native::Array::get::_inline_check_arguments(@_);
	24	}
	25
	26	sub _return_value {
	27	my $self = shift;
	28	$self->Moose::Meta::Method::Accessor::Native::Array::get::_return_value(@_);
	29	}
32	30
33	31	sub _generate_method {
34	32	my $self = shift;

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Array/clear.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::clear::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::clear::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::clear::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		_return_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
22	14
23	15	sub _maximum_arguments { 0 }
24	16

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Array/count.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::count::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::count::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::count::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
14		{ -excludes => ['_maximum_arguments'] };
	13	with 'Moose::Meta::Method::Accessor::Native::Reader';
15	14
16	15	sub _maximum_arguments { 0 }
17	16

+2

-12

lib/Moose/Meta/Method/Accessor/Native/Array/delete.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::delete::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::delete::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::delete::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_check_arguments
19		_inline_optimized_set_new_value
20		_return_value
21		)
22		],
23		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
24	14
25	15	sub _minimum_arguments { 1 }
26	16

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Array/elements.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::elements::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::elements::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::elements::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
14		{ -excludes => ['_maximum_arguments'] };
	13	with 'Moose::Meta::Method::Accessor::Native::Reader';
15	14
16	15	sub _maximum_arguments { 0 }
17	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Array/first.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::first::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::first::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::first::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

13	13
14	14	use Moose::Role;
15	15
16		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
17		-excludes => [
18		qw(
19		_minimum_arguments
20		_maximum_arguments
21		_inline_check_arguments
22		)
23		]
24		};
	16	with 'Moose::Meta::Method::Accessor::Native::Reader';
25	17
26	18	sub _minimum_arguments { 1 }
27	19

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Array/first_index.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::first_index::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::first_index::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::first_index::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

13	13
14	14	use Moose::Role;
15	15
16		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
17		-excludes => [
18		qw(
19		_minimum_arguments
20		_maximum_arguments
21		_inline_check_arguments
22		)
23		]
24		};
	16	with 'Moose::Meta::Method::Accessor::Native::Reader';
25	17
26	18	sub _minimum_arguments { 1 }
27	19

+3

-11

lib/Moose/Meta/Method/Accessor/Native/Array/get.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::get::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::get::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::get::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_maximum_arguments
20		_inline_check_arguments
21		)
22		],
23		},
24		'Moose::Meta::Method::Accessor::Native::Array';
	15	with 'Moose::Meta::Method::Accessor::Native::Reader',
	16	'Moose::Meta::Method::Accessor::Native::Array';
25	17
26	18	sub _minimum_arguments { 1 }
27	19

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Array/grep.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::grep::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::grep::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::grep::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_maximum_arguments
20		_inline_check_arguments
21		)
22		]
23		};
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
24	16
25	17	sub _minimum_arguments { 1 }
26	18

+2

-13

lib/Moose/Meta/Method/Accessor/Native/Array/insert.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::insert::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::insert::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::insert::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_coerce_new_values
19		_new_members
20		_inline_optimized_set_new_value
21		_return_value
22		)
23		]
24		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
25	14
26	15	sub _minimum_arguments { 2 }
27	16

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Array/is_empty.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::is_empty::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::is_empty::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::is_empty::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
14		{ -excludes => ['_maximum_arguments'] };
	13	with 'Moose::Meta::Method::Accessor::Native::Reader';
15	14
16	15	sub _maximum_arguments { 0 }
17	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Array/join.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::join::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::join::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::join::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_maximum_arguments
20		_inline_check_arguments
21		)
22		]
23		};
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
24	16
25	17	sub _minimum_arguments { 1 }
26	18

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Array/map.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::map::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::map::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::map::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_maximum_arguments
20		_inline_check_arguments
21		)
22		]
23		};
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
24	16
25	17	sub _minimum_arguments { 1 }
26	18

+2

-11

lib/Moose/Meta/Method/Accessor/Native/Array/natatime.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::natatime::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::natatime::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::natatime::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

13	13
14	14	use Moose::Role;
15	15
16		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
17		-excludes => [
18		qw(
19		_minimum_arguments
20		_maximum_arguments
21		_inline_check_arguments
22		_inline_return_value
23		)
24		]
25		};
	16	with 'Moose::Meta::Method::Accessor::Native::Reader';
26	17
27	18	sub _minimum_arguments { 1 }
28	19

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Array/pop.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::pop::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::pop::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::pop::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw( _maximum_arguments
16		_inline_capture_return_value
17		_inline_optimized_set_new_value
18		_return_value )
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
21	14
22	15	sub _maximum_arguments { 0 }
23	16

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Array/push.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::push::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::push::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::push::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw(
16		_inline_optimized_set_new_value
17		_return_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
21	14
22	15	sub _adds_members { 1 }
23	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Array/reduce.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::reduce::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::reduce::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::reduce::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

13	13
14	14	use Moose::Role;
15	15
16		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
17		-excludes => [
18		qw(
19		_minimum_arguments
20		_maximum_arguments
21		_inline_check_arguments
22		)
23		]
24		};
	16	with 'Moose::Meta::Method::Accessor::Native::Reader';
25	17
26	18	sub _minimum_arguments { 1 }
27	19

+2

-14

lib/Moose/Meta/Method/Accessor/Native/Array/set.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::set::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::set::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::set::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_check_arguments
19		_inline_coerce_new_values
20		_new_members
21		_inline_optimized_set_new_value
22		_return_value
23		)
24		]
25		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
26	14
27	15	sub _minimum_arguments { 2 }
28	16

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Array/shallow_clone.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::shallow_clone::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::shallow_clone::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::shallow_clone::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_maximum_arguments
20		)
21		]
22		};
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
23	16
24	17	sub _minimum_arguments { 0 }
25	18

+2

-11

lib/Moose/Meta/Method/Accessor/Native/Array/shift.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::shift::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::shift::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::shift::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_capture_return_value
18		_inline_optimized_set_new_value
19		_return_value
20		)
21		]
22		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
23	14
24	15	sub _maximum_arguments { 0 }
25	16

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Array/shuffle.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::shuffle::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::shuffle::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::shuffle::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
16		{ -excludes => ['_maximum_arguments'] };
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
17	16
18	17	sub _maximum_arguments { 0 }
19	18

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Array/sort.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::sort::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::sort::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::sort::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_maximum_arguments
19		_inline_check_arguments
20		)
21		]
22		};
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
23	16
24	17	sub _maximum_arguments { 1 }
25	18

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Array/sort_in_place.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::sort_in_place::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::sort_in_place::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::sort_in_place::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
16		-excludes => [
17		qw(
18		_maximum_arguments
19		_inline_check_arguments
20		_return_value
21		)
22		]
23		};
	15	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
24	16
25	17	sub _maximum_arguments { 1 }
26	18

+2

-12

lib/Moose/Meta/Method/Accessor/Native/Array/splice.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::splice::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::splice::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::splice::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_inline_process_arguments
18		_inline_check_arguments
19		_inline_optimized_set_new_value
20		_return_value
21		)
22		]
23		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
24	14
25	15	sub _minimum_arguments { 1 }
26	16

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Array/uniq.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::uniq::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::uniq::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::uniq::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
16		{ -excludes => ['_maximum_arguments'] };
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
17	16
18	17	sub _maximum_arguments { 0 }
19	18

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Array/unshift.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::unshift::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::unshift::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::unshift::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Array::Writer' => {
14		-excludes => [
15		qw(
16		_inline_optimized_set_new_value
17		_return_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Array::Writer';
21	14
22	15	sub _adds_members { 1 }
23	16

+1

-1

lib/Moose/Meta/Method/Accessor/Native/Array.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Array::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Array::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Array::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Bool/not.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Bool::not::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Bool::not::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Bool::not::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
14		{ -excludes => ['_maximum_arguments'] };
	13	with 'Moose::Meta::Method::Accessor::Native::Reader';
15	14
16	15	sub _maximum_arguments { 0 }
17	16

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Bool/set.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Bool::set::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Bool::set::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Bool::set::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
21	14
22	15	sub _maximum_arguments { 0 }
23	16

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Bool/toggle.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Bool::toggle::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Bool::toggle::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Bool::toggle::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
21	14
22	15	sub _maximum_arguments { 0 }
23	16

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Bool/unset.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Bool::unset::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Bool::unset::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Bool::unset::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
21	14
22	15	sub _maximum_arguments { 0 }
23	16

+1

-1

lib/Moose/Meta/Method/Accessor/Native/Code/execute.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Code::execute::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Code::execute::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Code::execute::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+1

-1

lib/Moose/Meta/Method/Accessor/Native/Code/execute_method.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Code::execute_method::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Code::execute_method::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Code::execute_method::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+1

-1

lib/Moose/Meta/Method/Accessor/Native/Collection.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Collection::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Collection::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Collection::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+1

-1

lib/Moose/Meta/Method/Accessor/Native/Counter/Writer.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Counter::Writer::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Counter::Writer::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Counter::Writer::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Counter/dec.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Counter::dec::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Counter::dec::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Counter::dec::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 0 }
24	16	sub _maximum_arguments { 1 }

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Counter/inc.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Counter::inc::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Counter::inc::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Counter::inc::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 0 }
24	16	sub _maximum_arguments { 1 }

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Counter/reset.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Counter::reset::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Counter::reset::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Counter::reset::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
21	14
22	15	sub _maximum_arguments { 0 }
23	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Counter/set.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Counter::set::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Counter::set::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Counter::set::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16	sub _maximum_arguments { 1 }

+9

-6

lib/Moose/Meta/Method/Accessor/Native/Hash/Writer.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::Writer::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::Writer::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::Writer::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
16		-excludes => ['_inline_coerce_new_values'],
17		},
18		'Moose::Meta::Method::Accessor::Native::Hash',
19		'Moose::Meta::Method::Accessor::Native::Collection';
	15	with 'Moose::Meta::Method::Accessor::Native::Writer',
	16	'Moose::Meta::Method::Accessor::Native::Hash',
	17	'Moose::Meta::Method::Accessor::Native::Collection';
	18
	19	sub _inline_coerce_new_values {
	20	my $self = shift;
	21	$self->Moose::Meta::Method::Accessor::Native::Collection::_inline_coerce_new_values(@_);
	22	}
20	23
21	24	sub _new_values { '@values' }
22	25

+23

-23

lib/Moose/Meta/Method/Accessor/Native/Hash/accessor.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::accessor::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::accessor::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::accessor::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Hash::set' => {
14		-excludes => [
15		qw(
16		_generate_method
17		_minimum_arguments
18		_maximum_arguments
19		)
20		]
21		},
22		'Moose::Meta::Method::Accessor::Native::Hash::get' => {
23		-excludes => [
24		qw(
25		_generate_method
26		_minimum_arguments
27		_maximum_arguments
28		_inline_check_argument_count
29		_inline_check_arguments
30		_inline_process_arguments
31		_return_value
32		)
33		]
34		};
	13	with 'Moose::Meta::Method::Accessor::Native::Hash::set',
	14	'Moose::Meta::Method::Accessor::Native::Hash::get';
	15
	16	sub _inline_process_arguments {
	17	my $self = shift;
	18	$self->Moose::Meta::Method::Accessor::Native::Hash::set::_inline_process_arguments(@_);
	19	}
	20
	21	sub _inline_check_argument_count {
	22	my $self = shift;
	23	$self->Moose::Meta::Method::Accessor::Native::Hash::set::_inline_check_argument_count(@_);
	24	}
	25
	26	sub _inline_check_arguments {
	27	my $self = shift;
	28	$self->Moose::Meta::Method::Accessor::Native::Hash::set::_inline_check_arguments(@_);
	29	}
	30
	31	sub _return_value {
	32	my $self = shift;
	33	$self->Moose::Meta::Method::Accessor::Native::Hash::set::_return_value(@_);
	34	}
35	35
36	36	sub _generate_method {
37	37	my $self = shift;

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Hash/clear.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::clear::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::clear::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::clear::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Hash::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		_return_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Hash::Writer';
22	14
23	15	sub _maximum_arguments { 0 }
24	16

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Hash/count.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::count::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::count::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::count::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
16		{ -excludes => ['_maximum_arguments'] };
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
17	16
18	17	sub _maximum_arguments { 0 }
19	18

+3

-11

lib/Moose/Meta/Method/Accessor/Native/Hash/defined.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::defined::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::defined::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::defined::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_maximum_arguments
20		_inline_check_arguments
21		)
22		],
23		},
24		'Moose::Meta::Method::Accessor::Native::Hash';
	15	with 'Moose::Meta::Method::Accessor::Native::Reader',
	16	'Moose::Meta::Method::Accessor::Native::Hash';
25	17
26	18	sub _minimum_arguments { 1 }
27	19

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Hash/delete.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::delete::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::delete::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::delete::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Hash::Writer' => {
14		-excludes => [
15		qw(
16		_inline_optimized_set_new_value
17		_return_value
18		)
19		],
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Hash::Writer';
21	14
22	15	sub _adds_members { 0 }
23	16

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Hash/elements.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::elements::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::elements::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::elements::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
16		{ -excludes => ['_maximum_arguments'] };
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
17	16
18	17	sub _maximum_arguments { 0 }
19	18

+3

-11

lib/Moose/Meta/Method/Accessor/Native/Hash/exists.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::exists::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::exists::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::exists::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_maximum_arguments
20		_inline_check_arguments
21		)
22		],
23		},
24		'Moose::Meta::Method::Accessor::Native::Hash';
	15	with 'Moose::Meta::Method::Accessor::Native::Reader',
	16	'Moose::Meta::Method::Accessor::Native::Hash';
25	17
26	18	sub _minimum_arguments { 1 }
27	19

+3

-10

lib/Moose/Meta/Method/Accessor/Native/Hash/get.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::get::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::get::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::get::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_inline_check_arguments
20		)
21		],
22		},
23		'Moose::Meta::Method::Accessor::Native::Hash';
	15	with 'Moose::Meta::Method::Accessor::Native::Reader',
	16	'Moose::Meta::Method::Accessor::Native::Hash';
24	17
25	18	sub _minimum_arguments { 1 }
26	19

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Hash/is_empty.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::is_empty::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::is_empty::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::is_empty::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
16		{ -excludes => ['_maximum_arguments'] };
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
17	16
18	17	sub _maximum_arguments { 0 }
19	18

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Hash/keys.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::keys::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::keys::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::keys::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
16		{ -excludes => ['_maximum_arguments'] };
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
17	16
18	17	sub _maximum_arguments { 0 }
19	18

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Hash/kv.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::kv::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::kv::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::kv::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
16		{ -excludes => ['_maximum_arguments'] };
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
17	16
18	17	sub _maximum_arguments { 0 }
19	18

+2

-14

lib/Moose/Meta/Method/Accessor/Native/Hash/set.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::set::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::set::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::set::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

13	13
14	14	use Moose::Role;
15	15
16		with 'Moose::Meta::Method::Accessor::Native::Hash::Writer' => {
17		-excludes => [
18		qw(
19		_minimum_arguments
20		_maximum_arguments
21		_inline_process_arguments
22		_inline_check_arguments
23		_inline_coerce_new_values
24		_inline_optimized_set_new_value
25		_return_value
26		)
27		],
28		};
	16	with 'Moose::Meta::Method::Accessor::Native::Hash::Writer';
29	17
30	18	sub _minimum_arguments { 2 }
31	19

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Hash/shallow_clone.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::shallow_clone::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::shallow_clone::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::shallow_clone::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw(
18		_minimum_arguments
19		_maximum_arguments
20		)
21		]
22		};
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
23	16
24	17	sub _minimum_arguments { 0 }
25	18

+2

-3

lib/Moose/Meta/Method/Accessor/Native/Hash/values.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::values::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::values::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::values::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
16		{ -excludes => ['_maximum_arguments'] };
	15	with 'Moose::Meta::Method::Accessor::Native::Reader';
17	16
18	17	sub _maximum_arguments { 0 }
19	18

+1

-1

lib/Moose/Meta/Method/Accessor/Native/Hash.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Hash::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Hash::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Hash::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+2

-9

lib/Moose/Meta/Method/Accessor/Native/Number/abs.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Number::abs::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Number::abs::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Number::abs::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
21	14
22	15	sub _maximum_arguments { 0 }
23	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Number/add.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Number::add::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Number::add::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Number::add::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Number/div.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Number::div::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Number::div::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Number::div::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Number/mod.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Number::mod::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Number::mod::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Number::mod::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Number/mul.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Number::mul::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Number::mul::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Number::mul::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Number/set.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Number::set::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Number::set::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Number::set::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16	sub _maximum_arguments { 1 }

+2

-10

lib/Moose/Meta/Method/Accessor/Native/Number/sub.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Number::sub::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Number::sub::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Number::sub::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16

+1

-1

lib/Moose/Meta/Method/Accessor/Native/Reader.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Reader::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Reader::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Reader::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+2

-10

lib/Moose/Meta/Method/Accessor/Native/String/append.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::append::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::append::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::append::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/String/chomp.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::chomp::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::chomp::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::chomp::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		_return_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _maximum_arguments { 0 }
24	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/String/chop.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::chop::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::chop::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::chop::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		_return_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _maximum_arguments { 0 }
24	16

+2

-9

lib/Moose/Meta/Method/Accessor/Native/String/clear.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::clear::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::clear::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::clear::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
21	14
22	15	sub _maximum_arguments { 0 }
23	16

+2

-9

lib/Moose/Meta/Method/Accessor/Native/String/inc.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::inc::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::inc::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::inc::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_maximum_arguments
17		_inline_optimized_set_new_value
18		)
19		]
20		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
21	14
22	15	sub _maximum_arguments { 0 }
23	16

+2

-3

lib/Moose/Meta/Method/Accessor/Native/String/length.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::length::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::length::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::length::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Reader' =>
14		{ -excludes => ['_maximum_arguments'] };
	13	with 'Moose::Meta::Method::Accessor::Native::Reader';
15	14
16	15	sub _maximum_arguments { 0 }
17	16

+2

-10

lib/Moose/Meta/Method/Accessor/Native/String/match.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::match::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::match::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::match::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

13	13
14	14	use Moose::Role;
15	15
16		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
17		-excludes => [
18		qw(
19		_minimum_arguments
20		_maximum_arguments
21		_inline_check_arguments
22		)
23		]
24		};
	16	with 'Moose::Meta::Method::Accessor::Native::Reader';
25	17
26	18	sub _minimum_arguments { 1 }
27	19

+2

-10

lib/Moose/Meta/Method/Accessor/Native/String/prepend.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::prepend::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::prepend::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::prepend::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

10	10
11	11	use Moose::Role;
12	12
13		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
14		-excludes => [
15		qw(
16		_minimum_arguments
17		_maximum_arguments
18		_inline_optimized_set_new_value
19		)
20		]
21		};
	13	with 'Moose::Meta::Method::Accessor::Native::Writer';
22	14
23	15	sub _minimum_arguments { 1 }
24	16

+2

-11

lib/Moose/Meta/Method/Accessor/Native/String/replace.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::replace::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::replace::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::replace::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

13	13
14	14	use Moose::Role;
15	15
16		with 'Moose::Meta::Method::Accessor::Native::Writer' => {
17		-excludes => [
18		qw(
19		_minimum_arguments
20		_maximum_arguments
21		_inline_check_arguments
22		_inline_optimized_set_new_value
23		)
24		]
25		};
	16	with 'Moose::Meta::Method::Accessor::Native::Writer';
26	17
27	18	sub _minimum_arguments { 1 }
28	19

+3

-25

lib/Moose/Meta/Method/Accessor/Native/String/substr.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::String::substr::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::String::substr::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::String::substr::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

12	12
13	13	use Moose::Role;
14	14
15		with 'Moose::Meta::Method::Accessor::Native::Reader' => {
16		-excludes => [
17		qw( _generate_method
18		_minimum_arguments
19		_maximum_arguments
20		_inline_process_arguments
21		_inline_check_arguments
22		_return_value
23		)
24		]
25		},
26		'Moose::Meta::Method::Accessor::Native::Writer' => {
27		-excludes => [
28		qw(
29		_generate_method
30		_minimum_arguments
31		_maximum_arguments
32		_inline_process_arguments
33		_inline_check_arguments
34		_inline_optimized_set_new_value
35		_return_value
36		)
37		]
38		};
	15	with 'Moose::Meta::Method::Accessor::Native::Reader',
	16	'Moose::Meta::Method::Accessor::Native::Writer';
39	17
40	18	sub _generate_method {
41	19	my $self = shift;

+1

-1

lib/Moose/Meta/Method/Accessor/Native/Writer.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::Writer::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::Writer::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::Writer::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+1

-1

lib/Moose/Meta/Method/Accessor/Native.pm less more

2	2	$Moose::Meta::Method::Accessor::Native::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Accessor::Native::VERSION = '2.0604';
	5	$Moose::Meta::Method::Accessor::Native::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+4

-8

lib/Moose/Meta/Method/Accessor.pm less more

3	3	$Moose::Meta::Method::Accessor::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Method::Accessor::VERSION = '2.0604';
	6	$Moose::Meta::Method::Accessor::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

130	130
131	131	# ABSTRACT: A Moose Method metaclass for accessors
132	132
133
	133	__END__
134	134
135	135	=pod
136	136

140	140
141	141	=head1 VERSION
142	142
143		version 2.0604
	143	version 2.0800
144	144
145	145	=head1 DESCRIPTION
146	146

161	161
162	162	=head1 COPYRIGHT AND LICENSE
163	163
164		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	164	This software is copyright (c) 2013 by Infinity Interactive, Inc..
165	165
166	166	This is free software; you can redistribute it and/or modify it under
167	167	the same terms as the Perl 5 programming language system itself.
168	168
169	169	=cut
170
171
172		__END__
173

+4

-8

lib/Moose/Meta/Method/Augmented.pm less more

2	2	$Moose::Meta::Method::Augmented::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Augmented::VERSION = '2.0604';
	5	$Moose::Meta::Method::Augmented::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

59	59
60	60	# ABSTRACT: A Moose Method metaclass for augmented methods
61	61
62
	62	__END__
63	63
64	64	=pod
65	65

69	69
70	70	=head1 VERSION
71	71
72		version 2.0604
	72	version 2.0800
73	73
74	74	=head1 DESCRIPTION
75	75

122	122
123	123	=head1 COPYRIGHT AND LICENSE
124	124
125		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	125	This software is copyright (c) 2013 by Infinity Interactive, Inc..
126	126
127	127	This is free software; you can redistribute it and/or modify it under
128	128	the same terms as the Perl 5 programming language system itself.
129	129
130	130	=cut
131
132
133		__END__
134

+4

-9

lib/Moose/Meta/Method/Constructor.pm less more

3	3	$Moose::Meta::Method::Constructor::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Method::Constructor::VERSION = '2.0604';
	6	$Moose::Meta::Method::Constructor::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

60	60
61	61	# ABSTRACT: Method Meta Object for constructors
62	62
63
	63	__END__
64	64
65	65	=pod
66	66

70	70
71	71	=head1 VERSION
72	72
73		version 2.0604
	73	version 2.0800
74	74
75	75	=head1 DESCRIPTION
76	76

95	95
96	96	=head1 COPYRIGHT AND LICENSE
97	97
98		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	98	This software is copyright (c) 2013 by Infinity Interactive, Inc..
99	99
100	100	This is free software; you can redistribute it and/or modify it under
101	101	the same terms as the Perl 5 programming language system itself.
102	102
103	103	=cut
104
105
106		__END__
107
108

+4

-8

lib/Moose/Meta/Method/Delegation.pm less more

3	3	$Moose::Meta::Method::Delegation::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Method::Delegation::VERSION = '2.0604';
	6	$Moose::Meta::Method::Delegation::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

136	136
137	137	# ABSTRACT: A Moose Method metaclass for delegation methods
138	138
139
	139	__END__
140	140
141	141	=pod
142	142

146	146
147	147	=head1 VERSION
148	148
149		version 2.0604
	149	version 2.0800
150	150
151	151	=head1 DESCRIPTION
152	152

205	205
206	206	=head1 COPYRIGHT AND LICENSE
207	207
208		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	208	This software is copyright (c) 2013 by Infinity Interactive, Inc..
209	209
210	210	This is free software; you can redistribute it and/or modify it under
211	211	the same terms as the Perl 5 programming language system itself.
212	212
213	213	=cut
214
215
216		__END__
217

+5

-10

lib/Moose/Meta/Method/Destructor.pm less more

3	3	$Moose::Meta::Method::Destructor::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Method::Destructor::VERSION = '2.0604';
	6	$Moose::Meta::Method::Destructor::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

86	86	'my $self = shift;',
87	87	'return ' . $self->_generate_fallback_destructor('$self'),
88	88	'if Scalar::Util::blessed($self) ne \'' . $class . '\';',
89		'local $?;',
90	89	$self->_generate_DEMOLISHALL('$self'),
91	90	'return;',
92	91	'}',

123	122	return unless @methods;
124	123
125	124	return (
	125	'local $?;',
126	126	'my $igd = Devel::GlobalDestruction::in_global_destruction;',
127	127	'Try::Tiny::try {',
128	128	(map { $inv . '->' . $_->{class} . '::DEMOLISH($igd);' } @methods),

138	138
139	139	# ABSTRACT: Method Meta Object for destructors
140	140
141
	141	__END__
142	142
143	143	=pod
144	144

148	148
149	149	=head1 VERSION
150	150
151		version 2.0604
	151	version 2.0800
152	152
153	153	=head1 DESCRIPTION
154	154

208	208
209	209	=head1 COPYRIGHT AND LICENSE
210	210
211		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	211	This software is copyright (c) 2013 by Infinity Interactive, Inc..
212	212
213	213	This is free software; you can redistribute it and/or modify it under
214	214	the same terms as the Perl 5 programming language system itself.
215	215
216	216	=cut
217
218
219		__END__
220
221

+4

-8

lib/Moose/Meta/Method/Meta.pm less more

3	3	$Moose::Meta::Method::Meta::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Method::Meta::VERSION = '2.0604';
	6	$Moose::Meta::Method::Meta::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

34	34
35	35	# ABSTRACT: A Moose Method metaclass for C<meta> methods
36	36
37
	37	__END__
38	38
39	39	=pod
40	40

44	44
45	45	=head1 VERSION
46	46
47		version 2.0604
	47	version 2.0800
48	48
49	49	=head1 DESCRIPTION
50	50

65	65
66	66	=head1 COPYRIGHT AND LICENSE
67	67
68		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	68	This software is copyright (c) 2013 by Infinity Interactive, Inc..
69	69
70	70	This is free software; you can redistribute it and/or modify it under
71	71	the same terms as the Perl 5 programming language system itself.
72	72
73	73	=cut
74
75
76		__END__
77

+4

-8

lib/Moose/Meta/Method/Overridden.pm less more

2	2	$Moose::Meta::Method::Overridden::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::Overridden::VERSION = '2.0604';
	5	$Moose::Meta::Method::Overridden::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

52	52
53	53	# ABSTRACT: A Moose Method metaclass for overridden methods
54	54
55
	55	__END__
56	56
57	57	=pod
58	58

62	62
63	63	=head1 VERSION
64	64
65		version 2.0604
	65	version 2.0800
66	66
67	67	=head1 DESCRIPTION
68	68

111	111
112	112	=head1 COPYRIGHT AND LICENSE
113	113
114		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	114	This software is copyright (c) 2013 by Infinity Interactive, Inc..
115	115
116	116	This is free software; you can redistribute it and/or modify it under
117	117	the same terms as the Perl 5 programming language system itself.
118	118
119	119	=cut
120
121
122		__END__
123

+4

-8

lib/Moose/Meta/Method.pm less more

2	2	$Moose::Meta::Method::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Method::VERSION = '2.0604';
	5	$Moose::Meta::Method::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

54	54
55	55	# ABSTRACT: A Moose Method metaclass
56	56
57
	57	__END__
58	58
59	59	=pod
60	60

64	64
65	65	=head1 VERSION
66	66
67		version 2.0604
	67	version 2.0800
68	68
69	69	=head1 DESCRIPTION
70	70

88	88
89	89	=head1 COPYRIGHT AND LICENSE
90	90
91		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	91	This software is copyright (c) 2013 by Infinity Interactive, Inc..
92	92
93	93	This is free software; you can redistribute it and/or modify it under
94	94	the same terms as the Perl 5 programming language system itself.
95	95
96	96	=cut
97
98
99		__END__
100

+4

-8

lib/Moose/Meta/Mixin/AttributeCore.pm less more

2	2	$Moose::Meta::Mixin::AttributeCore::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Mixin::AttributeCore::VERSION = '2.0604';
	5	$Moose::Meta::Mixin::AttributeCore::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

109	109
110	110	# ABSTRACT: Core attributes shared by attribute metaclasses
111	111
112
	112	__END__
113	113
114	114	=pod
115	115

119	119
120	120	=head1 VERSION
121	121
122		version 2.0604
	122	version 2.0800
123	123
124	124	=head1 DESCRIPTION
125	125

136	136
137	137	=head1 COPYRIGHT AND LICENSE
138	138
139		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	139	This software is copyright (c) 2013 by Infinity Interactive, Inc..
140	140
141	141	This is free software; you can redistribute it and/or modify it under
142	142	the same terms as the Perl 5 programming language system itself.
143	143
144	144	=cut
145
146
147		__END__
148

+4

-8

lib/Moose/Meta/Object/Trait.pm less more

3	3	$Moose::Meta::Object::Trait::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Object::Trait::VERSION = '2.0604';
	6	$Moose::Meta::Object::Trait::VERSION = '2.0800';
7	7	}
8	8
9	9	use Scalar::Util qw(blessed);

33	33
34	34	# ABSTRACT: Some overrides for L<Class::MOP::Object> functionality
35	35
36
	36	__END__
37	37
38	38	=pod
39	39

43	43
44	44	=head1 VERSION
45	45
46		version 2.0604
	46	version 2.0800
47	47
48	48	=head1 DESCRIPTION
49	49

60	60
61	61	=head1 COPYRIGHT AND LICENSE
62	62
63		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	63	This software is copyright (c) 2013 by Infinity Interactive, Inc..
64	64
65	65	This is free software; you can redistribute it and/or modify it under
66	66	the same terms as the Perl 5 programming language system itself.
67	67
68	68	=cut
69
70
71		__END__
72

+4

-9

lib/Moose/Meta/Role/Application/RoleSummation.pm less more

2	2	$Moose::Meta::Role::Application::RoleSummation::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Role::Application::RoleSummation::VERSION = '2.0604';
	5	$Moose::Meta::Role::Application::RoleSummation::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

260	260
261	261	# ABSTRACT: Combine two or more roles
262	262
263
	263	__END__
264	264
265	265	=pod
266	266

270	270
271	271	=head1 VERSION
272	272
273		version 2.0604
	273	version 2.0800
274	274
275	275	=head1 DESCRIPTION
276	276

325	325
326	326	=head1 COPYRIGHT AND LICENSE
327	327
328		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	328	This software is copyright (c) 2013 by Infinity Interactive, Inc..
329	329
330	330	This is free software; you can redistribute it and/or modify it under
331	331	the same terms as the Perl 5 programming language system itself.
332	332
333	333	=cut
334
335
336		__END__
337
338

+4

-9

lib/Moose/Meta/Role/Application/ToClass.pm less more

2	2	$Moose::Meta::Role::Application::ToClass::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Role::Application::ToClass::VERSION = '2.0604';
	5	$Moose::Meta::Role::Application::ToClass::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

235	235
236	236	# ABSTRACT: Compose a role into a class
237	237
238
	238	__END__
239	239
240	240	=pod
241	241

245	245
246	246	=head1 VERSION
247	247
248		version 2.0604
	248	version 2.0800
249	249
250	250	=head1 DESCRIPTION
251	251

285	285
286	286	=head1 COPYRIGHT AND LICENSE
287	287
288		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	288	This software is copyright (c) 2013 by Infinity Interactive, Inc..
289	289
290	290	This is free software; you can redistribute it and/or modify it under
291	291	the same terms as the Perl 5 programming language system itself.
292	292
293	293	=cut
294
295
296		__END__
297
298

+4

-9

lib/Moose/Meta/Role/Application/ToInstance.pm less more

2	2	$Moose::Meta::Role::Application::ToInstance::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Role::Application::ToInstance::VERSION = '2.0604';
	5	$Moose::Meta::Role::Application::ToInstance::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

44	44
45	45	# ABSTRACT: Compose a role into an instance
46	46
47
	47	__END__
48	48
49	49	=pod
50	50

54	54
55	55	=head1 VERSION
56	56
57		version 2.0604
	57	version 2.0800
58	58
59	59	=head1 DESCRIPTION
60	60

82	82
83	83	=head1 COPYRIGHT AND LICENSE
84	84
85		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	85	This software is copyright (c) 2013 by Infinity Interactive, Inc..
86	86
87	87	This is free software; you can redistribute it and/or modify it under
88	88	the same terms as the Perl 5 programming language system itself.
89	89
90	90	=cut
91
92
93		__END__
94
95

+7

-15

lib/Moose/Meta/Role/Application/ToRole.pm less more

2	2	$Moose::Meta::Role::Application::ToRole::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Role::Application::ToRole::VERSION = '2.0604';
	5	$Moose::Meta::Role::Application::ToRole::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

90	90	if ( $role2_method
91	91	&& $role2_method->body != $method->body ) {
92	92
93		# method conflicts between roles result in the method becoming
94		# a requirement
95		$role2->add_conflicting_method(
96		name => $method_name,
97		roles => [ $role1->name, $role2->name ],
98		);
	93	# method conflicts between roles used to result in the method
	94	# becoming a requirement but now are permitted just like
	95	# for classes, hence no code in this branch anymore.
99	96	}
100	97	else {
101	98	$role2->add_method(

187	184
188	185	# ABSTRACT: Compose a role into another role
189	186
190
	187	__END__
191	188
192	189	=pod
193	190

197	194
198	195	=head1 VERSION
199	196
200		version 2.0604
	197	version 2.0800
201	198
202	199	=head1 DESCRIPTION
203	200

237	234
238	235	=head1 COPYRIGHT AND LICENSE
239	236
240		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	237	This software is copyright (c) 2013 by Infinity Interactive, Inc..
241	238
242	239	This is free software; you can redistribute it and/or modify it under
243	240	the same terms as the Perl 5 programming language system itself.
244	241
245	242	=cut
246
247
248		__END__
249
250

+4

-9

lib/Moose/Meta/Role/Application.pm less more

2	2	$Moose::Meta::Role::Application::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Role::Application::VERSION = '2.0604';
	5	$Moose::Meta::Role::Application::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

81	81
82	82	# ABSTRACT: A base class for role application
83	83
84
	84	__END__
85	85
86	86	=pod
87	87

91	91
92	92	=head1 VERSION
93	93
94		version 2.0604
	94	version 2.0800
95	95
96	96	=head1 DESCRIPTION
97	97

152	152
153	153	=head1 COPYRIGHT AND LICENSE
154	154
155		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	155	This software is copyright (c) 2013 by Infinity Interactive, Inc..
156	156
157	157	This is free software; you can redistribute it and/or modify it under
158	158	the same terms as the Perl 5 programming language system itself.
159	159
160	160	=cut
161
162
163		__END__
164
165

+4

-8

lib/Moose/Meta/Role/Attribute.pm less more

2	2	$Moose::Meta::Role::Attribute::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Role::Attribute::VERSION = '2.0604';
	5	$Moose::Meta::Role::Attribute::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

128	128
129	129	# ABSTRACT: The Moose attribute metaclass for Roles
130	130
131
	131	__END__
132	132
133	133	=pod
134	134

138	138
139	139	=head1 VERSION
140	140
141		version 2.0604
	141	version 2.0800
142	142
143	143	=head1 DESCRIPTION
144	144

211	211
212	212	=head1 COPYRIGHT AND LICENSE
213	213
214		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	214	This software is copyright (c) 2013 by Infinity Interactive, Inc..
215	215
216	216	This is free software; you can redistribute it and/or modify it under
217	217	the same terms as the Perl 5 programming language system itself.
218	218
219	219	=cut
220
221
222		__END__
223

+4

-8

lib/Moose/Meta/Role/Composite.pm less more

2	2	$Moose::Meta::Role::Composite::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Role::Composite::VERSION = '2.0604';
	5	$Moose::Meta::Role::Composite::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

155	155
156	156	# ABSTRACT: An object to represent the set of roles
157	157
158
	158	__END__
159	159
160	160	=pod
161	161

165	165
166	166	=head1 VERSION
167	167
168		version 2.0604
	168	version 2.0800
169	169
170	170	=head1 DESCRIPTION
171	171

224	224
225	225	=head1 COPYRIGHT AND LICENSE
226	226
227		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	227	This software is copyright (c) 2013 by Infinity Interactive, Inc..
228	228
229	229	This is free software; you can redistribute it and/or modify it under
230	230	the same terms as the Perl 5 programming language system itself.
231	231
232	232	=cut
233
234
235		__END__
236

+4

-8

lib/Moose/Meta/Role/Method/Conflicting.pm less more

3	3	$Moose::Meta::Role::Method::Conflicting::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Role::Method::Conflicting::VERSION = '2.0604';
	6	$Moose::Meta::Role::Method::Conflicting::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

28	28
29	29	# ABSTRACT: A Moose metaclass for conflicting methods in Roles
30	30
31
	31	__END__
32	32
33	33	=pod
34	34

38	38
39	39	=head1 VERSION
40	40
41		version 2.0604
	41	version 2.0800
42	42
43	43	=head1 DESCRIPTION
44	44

92	92
93	93	=head1 COPYRIGHT AND LICENSE
94	94
95		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	95	This software is copyright (c) 2013 by Infinity Interactive, Inc..
96	96
97	97	This is free software; you can redistribute it and/or modify it under
98	98	the same terms as the Perl 5 programming language system itself.
99	99
100	100	=cut
101
102
103		__END__
104

+4

-8

lib/Moose/Meta/Role/Method/Required.pm less more

3	3	$Moose::Meta::Role::Method::Required::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Role::Method::Required::VERSION = '2.0604';
	6	$Moose::Meta::Role::Method::Required::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

30	30
31	31	# ABSTRACT: A Moose metaclass for required methods in Roles
32	32
33
	33	__END__
34	34
35	35	=pod
36	36

40	40
41	41	=head1 VERSION
42	42
43		version 2.0604
	43	version 2.0800
44	44
45	45	=head1 DESCRIPTION
46	46

82	82
83	83	=head1 COPYRIGHT AND LICENSE
84	84
85		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	85	This software is copyright (c) 2013 by Infinity Interactive, Inc..
86	86
87	87	This is free software; you can redistribute it and/or modify it under
88	88	the same terms as the Perl 5 programming language system itself.
89	89
90	90	=cut
91
92
93		__END__
94

+4

-8

lib/Moose/Meta/Role/Method.pm less more

3	3	$Moose::Meta::Role::Method::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::Role::Method::VERSION = '2.0604';
	6	$Moose::Meta::Role::Method::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

26	26
27	27	# ABSTRACT: A Moose Method metaclass for Roles
28	28
29
	29	__END__
30	30
31	31	=pod
32	32

36	36
37	37	=head1 VERSION
38	38
39		version 2.0604
	39	version 2.0800
40	40
41	41	=head1 DESCRIPTION
42	42

54	54
55	55	=head1 COPYRIGHT AND LICENSE
56	56
57		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	57	This software is copyright (c) 2013 by Infinity Interactive, Inc..
58	58
59	59	This is free software; you can redistribute it and/or modify it under
60	60	the same terms as the Perl 5 programming language system itself.
61	61
62	62	=cut
63
64
65		__END__
66

+4

-8

lib/Moose/Meta/Role.pm less more

2	2	$Moose::Meta::Role::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::Role::VERSION = '2.0604';
	5	$Moose::Meta::Role::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

732	732
733	733	# ABSTRACT: The Moose Role metaclass
734	734
735
	735	__END__
736	736
737	737	=pod
738	738

742	742
743	743	=head1 VERSION
744	744
745		version 2.0604
	745	version 2.0800
746	746
747	747	=head1 DESCRIPTION
748	748

1036	1036
1037	1037	=head1 COPYRIGHT AND LICENSE
1038	1038
1039		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1039	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1040	1040
1041	1041	This is free software; you can redistribute it and/or modify it under
1042	1042	the same terms as the Perl 5 programming language system itself.
1043	1043
1044	1044	=cut
1045
1046
1047		__END__
1048

+4

-8

lib/Moose/Meta/TypeCoercion/Union.pm less more

3	3	$Moose::Meta::TypeCoercion::Union::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::TypeCoercion::Union::VERSION = '2.0604';
	6	$Moose::Meta::TypeCoercion::Union::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

48	48
49	49	# ABSTRACT: The Moose Type Coercion metaclass for Unions
50	50
51
	51	__END__
52	52
53	53	=pod
54	54

58	58
59	59	=head1 VERSION
60	60
61		version 2.0604
	61	version 2.0800
62	62
63	63	=head1 DESCRIPTION
64	64

94	94
95	95	=head1 COPYRIGHT AND LICENSE
96	96
97		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	97	This software is copyright (c) 2013 by Infinity Interactive, Inc..
98	98
99	99	This is free software; you can redistribute it and/or modify it under
100	100	the same terms as the Perl 5 programming language system itself.
101	101
102	102	=cut
103
104
105		__END__
106

+4

-8

lib/Moose/Meta/TypeCoercion.pm less more

3	3	$Moose::Meta::TypeCoercion::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::TypeCoercion::VERSION = '2.0604';
	6	$Moose::Meta::TypeCoercion::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

105	105
106	106	# ABSTRACT: The Moose Type Coercion metaclass
107	107
108
	108	__END__
109	109
110	110	=pod
111	111

115	115
116	116	=head1 VERSION
117	117
118		version 2.0604
	118	version 2.0800
119	119
120	120	=head1 DESCRIPTION
121	121

192	192
193	193	=head1 COPYRIGHT AND LICENSE
194	194
195		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	195	This software is copyright (c) 2013 by Infinity Interactive, Inc..
196	196
197	197	This is free software; you can redistribute it and/or modify it under
198	198	the same terms as the Perl 5 programming language system itself.
199	199
200	200	=cut
201
202
203		__END__
204

+4

-8

lib/Moose/Meta/TypeConstraint/Class.pm less more

2	2	$Moose::Meta::TypeConstraint::Class::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::TypeConstraint::Class::VERSION = '2.0604';
	5	$Moose::Meta::TypeConstraint::Class::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

136	136
137	137	# ABSTRACT: Class/TypeConstraint parallel hierarchy
138	138
139
	139	__END__
140	140
141	141	=pod
142	142

146	146
147	147	=head1 VERSION
148	148
149		version 2.0604
	149	version 2.0800
150	150
151	151	=head1 DESCRIPTION
152	152

217	217
218	218	=head1 COPYRIGHT AND LICENSE
219	219
220		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	220	This software is copyright (c) 2013 by Infinity Interactive, Inc..
221	221
222	222	This is free software; you can redistribute it and/or modify it under
223	223	the same terms as the Perl 5 programming language system itself.
224	224
225	225	=cut
226
227
228		__END__
229

+4

-9

lib/Moose/Meta/TypeConstraint/DuckType.pm less more

2	2	$Moose::Meta::TypeConstraint::DuckType::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::TypeConstraint::DuckType::VERSION = '2.0604';
	5	$Moose::Meta::TypeConstraint::DuckType::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

109	109
110	110	# ABSTRACT: Type constraint for duck typing
111	111
112
	112	__END__
113	113
114	114	=pod
115	115

119	119
120	120	=head1 VERSION
121	121
122		version 2.0604
	122	version 2.0800
123	123
124	124	=head1 DESCRIPTION
125	125

173	173
174	174	=head1 COPYRIGHT AND LICENSE
175	175
176		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	176	This software is copyright (c) 2013 by Infinity Interactive, Inc..
177	177
178	178	This is free software; you can redistribute it and/or modify it under
179	179	the same terms as the Perl 5 programming language system itself.
180	180
181	181	=cut
182
183
184		__END__
185
186

+4

-10

lib/Moose/Meta/TypeConstraint/Enum.pm less more

2	2	$Moose::Meta::TypeConstraint::Enum::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::TypeConstraint::Enum::VERSION = '2.0604';
	5	$Moose::Meta::TypeConstraint::Enum::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

111	111
112	112	# ABSTRACT: Type constraint for enumerated values.
113	113
114
	114	__END__
115	115
116	116	=pod
117	117

121	121
122	122	=head1 VERSION
123	123
124		version 2.0604
	124	version 2.0800
125	125
126	126	=head1 DESCRIPTION
127	127

175	175
176	176	=head1 COPYRIGHT AND LICENSE
177	177
178		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	178	This software is copyright (c) 2013 by Infinity Interactive, Inc..
179	179
180	180	This is free software; you can redistribute it and/or modify it under
181	181	the same terms as the Perl 5 programming language system itself.
182	182
183	183	=cut
184
185
186		__END__
187
188
189

+4

-9

lib/Moose/Meta/TypeConstraint/Parameterizable.pm less more

2	2	$Moose::Meta::TypeConstraint::Parameterizable::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::TypeConstraint::Parameterizable::VERSION = '2.0604';
	5	$Moose::Meta::TypeConstraint::Parameterizable::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

104	104
105	105	# ABSTRACT: Type constraints which can take a parameter (ArrayRef)
106	106
107
	107	__END__
108	108
109	109	=pod
110	110

114	114
115	115	=head1 VERSION
116	116
117		version 2.0604
	117	version 2.0800
118	118
119	119	=head1 DESCRIPTION
120	120

148	148
149	149	=head1 COPYRIGHT AND LICENSE
150	150
151		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	151	This software is copyright (c) 2013 by Infinity Interactive, Inc..
152	152
153	153	This is free software; you can redistribute it and/or modify it under
154	154	the same terms as the Perl 5 programming language system itself.
155	155
156	156	=cut
157
158
159		__END__
160
161

+4

-9

lib/Moose/Meta/TypeConstraint/Parameterized.pm less more

2	2	$Moose::Meta::TypeConstraint::Parameterized::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::TypeConstraint::Parameterized::VERSION = '2.0604';
	5	$Moose::Meta::TypeConstraint::Parameterized::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

109	109
110	110	# ABSTRACT: Type constraints with a bound parameter (ArrayRef[Int])
111	111
112
	112	__END__
113	113
114	114	=pod
115	115

119	119
120	120	=head1 VERSION
121	121
122		version 2.0604
	122	version 2.0800
123	123
124	124	=head1 METHODS
125	125

141	141
142	142	=head1 COPYRIGHT AND LICENSE
143	143
144		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	144	This software is copyright (c) 2013 by Infinity Interactive, Inc..
145	145
146	146	This is free software; you can redistribute it and/or modify it under
147	147	the same terms as the Perl 5 programming language system itself.
148	148
149	149	=cut
150
151
152		__END__
153
154

+4

-9

lib/Moose/Meta/TypeConstraint/Registry.pm less more

3	3	$Moose::Meta::TypeConstraint::Registry::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::TypeConstraint::Registry::VERSION = '2.0604';
	6	$Moose::Meta::TypeConstraint::Registry::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

68	68
69	69	# ABSTRACT: registry for type constraints
70	70
71
	71	__END__
72	72
73	73	=pod
74	74

78	78
79	79	=head1 VERSION
80	80
81		version 2.0604
	81	version 2.0800
82	82
83	83	=head1 DESCRIPTION
84	84

160	160
161	161	=head1 COPYRIGHT AND LICENSE
162	162
163		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	163	This software is copyright (c) 2013 by Infinity Interactive, Inc..
164	164
165	165	This is free software; you can redistribute it and/or modify it under
166	166	the same terms as the Perl 5 programming language system itself.
167	167
168	168	=cut
169
170
171		__END__
172
173

+8

-10

lib/Moose/Meta/TypeConstraint/Role.pm less more

2	2	$Moose::Meta::TypeConstraint::Role::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Meta::TypeConstraint::Role::VERSION = '2.0604';
	5	$Moose::Meta::TypeConstraint::Role::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

97	97
98	98	if ( not ref $type_or_name_or_role ) {
99	99	# it might be a role
100		return 1 if Class::MOP::class_of($self->role)->does_role( $type_or_name_or_role );
	100	my $class = Class::MOP::class_of($self->role);
	101	return 1 if defined($class) && $class->does_role( $type_or_name_or_role );
101	102	}
102	103
103	104	my $type = Moose::Util::TypeConstraints::find_type_constraint($type_or_name_or_role);

107	108	if ( $type->isa(__PACKAGE__) ) {
108	109	# if $type_or_name_or_role isn't a role, it might be the TC name of another ::Role type
109	110	# or it could also just be a type object in this branch
110		return Class::MOP::class_of($self->role)->does_role( $type->role );
	111	my $class = Class::MOP::class_of($self->role);
	112	return defined($class) && $class->does_role( $type->role );
111	113	} else {
112	114	# the only other thing we are a subtype of is Object
113	115	$self->SUPER::is_subtype_of($type);

123	125
124	126	# ABSTRACT: Role/TypeConstraint parallel hierarchy
125	127
126
	128	__END__
127	129
128	130	=pod
129	131

133	135
134	136	=head1 VERSION
135	137
136		version 2.0604
	138	version 2.0800
137	139
138	140	=head1 DESCRIPTION
139	141

198	200
199	201	=head1 COPYRIGHT AND LICENSE
200	202
201		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	203	This software is copyright (c) 2013 by Infinity Interactive, Inc..
202	204
203	205	This is free software; you can redistribute it and/or modify it under
204	206	the same terms as the Perl 5 programming language system itself.
205	207
206	208	=cut
207
208
209		__END__
210

+5

-9

lib/Moose/Meta/TypeConstraint/Union.pm less more

3	3	$Moose::Meta::TypeConstraint::Union::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::TypeConstraint::Union::VERSION = '2.0604';
	6	$Moose::Meta::TypeConstraint::Union::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

34	34	%options,
35	35	);
36	36
37		$self->_set_constraint(sub { $self->check($_[0]) });
	37	$self->_set_constraint( $self->_compiled_type_constraint );
38	38
39	39	return $self;
40	40	}

202	202
203	203	# ABSTRACT: A union of Moose type constraints
204	204
205
	205	__END__
206	206
207	207	=pod
208	208

212	212
213	213	=head1 VERSION
214	214
215		version 2.0604
	215	version 2.0800
216	216
217	217	=head1 DESCRIPTION
218	218

302	302
303	303	=head1 COPYRIGHT AND LICENSE
304	304
305		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	305	This software is copyright (c) 2013 by Infinity Interactive, Inc..
306	306
307	307	This is free software; you can redistribute it and/or modify it under
308	308	the same terms as the Perl 5 programming language system itself.
309	309
310	310	=cut
311
312
313		__END__
314

+4

-8

lib/Moose/Meta/TypeConstraint.pm less more

3	3	$Moose::Meta::TypeConstraint::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Meta::TypeConstraint::VERSION = '2.0604';
	6	$Moose::Meta::TypeConstraint::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

435	435
436	436	# ABSTRACT: The Moose Type Constraint metaclass
437	437
438
	438	__END__
439	439
440	440	=pod
441	441

445	445
446	446	=head1 VERSION
447	447
448		version 2.0604
	448	version 2.0800
449	449
450	450	=head1 DESCRIPTION
451	451

646	646
647	647	=head1 COPYRIGHT AND LICENSE
648	648
649		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	649	This software is copyright (c) 2013 by Infinity Interactive, Inc..
650	650
651	651	This is free software; you can redistribute it and/or modify it under
652	652	the same terms as the Perl 5 programming language system itself.
653	653
654	654	=cut
655
656
657		__END__
658

+4

-8

lib/Moose/Object.pm less more

3	3	$Moose::Object::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Object::VERSION = '2.0604';
	6	$Moose::Object::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

136	136
137	137	# ABSTRACT: The base object for Moose
138	138
139
	139	__END__
140	140
141	141	=pod
142	142

146	146
147	147	=head1 VERSION
148	148
149		version 2.0604
	149	version 2.0800
150	150
151	151	=head1 DESCRIPTION
152	152

221	221
222	222	=head1 COPYRIGHT AND LICENSE
223	223
224		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	224	This software is copyright (c) 2013 by Infinity Interactive, Inc..
225	225
226	226	This is free software; you can redistribute it and/or modify it under
227	227	the same terms as the Perl 5 programming language system itself.
228	228
229	229	=cut
230
231
232		__END__
233

+8

-9

lib/Moose/Role.pm less more

2	2	$Moose::Role::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Role::VERSION = '2.0604';
	5	$Moose::Role::VERSION = '2.0800';
6	6	}
7	7	use strict;
8	8	use warnings;

44	44	my $meta = shift;
45	45	my $name = shift;
46	46	croak 'Usage: has \'name\' => ( key => value, ... )' if @_ == 1;
47		my %options = ( definition_context => Moose::Util::_caller_info(), @_ );
	47	my %context = Moose::Util::_caller_info;
	48	$context{context} = 'has declaration';
	49	$context{type} = 'role';
	50	my %options = ( definition_context => \%context, @_ );
48	51	my $attrs = ( ref($name) eq 'ARRAY' ) ? $name : [ ($name) ];
49	52	$meta->add_attribute( $_, %options ) for @$attrs;
50	53	}

158	161
159	162	# ABSTRACT: The Moose Role
160	163
161
	164	__END__
162	165
163	166	=pod
164	167

168	171
169	172	=head1 VERSION
170	173
171		version 2.0604
	174	version 2.0800
172	175
173	176	=head1 SYNOPSIS
174	177

316	319
317	320	=head1 COPYRIGHT AND LICENSE
318	321
319		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	322	This software is copyright (c) 2013 by Infinity Interactive, Inc..
320	323
321	324	This is free software; you can redistribute it and/or modify it under
322	325	the same terms as the Perl 5 programming language system itself.
323	326
324	327	=cut
325
326
327		__END__
328

+3

-9

lib/Moose/Spec/Role.pod less more

1	1
2	2	# ABSTRACT: Formal spec for Role behavior
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

345	345
346	346	=head1 COPYRIGHT AND LICENSE
347	347
348		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	348	This software is copyright (c) 2013 by Infinity Interactive, Inc..
349	349
350	350	This is free software; you can redistribute it and/or modify it under
351	351	the same terms as the Perl 5 programming language system itself.
352	352
353	353	=cut
354
355
356		__END__
357
358
359

+3

-7

lib/Moose/Unsweetened.pod less more

1	1
2	2	# ABSTRACT: Moved to Moose::Manual::Unsweetened, so go read that
3	3
4
	4	__END__
5	5
6	6	=pod
7	7

11	11
12	12	=head1 VERSION
13	13
14		version 2.0604
	14	version 2.0800
15	15
16	16	=head1 DESCRIPTION
17	17

25	25
26	26	=head1 COPYRIGHT AND LICENSE
27	27
28		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	28	This software is copyright (c) 2013 by Infinity Interactive, Inc..
29	29
30	30	This is free software; you can redistribute it and/or modify it under
31	31	the same terms as the Perl 5 programming language system itself.
32	32
33	33	=cut
34
35
36		__END__
37

+4

-8

lib/Moose/Util/MetaRole.pm less more

2	2	$Moose::Util::MetaRole::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Util::MetaRole::VERSION = '2.0604';
	5	$Moose::Util::MetaRole::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

141	141
142	142	# ABSTRACT: Apply roles to any metaclass, as well as the object base class
143	143
144
	144	__END__
145	145
146	146	=pod
147	147

151	151
152	152	=head1 VERSION
153	153
154		version 2.0604
	154	version 2.0800
155	155
156	156	=head1 SYNOPSIS
157	157

302	302
303	303	=head1 COPYRIGHT AND LICENSE
304	304
305		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	305	This software is copyright (c) 2013 by Infinity Interactive, Inc..
306	306
307	307	This is free software; you can redistribute it and/or modify it under
308	308	the same terms as the Perl 5 programming language system itself.
309	309
310	310	=cut
311
312
313		__END__
314

+1

-1

lib/Moose/Util/TypeConstraints/Builtins.pm less more

2	2	$Moose::Util::TypeConstraints::Builtins::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Util::TypeConstraints::Builtins::VERSION = '2.0604';
	5	$Moose::Util::TypeConstraints::Builtins::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

+24

-28

lib/Moose/Util/TypeConstraints.pm less more

3	3	$Moose::Util::TypeConstraints::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$Moose::Util::TypeConstraints::VERSION = '2.0604';
	6	$Moose::Util::TypeConstraints::VERSION = '2.0800';
7	7	}
8	8
9	9	use Carp ();

760	760
761	761	# ABSTRACT: Type constraint system for Moose
762	762
763
	763	__END__
764	764
765	765	=pod
766	766

770	770
771	771	=head1 VERSION
772	772
773		version 2.0604
	773	version 2.0800
774	774
775	775	=head1 SYNOPSIS
776	776

845	845	that hierarchy represented visually.
846	846
847	847	Any
848		Item
849		Bool
850		Maybe[`a]
851		Undef
852		Defined
853		Value
854		Str
855		Num
856		Int
857		ClassName
858		RoleName
859		Ref
860		ScalarRef[`a]
861		ArrayRef[`a]
862		HashRef[`a]
863		CodeRef
864		RegexpRef
865		GlobRef
866		FileHandle
867		Object
	848	Item
	849	Bool
	850	Maybe[`a]
	851	Undef
	852	Defined
	853	Value
	854	Str
	855	Num
	856	Int
	857	ClassName
	858	RoleName
	859	Ref
	860	ScalarRef[`a]
	861	ArrayRef[`a]
	862	HashRef[`a]
	863	CodeRef
	864	RegexpRef
	865	GlobRef
	866	FileHandle
	867	Object
868	868
869	869	B<NOTE:> Any type followed by a type parameter C<[`a]> can be
870	870	parameterized, this means you can say:

1421	1421
1422	1422	=head1 COPYRIGHT AND LICENSE
1423	1423
1424		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1424	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1425	1425
1426	1426	This is free software; you can redistribute it and/or modify it under
1427	1427	the same terms as the Perl 5 programming language system itself.
1428	1428
1429	1429	=cut
1430
1431
1432		__END__
1433

+5

-10

lib/Moose/Util.pm less more

2	2	$Moose::Util::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::Util::VERSION = '2.0604';
	5	$Moose::Util::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

284	284	my $level = @_ ? ($_[0] + 1) : 2;
285	285	my %info;
286	286	@info{qw(package file line)} = caller($level);
287		return \%info;
	287	return %info;
288	288	}
289	289
290	290	sub _create_alias {

479	479
480	480	# ABSTRACT: Utilities for working with Moose classes
481	481
482
	482	__END__
483	483
484	484	=pod
485	485

489	489
490	490	=head1 VERSION
491	491
492		version 2.0604
	492	version 2.0800
493	493
494	494	=head1 SYNOPSIS
495	495

623	623
624	624	=head1 COPYRIGHT AND LICENSE
625	625
626		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	626	This software is copyright (c) 2013 by Infinity Interactive, Inc..
627	627
628	628	This is free software; you can redistribute it and/or modify it under
629	629	the same terms as the Perl 5 programming language system itself.
630	630
631	631	=cut
632
633
634		__END__
635
636

+40

-11

lib/Moose.pm less more

2	2	$Moose::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Moose::VERSION = '2.0604';
	5	$Moose::VERSION = '2.0800';
6	6	}
7	7	use strict;
8	8	use warnings;

10	10	use 5.008;
11	11
12	12	use Scalar::Util 'blessed';
13		use Carp 'confess';
	13	use Carp 'carp', 'confess';
14	14	use Class::Load 'is_class_loaded';
15
16	15
17	16	use Moose::Deprecated;
18	17	use Moose::Exporter;

73	72	Moose->throw_error('Usage: has \'name\' => ( key => value, ... )')
74	73	if @_ % 2 == 1;
75	74
76		my %options = ( definition_context => Moose::Util::_caller_info(), @_ );
	75	my %context = Moose::Util::_caller_info;
	76	$context{context} = 'has declaration';
	77	$context{type} = 'class';
	78	my %options = ( definition_context => \%context, @_ );
77	79	my $attrs = ( ref($name) eq 'ARRAY' ) ? $name : [ ($name) ];
78	80	$meta->add_attribute( $_, %options ) for @$attrs;
79	81	}

95	97	our @SUPER_ARGS;
96	98
97	99	sub super {
	100	if (@_) {
	101	carp 'Arguments passed to super() are ignored';
	102	}
	103
98	104	# This check avoids a recursion loop - see
99	105	# t/bugs/super_recursion.t
100	106	return if defined $SUPER_PACKAGE && $SUPER_PACKAGE ne caller();

277	283
278	284	# ABSTRACT: A postmodern object system for Perl 5
279	285
280
	286	__END__
281	287
282	288	=pod
283	289

287	293
288	294	=head1 VERSION
289	295
290		version 2.0604
	296	version 2.0800
291	297
292	298	=head1 SYNOPSIS
293	299

957	963	This channel is quite active, and questions at all levels (on Moose-related
958	964	topics ;) are welcome.
959	965
	966	=head1 WHAT DOES MOOSE STAND FOR?
	967
	968	Moose doesn't stand for one thing in particular, however, if you want, here
	969	are a few of our favorites. Feel free to contribute more!
	970
	971	=over 4
	972
	973	=item * Make Other Object Systems Envious
	974
	975	=item * Makes Object Orientation So Easy
	976
	977	=item * Makes Object Orientation Spiffy- Er (sorry ingy)
	978
	979	=item * Most Other Object Systems Emasculate
	980
	981	=item * Moose Often Ovulate Sorta Early
	982
	983	=item * Moose Offers Often Super Extensions
	984
	985	=item * Meta Object Obligates Salivary Excitation
	986
	987	=item * Meta Object Orientation Syntax Extensions
	988
	989	=back
	990
960	991	=head1 ACKNOWLEDGEMENTS
961	992
962	993	=over 4

1081	1112
1082	1113	Dave (autarch) Rolsky E<lt>autarch@urth.orgE<gt>
1083	1114
	1115	Karen (ether) Etheridge E<lt>ether@cpan.orgE<gt>
	1116
1084	1117	=head1 CONTRIBUTORS
1085	1118
1086	1119	Moose is a community project, and as such, involves the work of many, many

1187	1220
1188	1221	=head1 COPYRIGHT AND LICENSE
1189	1222
1190		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	1223	This software is copyright (c) 2013 by Infinity Interactive, Inc..
1191	1224
1192	1225	This is free software; you can redistribute it and/or modify it under
1193	1226	the same terms as the Perl 5 programming language system itself.
1194	1227
1195	1228	=cut
1196
1197
1198		__END__
1199

+4

-9

lib/Test/Moose.pm less more

2	2	$Test::Moose::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$Test::Moose::VERSION = '2.0604';
	5	$Test::Moose::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

87	87
88	88	# ABSTRACT: Test functions for Moose specific features
89	89
90
	90	__END__
91	91
92	92	=pod
93	93

97	97
98	98	=head1 VERSION
99	99
100		version 2.0604
	100	version 2.0800
101	101
102	102	=head1 SYNOPSIS
103	103

178	178
179	179	=head1 COPYRIGHT AND LICENSE
180	180
181		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	181	This software is copyright (c) 2013 by Infinity Interactive, Inc..
182	182
183	183	This is free software; you can redistribute it and/or modify it under
184	184	the same terms as the Perl 5 programming language system itself.
185	185
186	186	=cut
187
188
189		__END__
190
191

+4

-8

lib/metaclass.pm less more

3	3	$metaclass::AUTHORITY = 'cpan:STEVAN';
4	4	}
5	5	{
6		$metaclass::VERSION = '2.0604';
	6	$metaclass::VERSION = '2.0800';
7	7	}
8	8
9	9	use strict;

53	53
54	54	# ABSTRACT: a pragma for installing and using Class::MOP metaclasses
55	55
56
	56	__END__
57	57
58	58	=pod
59	59

63	63
64	64	=head1 VERSION
65	65
66		version 2.0604
	66	version 2.0800
67	67
68	68	=head1 SYNOPSIS
69	69

112	112
113	113	=head1 COPYRIGHT AND LICENSE
114	114
115		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	115	This software is copyright (c) 2013 by Infinity Interactive, Inc..
116	116
117	117	This is free software; you can redistribute it and/or modify it under
118	118	the same terms as the Perl 5 programming language system itself.
119	119
120	120	=cut
121
122
123		__END__
124

+4

-8

lib/oose.pm less more

2	2	$oose::AUTHORITY = 'cpan:STEVAN';
3	3	}
4	4	{
5		$oose::VERSION = '2.0604';
	5	$oose::VERSION = '2.0800';
6	6	}
7	7
8	8	use strict;

26	26
27	27	# ABSTRACT: syntactic sugar to make Moose one-liners easier
28	28
29
	29	__END__
30	30
31	31	=pod
32	32

36	36
37	37	=head1 VERSION
38	38
39		version 2.0604
	39	version 2.0800
40	40
41	41	=head1 SYNOPSIS
42	42

89	89
90	90	=head1 COPYRIGHT AND LICENSE
91	91
92		This software is copyright (c) 2012 by Infinity Interactive, Inc..
	92	This software is copyright (c) 2013 by Infinity Interactive, Inc..
93	93
94	94	This is free software; you can redistribute it and/or modify it under
95	95	the same terms as the Perl 5 programming language system itself.
96	96
97	97	=cut
98
99
100		__END__
101

+47

-0

t/basics/super_warns_on_args.t less more

	0	use strict;
	1	use warnings;
	2
	3	use Test::Requires {
	4	'Test::Output' => '0.01',
	5	};
	6
	7	use Test::More;
	8
	9	{
	10	package Parent;
	11	use Moose;
	12
	13	sub foo { 42 }
	14	sub bar { 42 }
	15
	16	package Child;
	17	use Moose;
	18
	19	extends 'Parent';
	20
	21	override foo => sub {
	22	super( 1, 2, 3 );
	23	};
	24
	25	override bar => sub {
	26	super();
	27	};
	28	}
	29
	30	{
	31	my $file = __FILE__;
	32
	33	stderr_like(
	34	sub { Child->new->foo },
	35	qr/\QArguments passed to super() are ignored at $file/,
	36	'got a warning when passing args to super() call'
	37	);
	38
	39	stderr_is(
	40	sub { Child->new->bar },
	41	q{},
	42	'no warning on super() call without arguments'
	43	);
	44	}
	45
	46	done_testing();

+5

-0

t/bugs/create_anon_recursion.t less more

2	2
3	3	use Test::More;
4	4	use Test::Fatal;
	5
	6	BEGIN {
	7	plan skip_all => "preloading things makes this test meaningless"
	8	if exists $INC{'Moose.pm'};
	9	}
5	10
6	11	use Moose::Meta::Class;
7	12

+156

-0

t/bugs/moose_exporter_false_circular_reference_rt_63818.t less more

	0	#!/usr/bin/perl
	1
	2	use strict;
	3	use warnings;
	4
	5	use Test::More;
	6	use Test::Fatal;
	7
	8	# OKSet1
	9	{
	10
	11	package TESTING::MooseExporter::Rt63818::OKSet1::ModuleA;
	12	use Moose ();
	13	Moose::Exporter->setup_import_methods(
	14	also => [
	15	'Moose',
	16	]
	17	);
	18	}
	19
	20	# OKSet2
	21	{
	22
	23	package TESTING::MooseExporter::Rt63818::OKSet2::ModuleA;
	24	use Moose ();
	25	Moose::Exporter->setup_import_methods(
	26	also => [
	27	'Moose',
	28	]
	29	);
	30
	31	package TESTING::MooseExporter::Rt63818::OKSet2::ModuleB;
	32	use Moose ();
	33	Moose::Exporter->setup_import_methods(
	34	also => [
	35	'Moose',
	36	]
	37	);
	38	}
	39
	40	# OKSet3
	41	{
	42
	43	package TESTING::MooseExporter::Rt63818::OKSet3::ModuleA;
	44	use Moose ();
	45	Moose::Exporter->setup_import_methods(
	46	also => [
	47	'Moose',
	48	]
	49	);
	50
	51	package TESTING::MooseExporter::Rt63818::OKSet3::ModuleB;
	52	use Moose ();
	53	Moose::Exporter->setup_import_methods(
	54	also => [
	55	'Moose',
	56	'TESTING::MooseExporter::Rt63818::OKSet3::ModuleA',
	57	]
	58	);
	59	}
	60
	61	# OKSet4
	62	{
	63
	64	package TESTING::MooseExporter::Rt63818::OKSet4::ModuleA;
	65	use Moose ();
	66	Moose::Exporter->setup_import_methods(
	67	also => [
	68	'Moose',
	69	]
	70	);
	71
	72	package TESTING::MooseExporter::Rt63818::OKSet4::ModuleB;
	73	use Moose ();
	74	Moose::Exporter->setup_import_methods(
	75	also => [
	76	'Moose',
	77	'TESTING::MooseExporter::Rt63818::OKSet4::ModuleA',
	78	]
	79	);
	80
	81	package TESTING::MooseExporter::Rt63818::OKSet4::ModuleC;
	82	use Moose ();
	83	Moose::Exporter->setup_import_methods(
	84	also => [
	85	'Moose',
	86	'TESTING::MooseExporter::Rt63818::OKSet4::ModuleA',
	87	'TESTING::MooseExporter::Rt63818::OKSet4::ModuleB',
	88	]
	89	);
	90	}
	91
	92	# OKSet5
	93	{
	94
	95	package TESTING::MooseExporter::Rt63818::OKSet5::ModuleA;
	96	use Moose ();
	97	Moose::Exporter->setup_import_methods(
	98	also => [
	99	'Moose',
	100	]
	101	);
	102
	103	package TESTING::MooseExporter::Rt63818::OKSet5::ModuleB;
	104	use Moose ();
	105	Moose::Exporter->setup_import_methods(
	106	also => [
	107	'Moose',
	108	'TESTING::MooseExporter::Rt63818::OKSet5::ModuleA',
	109	]
	110	);
	111
	112	package TESTING::MooseExporter::Rt63818::OKSet5::ModuleC;
	113	use Moose ();
	114	Moose::Exporter->setup_import_methods(
	115	also => [
	116	'Moose',
	117	'TESTING::MooseExporter::Rt63818::OKSet5::ModuleA',
	118	'TESTING::MooseExporter::Rt63818::OKSet5::ModuleB',
	119	]
	120	);
	121
	122	package TESTING::MooseExporter::Rt63818::OKSet5::ModuleD;
	123	use Moose ();
	124	Moose::Exporter->setup_import_methods(
	125	also => [
	126	'Moose',
	127	'TESTING::MooseExporter::Rt63818::OKSet5::ModuleA',
	128	'TESTING::MooseExporter::Rt63818::OKSet5::ModuleC',
	129	]
	130	);
	131	}
	132
	133	# NotOKSet1
	134	{
	135
	136	package TESTING::MooseExporter::Rt63818::NotOKSet1::ModuleA;
	137	use Moose ();
	138	::like(
	139	::exception { Moose::Exporter->setup_import_methods(
	140	also => [
	141	'Moose',
	142	'TESTING::MooseExporter::Rt63818::NotOKSet1::ModuleA',
	143	]
	144	)
	145	},
	146	qr/\QCircular reference in 'also' parameter to Moose::Exporter between TESTING::MooseExporter::Rt63818::NotOKSet1::ModuleA and TESTING::MooseExporter::Rt63818::NotOKSet1::ModuleA/,
	147	'a single-hop circular reference in also dies with an error'
	148	);
	149	}
	150
	151	# Alas, I've not figured out how to craft a test which shows that we get the
	152	# same error for multi-hop circularity... instead I get tests that die because
	153	# one of the circularly-referenced things was not loaded.
	154
	155	done_testing;

+79

-0

t/bugs/traits_with_exporter.t less more

	0	#!/usr/bin/perl
	1
	2	use lib "t/lib";
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
	8	BEGIN {
	9	package MyExporterRole;
	10
	11	use Moose ();
	12	use Moose::Exporter;
	13
	14	Moose::Exporter->setup_import_methods(
	15	also => 'Moose',
	16	);
	17
	18	sub init_meta {
	19	my ($class,%args) = @_;
	20
	21	my $meta = Moose->init_meta( %args );
	22
	23	Moose::Util::MetaRole::apply_metaroles(
	24	for => $meta,
	25	class_metaroles => {
	26	class => ['MyMetaRole'],
	27	},
	28	);
	29
	30	return $meta;
	31	}
	32
	33	$INC{'MyExporterRole.pm'} = __FILE__;
	34	}
	35
	36	{
	37	package MyMetaRole;
	38	use Moose::Role;
	39
	40	sub some_meta_class_method {
	41	return "HEY"
	42	}
	43	}
	44
	45	{
	46	package MyTrait;
	47	use Moose::Role;
	48
	49	sub some_meta_class_method_defined_by_trait {
	50	return "HO"
	51	}
	52
	53	{
	54	package Moose::Meta::Class::Custom::Trait::MyClassTrait;
	55	use strict;
	56	use warnings;
	57	sub register_implementation { return 'MyTrait' }
	58	}
	59	}
	60
	61	{
	62	package MyClass;
	63	use MyExporterRole -traits => 'MyClassTrait';
	64	}
	65
	66
	67
	68	my $my_class = MyClass->new;
	69
	70	isa_ok($my_class,'MyClass');
	71
	72	my $meta = $my_class->meta();
	73	# Check if MyMetaRole has been applied
	74	ok($meta->can('some_meta_class_method'),'Meta class has some_meta_class_method');
	75	# Check if MyTrait has been applied
	76	ok($meta->can('some_meta_class_method_defined_by_trait'),'Meta class has some_meta_class_method_defined_by_trait');
	77
	78	done_testing;

+71

-63

t/cmop/load.t less more

0	0	use strict;
1	1	use warnings;
	2
	3	# for instance, App::ForkProve
	4	my $preloaded;
	5	BEGIN { $preloaded = exists $INC{'Class/MOP.pm'} }
2	6
3	7	use Test::More;
4	8

70	74	}
71	75	}
72	76
73		is_deeply(
74		{Class::MOP::get_all_metaclasses},
75		\%METAS,
76		'... got all the metaclasses'
77		);
	77	SKIP: {
	78	skip "this list may be incorrect if we preloaded things", 3 if $preloaded;
	79	is_deeply(
	80	{Class::MOP::get_all_metaclasses},
	81	\%METAS,
	82	'... got all the metaclasses'
	83	);
78	84
79		is_deeply(
80		[
81		sort { $a->name cmp $b->name } Class::MOP::get_all_metaclass_instances
82		],
83		[
84		Class::MOP::Attribute->meta,
85		Class::MOP::Class->meta,
86		Class::MOP::Class::Immutable::Class::MOP::Class->meta,
87		Class::MOP::class_of('Class::MOP::Class::Immutable::Trait'),
88		Class::MOP::Instance->meta,
89		Class::MOP::Method->meta,
90		Class::MOP::Method::Accessor->meta,
91		Class::MOP::Method::Constructor->meta,
92		Class::MOP::Method::Generated->meta,
93		Class::MOP::Method::Inlined->meta,
94		Class::MOP::Method::Meta->meta,
95		Class::MOP::Method::Overload->meta,
96		Class::MOP::Method::Wrapped->meta,
97		Class::MOP::Mixin->meta,
98		Class::MOP::Mixin::AttributeCore->meta,
99		Class::MOP::Mixin::HasAttributes->meta,
100		Class::MOP::Mixin::HasMethods->meta,
101		Class::MOP::Module->meta,
102		Class::MOP::Object->meta,
103		Class::MOP::Package->meta,
104		Class::MOP::class_of('UNIVERSAL'),
105		],
106		'... got all the metaclass instances'
107		);
	85	is_deeply(
	86	[
	87	sort { $a->name cmp $b->name }
	88	Class::MOP::get_all_metaclass_instances
	89	],
	90	[
	91	Class::MOP::Attribute->meta,
	92	Class::MOP::Class->meta,
	93	Class::MOP::Class::Immutable::Class::MOP::Class->meta,
	94	Class::MOP::class_of('Class::MOP::Class::Immutable::Trait'),
	95	Class::MOP::Instance->meta,
	96	Class::MOP::Method->meta,
	97	Class::MOP::Method::Accessor->meta,
	98	Class::MOP::Method::Constructor->meta,
	99	Class::MOP::Method::Generated->meta,
	100	Class::MOP::Method::Inlined->meta,
	101	Class::MOP::Method::Meta->meta,
	102	Class::MOP::Method::Overload->meta,
	103	Class::MOP::Method::Wrapped->meta,
	104	Class::MOP::Mixin->meta,
	105	Class::MOP::Mixin::AttributeCore->meta,
	106	Class::MOP::Mixin::HasAttributes->meta,
	107	Class::MOP::Mixin::HasMethods->meta,
	108	Class::MOP::Module->meta,
	109	Class::MOP::Object->meta,
	110	Class::MOP::Package->meta,
	111	Class::MOP::class_of('UNIVERSAL'),
	112	],
	113	'... got all the metaclass instances'
	114	);
108	115
109		is_deeply(
110		[ sort { $a cmp $b } Class::MOP::get_all_metaclass_names() ],
111		[
112		sort qw/
113		Class::MOP::Attribute
114		Class::MOP::Class
115		Class::MOP::Class::Immutable::Class::MOP::Class
116		Class::MOP::Class::Immutable::Trait
117		Class::MOP::Mixin
118		Class::MOP::Mixin::AttributeCore
119		Class::MOP::Mixin::HasAttributes
120		Class::MOP::Mixin::HasMethods
121		Class::MOP::Instance
122		Class::MOP::Method
123		Class::MOP::Method::Accessor
124		Class::MOP::Method::Constructor
125		Class::MOP::Method::Generated
126		Class::MOP::Method::Inlined
127		Class::MOP::Method::Wrapped
128		Class::MOP::Method::Meta
129		Class::MOP::Method::Overload
130		Class::MOP::Module
131		Class::MOP::Object
132		Class::MOP::Package
133		UNIVERSAL
134		/,
135		],
136		'... got all the metaclass names'
137		);
	116	is_deeply(
	117	[ sort { $a cmp $b } Class::MOP::get_all_metaclass_names() ],
	118	[
	119	sort qw/
	120	Class::MOP::Attribute
	121	Class::MOP::Class
	122	Class::MOP::Class::Immutable::Class::MOP::Class
	123	Class::MOP::Class::Immutable::Trait
	124	Class::MOP::Mixin
	125	Class::MOP::Mixin::AttributeCore
	126	Class::MOP::Mixin::HasAttributes
	127	Class::MOP::Mixin::HasMethods
	128	Class::MOP::Instance
	129	Class::MOP::Method
	130	Class::MOP::Method::Accessor
	131	Class::MOP::Method::Constructor
	132	Class::MOP::Method::Generated
	133	Class::MOP::Method::Inlined
	134	Class::MOP::Method::Wrapped
	135	Class::MOP::Method::Meta
	136	Class::MOP::Method::Overload
	137	Class::MOP::Module
	138	Class::MOP::Object
	139	Class::MOP::Package
	140	UNIVERSAL
	141	/,
	142	],
	143	'... got all the metaclass names'
	144	);
	145	}
138	146
139	147	# testing the meta-circularity of the system
140	148

+1

-1

t/cmop/methods.t less more

412	412	my $baz_meta = Class::MOP::Class->initialize('Baz');
413	413	$baz_meta->add_method(foo => sub { });
414	414	my $stash = Package::Stash->new('Baz');
415		$stash->remove_package_symbol('&foo');
	415	$stash->remove_symbol('&foo');
416	416	is_deeply([$baz_meta->get_method_list], [], "method is deleted");
417	417	ok(!Baz->can('foo'), "Baz can't foo");
418	418	}

+221

-0

t/recipes/basics_geonome_overloadingsubtypesandcoercion.t less more

	0	#!/usr/bin/perl
	1
	2	use strict;
	3	use warnings;
	4
	5	use Test::More;
	6
	7
	8	{
	9	package Human;
	10
	11	use Moose;
	12	use Moose::Util::TypeConstraints;
	13
	14	subtype 'Sex'
	15	=> as 'Str'
	16	=> where { $_ =~ m{^[mf]$}s };
	17
	18	has 'sex' => ( is => 'ro', isa => 'Sex', required => 1 );
	19
	20	has 'mother' => ( is => 'ro', isa => 'Human' );
	21	has 'father' => ( is => 'ro', isa => 'Human' );
	22
	23	use overload '+' => \&_overload_add, fallback => 1;
	24
	25	sub _overload_add {
	26	my ( $one, $two ) = @_;
	27
	28	die('Only male and female humans may create children')
	29	if ( $one->sex() eq $two->sex() );
	30
	31	my ( $mother, $father )
	32	= ( $one->sex eq 'f' ? ( $one, $two ) : ( $two, $one ) );
	33
	34	my $sex = 'f';
	35	$sex = 'm' if ( rand() >= 0.5 );
	36
	37	return Human->new(
	38	sex => $sex,
	39	eye_color => ( $one->eye_color() + $two->eye_color() ),
	40	mother => $mother,
	41	father => $father,
	42	);
	43	}
	44
	45	use List::MoreUtils qw( zip );
	46
	47	coerce 'Human::EyeColor'
	48	=> from 'ArrayRef'
	49	=> via { my @genes = qw( bey2_1 bey2_2 gey_1 gey_2 );
	50	return Human::EyeColor->new( zip( @genes, @{$_} ) ); };
	51
	52	has 'eye_color' => (
	53	is => 'ro',
	54	isa => 'Human::EyeColor',
	55	coerce => 1,
	56	required => 1,
	57	);
	58
	59	}
	60
	61	{
	62	package Human::Gene::bey2;
	63
	64	use Moose;
	65	use Moose::Util::TypeConstraints;
	66
	67	type 'bey2_color' => where { $_ =~ m{^(?:brown\|blue)$} };
	68
	69	has 'color' => ( is => 'ro', isa => 'bey2_color' );
	70	}
	71
	72	{
	73	package Human::Gene::gey;
	74
	75	use Moose;
	76	use Moose::Util::TypeConstraints;
	77
	78	type 'gey_color' => where { $_ =~ m{^(?:green\|blue)$} };
	79
	80	has 'color' => ( is => 'ro', isa => 'gey_color' );
	81	}
	82
	83	{
	84	package Human::EyeColor;
	85
	86	use Moose;
	87	use Moose::Util::TypeConstraints;
	88
	89	coerce 'Human::Gene::bey2'
	90	=> from 'Str'
	91	=> via { Human::Gene::bey2->new( color => $_ ) };
	92
	93	coerce 'Human::Gene::gey'
	94	=> from 'Str'
	95	=> via { Human::Gene::gey->new( color => $_ ) };
	96
	97	has [qw( bey2_1 bey2_2 )] =>
	98	( is => 'ro', isa => 'Human::Gene::bey2', coerce => 1 );
	99
	100	has [qw( gey_1 gey_2 )] =>
	101	( is => 'ro', isa => 'Human::Gene::gey', coerce => 1 );
	102
	103	sub color {
	104	my ($self) = @_;
	105
	106	return 'brown'
	107	if ( $self->bey2_1->color() eq 'brown'
	108	or $self->bey2_2->color() eq 'brown' );
	109
	110	return 'green'
	111	if ( $self->gey_1->color() eq 'green'
	112	or $self->gey_2->color() eq 'green' );
	113
	114	return 'blue';
	115	}
	116
	117	use overload '""' => \&color, fallback => 1;
	118
	119	use overload '+' => \&_overload_add, fallback => 1;
	120
	121	sub _overload_add {
	122	my ( $one, $two ) = @_;
	123
	124	my $one_bey2 = 'bey2_' . _rand2();
	125	my $two_bey2 = 'bey2_' . _rand2();
	126
	127	my $one_gey = 'gey_' . _rand2();
	128	my $two_gey = 'gey_' . _rand2();
	129
	130	return Human::EyeColor->new(
	131	bey2_1 => $one->$one_bey2->color(),
	132	bey2_2 => $two->$two_bey2->color(),
	133	gey_1 => $one->$one_gey->color(),
	134	gey_2 => $two->$two_gey->color(),
	135	);
	136	}
	137
	138	sub _rand2 {
	139	return 1 + int( rand(2) );
	140	}
	141	}
	142
	143	my $gene_color_sets = [
	144	[ qw( blue blue blue blue ) => 'blue' ],
	145	[ qw( blue blue green blue ) => 'green' ],
	146	[ qw( blue blue blue green ) => 'green' ],
	147	[ qw( blue blue green green ) => 'green' ],
	148	[ qw( brown blue blue blue ) => 'brown' ],
	149	[ qw( brown brown green green ) => 'brown' ],
	150	[ qw( blue brown green blue ) => 'brown' ],
	151	];
	152
	153	foreach my $set (@$gene_color_sets) {
	154	my $expected_color = pop(@$set);
	155
	156	my $person = Human->new(
	157	sex => 'f',
	158	eye_color => $set,
	159	);
	160
	161	is(
	162	$person->eye_color(),
	163	$expected_color,
	164	'gene combination '
	165	. join( ',', @$set )
	166	. ' produces '
	167	. $expected_color
	168	. ' eye color',
	169	);
	170	}
	171
	172	my $parent_sets = [
	173	[
	174	[qw( blue blue blue blue )],
	175	[qw( blue blue blue blue )] => 'blue'
	176	],
	177	[
	178	[qw( blue blue blue blue )],
	179	[qw( brown brown green blue )] => 'brown'
	180	],
	181	[
	182	[qw( blue blue green green )],
	183	[qw( blue blue green green )] => 'green'
	184	],
	185	];
	186
	187	foreach my $set (@$parent_sets) {
	188	my $expected_color = pop(@$set);
	189
	190	my $mother = Human->new(
	191	sex => 'f',
	192	eye_color => shift(@$set),
	193	);
	194
	195	my $father = Human->new(
	196	sex => 'm',
	197	eye_color => shift(@$set),
	198	);
	199
	200	my $child = $mother + $father;
	201
	202	is(
	203	$child->eye_color(),
	204	$expected_color,
	205	'mother '
	206	. $mother->eye_color()
	207	. ' + father '
	208	. $father->eye_color()
	209	. ' = child '
	210	. $expected_color,
	211	);
	212	}
	213
	214	# Hmm, not sure how to test for random selection of genes since
	215	# I could theoretically run an infinite number of iterations and
	216	# never find proof that a child has inherited a particular gene.
	217
	218	# AUTHOR: Aran Clary Deltac <bluefeet@cpan.org>
	219
	220	done_testing;

+1

-1

t/roles/method_aliasing_in_composition.t less more

56	56	}
57	57
58	58	ok(My::OtherRole->meta->has_method($_), "we have a $_ method") for qw(foo baz role_bar);
59		ok(My::OtherRole->meta->requires_method('bar'), '... and the &bar method is required');
	59	ok(!My::OtherRole->meta->requires_method('bar'), '... and the &bar method is not required');
60	60	ok(!My::OtherRole->meta->requires_method('role_bar'), '... and the &role_bar method is not required');
61	61
62	62	{

+1

-1

t/roles/method_exclusion_in_composition.t less more

36	36	ok(My::OtherRole->meta->has_method($_), "we have a $_ method") for qw(foo bar baz);
37	37
38	38	ok(!My::OtherRole->meta->requires_method('foo'), '... and the &foo method is not required');
39		ok(My::OtherRole->meta->requires_method('bar'), '... and the &bar method is required');
	39	ok(!My::OtherRole->meta->requires_method('bar'), '... and the &bar method is not required');
40	40
41	41	{
42	42	package Foo::Role;

+22

-0

t/roles/more_alias_and_exclude.t less more

64	64	is($c->baz_foo, 'Baz::foo', '... got the right method');
65	65	is($c->baz_bar, 'Baz::bar', '... got the right method');
66	66
	67	{
	68	package Splunk;
	69
	70	use Moose::Role;
	71
	72	sub baz { 'Splunk::baz' }
	73	sub gorch { 'Splunk::gorch' }
	74
	75	::is(::exception { with 'Foo' }, undef, 'role to role application works');
	76
	77	package My::Class2;
	78
	79	use Moose;
	80
	81	::is(::exception { with 'Splunk' }, undef, 'and the role can be consumed');
	82	}
	83
	84	is(My::Class2->foo, 'Foo::foo', '... got the right method');
	85	is(My::Class2->bar, 'Foo::bar', '... got the right method');
	86	is(My::Class2->baz, 'Splunk::baz', '... got the right method');
	87	is(My::Class2->gorch, 'Splunk::gorch', '... got the right method');
	88
67	89	done_testing;

+28

-41

t/roles/overriding.t less more

47	47
48	48	{
49	49	# check that when a role is added to another role
50		# and they conflict and the method they conflict
51		# with is then required.
52
53		package Role::A::Conflict;
	50	# that the consumer's method shadows just like for classes.
	51
	52	package Role::A::Shadow;
54	53	use Moose::Role;
55	54
56	55	with 'Role::A';
57	56
58		sub bar { 'Role::A::Conflict::bar' }
59
60		package Class::A::Conflict;
61		use Moose;
62
63		::like( ::exception {
64		with 'Role::A::Conflict';
65		}, qr/Due to a method name conflict in roles 'Role::A' and 'Role::A::Conflict', the method 'bar' must be implemented or excluded by 'Class::A::Conflict'/, '... did not fufill the requirement of &bar method' );
66
67		package Class::A::Resolved;
68		use Moose;
69
70		::is( ::exception {
71		with 'Role::A::Conflict';
	57	sub bar { 'Role::A::Shadow::bar' }
	58
	59	package Class::A::Shadow;
	60	use Moose;
	61
	62	::is( ::exception {
	63	with 'Role::A::Shadow';
72	64	}, undef, '... did fufill the requirement of &bar method' );
73
74		sub bar { 'Class::A::Resolved::bar' }
75		}
76
77		ok(Role::A::Conflict->meta->requires_method('bar'), '... Role::A::Conflict created the bar requirement');
78
79		can_ok( Class::A::Resolved->new, qw(bar) );
80
81		is( Class::A::Resolved->new->bar, 'Class::A::Resolved::bar', "... got the right bar method" );
	65	}
	66
	67	can_ok( Class::A::Shadow->new, qw(bar) );
	68
	69	is( Class::A::Shadow->new->bar, 'Role::A::Shadow::bar', "... got the right bar method" );
82	70
83	71	{
84	72	# check that when two roles are composed, they conflict

130	118	# by a role, but also new ones can be
131	119	# created just as easily ...
132	120
133		package Role::D::And::E::Conflict;
	121	package Role::D::And::E::NoConflict;
134	122	use Moose::Role;
135	123
136	124	::is( ::exception {
137	125	with qw(Role::D Role::E); # conflict between 'foo's here
138		}, undef, "... define role Role::D::And::E::Conflict" );
139
140		sub foo { 'Role::D::And::E::Conflict::foo' } # this overrides ...
141
142		# but these conflict
143		sub xxy { 'Role::D::And::E::Conflict::xxy' }
144		sub bar { 'Role::D::And::E::Conflict::bar' }
145
146		}
147
148		ok(!Role::D::And::E::Conflict->meta->requires_method('foo'), '... Role::D::And::E::Conflict fufilled the &foo requirement');
149		ok(Role::D::And::E::Conflict->meta->requires_method('xxy'), '... Role::D::And::E::Conflict adds the &xxy requirement');
150		ok(Role::D::And::E::Conflict->meta->requires_method('bar'), '... Role::D::And::E::Conflict adds the &bar requirement');
	126	}, undef, "... define role Role::D::And::E::NoConflict" );
	127
	128	sub foo { 'Role::D::And::E::NoConflict::foo' } # this overrides ...
	129
	130	sub xxy { 'Role::D::And::E::NoConflict::xxy' } # and so do these ...
	131	sub bar { 'Role::D::And::E::NoConflict::bar' }
	132
	133	}
	134
	135	ok(!Role::D::And::E::NoConflict->meta->requires_method('foo'), '... Role::D::And::E::NoConflict fufilled the &foo requirement');
	136	ok(!Role::D::And::E::NoConflict->meta->requires_method('xxy'), '... Role::D::And::E::NoConflict fulfilled the &xxy requirement');
	137	ok(!Role::D::And::E::NoConflict->meta->requires_method('bar'), '... Role::D::And::E::NoConflict fulfilled the &bar requirement');
151	138
152	139	{
153	140	# conflict propagation

+1

-0

t/type_constraints/role_type_constraint.t less more

64	64	my $type;
65	65	is( exception { $type = role_type 'MyExampleRole' }, undef, 'Make initial role_type' );
66	66	is( exception { is(role_type('MyExampleRole'), $type, 're-running role_type gives same type') }, undef, 'No exception making duplicate role_type' );;
	67	is( exception { ok( ! $type->is_subtype_of('Bar'), 'MyExampleRole is not a subtype of Bar' ) }, undef, 'No exception for is_subtype_of undefined role' );
67	68	}
68	69
69	70	done_testing;

+10

-0

xt/author/memory_leaks.t less more

6	6
7	7	use Moose ();
8	8	use Moose::Util qw( apply_all_roles );
	9	use Moose::Util::TypeConstraints;
9	10
10	11	{
11	12	package MyRole;

98	99	memory_cycle_ok($anon_role, 'anon role meta object is cycle-free' );
99	100	}
100	101
	102	{
	103	my $Str = find_type_constraint('Str');
	104	my $Undef = find_type_constraint('Undef');
	105	my $Str_or_Undef = Moose::Meta::TypeConstraint::Union->new(
	106	type_constraints => [ $Str, $Undef ] );
	107	memory_cycle_ok($Str_or_Undef, 'union types do not leak');
	108	}
	109
	110
101	111	done_testing;

+116

-65

xt/author/test-my-dependents.t less more

4	4	use Test::More;
5	5
6	6	BEGIN {
7		plan skip_all => 'This test will not run unless you set MOOSE_TEST_MD to a true value'
	7	my $help = <<'EOF';
	8	This test will not run unless you set MOOSE_TEST_MD to a true value.
	9
	10	Valid values are:
	11
	12	all Test every dist which depends on Moose except those
	13	that we know cannot be tested. This is a lot of
	14	distros (thousands).
	15
	16	Dist::1,Dist::2,... Test the individual dists listed.
	17
	18	MooseX Test all Moose extension distros
	19	(MooseX modules plus a few others).
	20
	21	1 Run the default tests. We pick 200 random dists and
	22	test them.
	23
	24	EOF
	25
	26	plan skip_all => $help
8	27	unless $ENV{MOOSE_TEST_MD};
9	28	}
10	29

23	42	diag( 'Test run performed at: '
24	43	. DateTime->now
25	44	. ' with Moose '
26		. Moose->VERSION );
	45	. (Moose->VERSION \|\| 'git repo') );
27	46
28	47	$ENV{PERL_TEST_DM_LOG_DIR} = abs_path('.');
29	48	delete @ENV{ qw( AUTHOR_TESTING RELEASE_TESTING SMOKE_TESTING ) };

51	70	}
52	71	);
53	72
54		my %todo_reasons = map {
55		chomp;
56		/^(\S)\s(?:#\s(.)\s*)?$/;
57		defined($1) && length($1) ? ($1 => $2) : ()
58		} <DATA>;
59		my %todo = map { $_ => 1 } keys %todo_reasons;
60
61	73	my @skip_prefix = qw(Acme Task Bundle);
62		my %skip = map { $_ => 1 } (
63		'App-CPAN2Pkg', # tk tests are graphical
64		'App-USBKeyCopyCon', # gtk tests are graphical
65		'Bot-Backbone', # poe-loop-ev prompts
66		'Cache-Ehcache', # hangs if server exists on port 8080
67		'CatalystX-Imports', # assumes it can write to /tmp/testapp
68		'CatalystX-Restarter-GTK', # gtk tests are graphical
69		'CM-Permutation', # OpenGL uses graphics in Makefile.PL
70		'CPAN-Source', # assumes it can write to /tmp/.cache
71		'Dackup', # depends on running ssh
72		'Data-Collector', # depends on running ssh
73		'Date-Biorhythm', # Date::Business prompts in Makefile.PL
74		'DBIx-PgLink', # prompts for a postgres password
75		'Forest-Tree-Viewer-Gtk2', # gtk tests are graphical
76		'Games-Pandemic', # tk tests are graphical
77		'Games-RailRoad', # tk tests are graphical
78		'Games-Risk', # tk tests are graphical
79		'Gearman-Driver', # spews tar errors
80		'helm', # depends on running ssh
81		'iTransact-Lite', # tests rely on internet site
82		'Log-Dispatch-Gtk2-Notify', # gtk tests are graphical
83		'LPDS', # gtk tests are graphical
84		'Net-SFTP-Foreign-Exceptional', # depends on running ssh
85		'Periscope', # gtk tests are graphical
86		'POE-Component-OpenSSH', # depends on running ssh
87		'POE-Component-Server-SimpleHTTP-PreFork', # ipc::shareable tests hang
88		'RDF-TrineX-RuleEngine-Jena', # prompts in Makefile.PL
89		'Test-SFTP', # Term::ReadPassword prompts in tests
90		'Tk-Role-Dialog', # tk tests are graphical
91		'Unicode-Emoji-E4U', # tests rely on internet site
92		'Weaving-Tablet', # tk tests are graphical
93		'WWW-eNom', # tests rely on internet site
94		'WWW-Finances-Bovespa', # tests rely on internet site
95		'WWW-Hashdb', # test hangs, pegging cpu
96		'WWW-Vimeo-Download', # tests rely on internet site
97		'WWW-YouTube-Download-Channel', # tests rely on internet site
98		'Zucchini', # File::Rsync prompts in Makefile.PL
99		);
	74	my %skip;
	75	my %todo;
	76
	77	my $hash;
	78	for my $line (<DATA>) {
	79	chomp $line;
	80	next unless $line =~ /\S/;
	81	if ( $line =~ /^# (\w+)/ ) {
	82	die "Invalid action in DATA section ($1)"
	83	unless $1 eq 'SKIP' \|\| $1 eq 'TODO';
	84	$hash = $1 eq 'SKIP' ? \%skip : \%todo;
	85	}
	86
	87	my ( $dist, $reason ) = $line =~ /^(\S)\s(?:#\s(.)\s*)?$/;
	88	next unless defined $dist && length $dist;
	89
	90	$hash->{$dist} = $reason;
	91	}
100	92
101	93	my %name_fix = (
102	94	'App-passmanager' => 'App::PassManager',

129	121	map { $_->{fields}{distribution} }
130	122	@{ $res->{hits}{hits} };
131	123
132		unless ( $ENV{MOOSE_TEST_MD} eq 'all' ) {
	124	if ( $ENV{MOOSE_TEST_MD} eq 'MooseX' ) {
	125	@dists = grep {
	126	/^(?:MooseX-\|(?:Fey-ORM\|KiokuDB\|Bread-Board\|Catalyst-Runtime\|Reflex)$)/
	127	} @dists;
	128	}
	129	elsif ( $ENV{MOOSE_TEST_MD} eq '1' ) {
133	130	diag(
134		'Picking 200 random dependents to test. Set MOOSE_TEST_MD=all to test all dependents'
	131	<<'EOF'
	132	Picking 200 random dependents to test. Set MOOSE_TEST_MD=all to test all
	133	dependents or MOOSE_TEST_MD=MooseX to test extension modules only.
	134	EOF
135	135	);
136	136
137	137	my %indexes;

140	140	}
141	141
142	142	@dists = @dists[ sort keys %indexes ];
	143	}
	144	elsif ( $ENV{MOOSE_TEST_MD} ne 'all' ) {
	145	my @chosen = split /,/, $ENV{MOOSE_TEST_MD};
	146	my %dists = map { $_ => 1 } @dists;
	147	if (my @unknown = grep { !$dists{$_} } @chosen) {
	148	die "Unknown dists: @unknown";
	149	}
	150	@dists = @chosen;
143	151	}
144	152
145	153	plan tests => scalar @dists;

148	156	my $module = $dist;
149	157	$module = $name_fix{$module} if exists $name_fix{$module};
150	158	if ($todo{$dist}) {
151		my $reason = $todo_reasons{$dist};
	159	my $reason = $todo{$dist};
152	160	$reason = '???' unless defined $reason;
153	161	local $TODO = $reason;
154	162	eval { test_module($module); 1 }

161	169	}
162	170
163	171	__DATA__
164		# indexing issues (test::dm bugs?)
	172	# SKIP: indexing issues (test::dm bugs?)
165	173	Alice # couldn't find on cpan
166	174	Hopkins # couldn't find on cpan
167	175	PostScript-Barcode # couldn't find on cpan
168	176	WWW-Mechanize-Query # couldn't find on cpan
169	177
170		# doesn't install deps properly (test::dm bugs?)
	178	# SKIP: doesn't install deps properly (test::dm bugs?)
171	179	App-Benchmark-Accessors # Mojo::Base isn't installed
172	180	Bot-BasicBot-Pluggable # Crypt::SaltedHash isn't installed
173	181	Code-Statistics # MooseX::HasDefaults::RO isn't installed

182	190	Net-Bamboo # XML::Tidy isn't installed
183	191	Tatsumaki-Template-Markapl # Tatsumaki::Template isn't installed
184	192	Text-Tradition # Bio::Phylo::IO isn't installed
185
186		# no tests
	193	WebService-Strava # Any::URI::Escape isn't installed
	194
	195	# SKIP: no tests
187	196	AI-ExpertSystem-Advanced # no tests
188	197	API-Assembla # no tests
189	198	App-mkfeyorm # no tests

201	210	Dist-Zilla-PluginBundle-Author-OLIVER # no tests
202	211	Dist-Zilla-PluginBundle-NUFFIN # no tests
203	212	Dist-Zilla-Plugin-DualLife # no tests
	213	Dist-Zilla-Plugin-Git-Describe # no tests
204	214	Dist-Zilla-Plugin-GitFlow # no tests
205	215	Dist-Zilla-Plugin-GitFmtChanges # no tests
206	216	Dist-Zilla-Plugin-MetaResourcesFromGit # no tests

216	226	LWP-UserAgent-OfflineCache # no tests
217	227	Markdown-Pod # no tests
218	228	MooseX-Types-DateTimeX # no tests
	229	MooseX-Types-DateTime-MoreCoercions # no tests unless DateTime::Format::DateManip is installed
219	230	Net-Azure-BlobService # no tests
220	231	Net-Dropbox # no tests
221	232	Net-Flowdock # no tests

226	237	Pod-Weaver-Section-Consumes # no tests
227	238	Pod-Weaver-Section-Encoding # no tests
228	239	Pod-Weaver-Section-Extends # no tests
	240	P50Tools # no tests
229	241	POE-Component-Server-MySQL # no tests
230	242	Random-Quantum # no tests
231	243	SchemaEvolution # no tests

237	249	WWW-MenuGrinder # no tests
238	250	WWW-WuFoo # no tests
239	251
240		# external dependencies
	252	# SKIP: external dependencies
	253	Alien-Ditaa # runs java code
	254	Ambrosia # required mod_perl
	255	AnyEvent-MSN # requires Net::SSLeay (which requires libssl)
241	256	AnyEvent-Multilog # requires multilog
242	257	AnyEvent-Net-Curl-Queued # requires libcurl
243	258	AnyEvent-ZeroMQ # requires zeromq installation

245	260	Apache2-HttpEquiv # requires apache (for mod_perl)
246	261	App-Mimosa # requires fastacmd
247	262	App-PgCryobit # requires postgres installation
	263	App-SimplenoteSync # requires File::ExtAttr which requires libattr
248	264	Archive-RPM # requires cpio
249	265	Bot-Jabbot # requires libidn
250	266	Catalyst-Engine-Stomp # depends on alien::activemq

255	271	Curses-Toolkit # requires Curses which requires ncurses library
256	272	Dackup # requires ssh
257	273	Data-Collector # requires ssh
	274	Data-Riak # requires riak
258	275	DBIx-PgLink # requires postgres installation
259	276	Dist-Zilla-Plugin-Subversion # requires svn bindings
260	277	Dist-Zilla-Plugin-SVK # requires svn bindings

274	291	Lighttpd-Control # requires lighttpd
275	292	Lingua-TreeTagger # requires treetagger to be installed
276	293	Math-Lsoda # requires f77
	294	Message-Passing-ZeroMQ # requires zeromq installation
277	295	MongoDBI # requires mongo
278	296	MongoDB # requires mongo
279	297	MSWord-ToHTML # requires abiword to be installed
280	298	Net-DBus-Skype # requires dbus
281	299	Net-Route # requires route
	300	Net-SFTP-Foreign-Exceptional # depends on running ssh
282	301	Net-UpYun # requires curl
283	302	Net-ZooTool # requires curl
284	303	Nginx-Control # requires nginx to be installed
285	304	NLP-Service # requires javac
	305	Padre-Plugin-Cookbook # requires Wx
286	306	Padre-Plugin-Moose # requires threaded perl
287	307	Padre-Plugin-PDL # requires threaded perl
288	308	Padre-Plugin-Snippet # requires threaded perl

298	318	SimpleDB-Class # requires memcached
299	319	SVN-Simple-Hook # requires svn
300	320	SVN-Tree # requires svn
	321	Tapper-MCP # depends on everything under the sun - some of which is broken
301	322	Template-JavaScript # requires v8
302	323	TheSchwartz-Moosified # requires DBI::Pg ?
303	324	WebService-SendGrid # requires curl

307	328	ZeroMQ-PubSub # requires zmq
308	329	ZMQ-Declare # requires zmq
309	330
310		# flaky internet tests
	331	# SKIP: flaky internet tests
311	332	iTransact-Lite # tests rely on internet site
312	333	Unicode-Emoji-E4U # tests rely on internet site
313	334	WWW-eNom # tests rely on internet site

315	336	WWW-Vimeo-Download # tests rely on internet site
316	337	WWW-YouTube-Download-Channel # tests rely on internet site
317	338
318		# graphical
	339	# SKIP: graphical
319	340	App-CPAN2Pkg # tk tests are graphical
320	341	App-USBKeyCopyCon # gtk tests are graphical
321	342	CatalystX-Restarter-GTK # gtk tests are graphical

329	350	Tk-Role-Dialog # tk tests are graphical
330	351	Weaving-Tablet # tk tests are graphical
331	352
332		# failing for a reason
	353	# SKIP: prompts (or a dep prompts) or does something else dumb
	354	Bot-Backbone # poe-loop-ev prompts
	355	Cache-Ehcache # hangs if server exists on port 8080
	356	CM-Permutation # OpenGL uses graphics in Makefile.PL
	357	Date-Biorhythm # Date::Business prompts in Makefile.PL
	358	DBIx-VersionedDDL # runs a script with /usr/bin/perl in the shbang line
	359	File-Tail-Scribe # tests hang
	360	Gearman-Driver # spews tar errors
	361	Gearman-SlotManager # tests hang
	362	IPC-AnyEvent-Gearman # tests hang
	363	Lingua-YALI # runs scripts with /usr/bin/env perl in the shbang line
	364	Net-SSH-Mechanize # the mock-ssh script it runs seems to spin endlessly
	365	POE-Component-Server-SimpleHTTP-PreFork # tests hang
	366	WWW-Hashdb # test hangs, pegging cpu
	367	Zucchini # File::Rsync prompts in Makefile.PL
	368
	369	# TODO: failing for a reason
333	370	Algorithm-KernelKMeans # mx-types-common changes broke it
334	371	AnyEvent-BitTorrent # broken
335	372	AnyEvent-Cron # intermittent failures

351	388	App-Validation-Automation # dep on Switch
352	389	App-Wubot # broken
353	390	Beagle # depends on term::readline::perl
354		Bot-Backbone # poe-loop-ev prompts
355		Cache-Ehcache # hangs if server exists on port 8080
356	391	Cache-Profile # broken
357	392	Catalyst-Authentication-Store-LDAP-AD-Class # pod coverage fail
358	393	Catalyst-Controller-Resources # broken

363	398	Catalyst-Plugin-Session-Store-TestMemcached # dep with corrupt archive
364	399	Catalyst-Plugin-SwiffUploaderCookieHack # undeclared dep
365	400	Catalyst-TraitFor-Request-PerLanguageDomains # dep on ::State::Cookie
	401	CatalystX-ExtJS-Direct # broken
366	402	CatalystX-I18N # dep on ::State::Cookie
367	403	CatalystX-MooseComponent # broken
368	404	CatalystX-SimpleLogin # broken
369	405	CatalystX-Usul # proc::processtable doesn't load
370	406	Cheater # parse::randgen is broken
371	407	Class-OWL # uses CMOP::Class without loading cmop
372		CM-Permutation # OpenGL uses graphics in Makefile.PL
373	408	Cogwheel # uses ancient moose apis
374	409	Config-Model # broken
375	410	Config-Model-Backend-Augeas # deps on Config::Model

385	420	Data-PackageName # broken
386	421	Data-Pipeline # uses ancient moose apis
387	422	Data-SCORM # pod coverage fail
388		Date-Biorhythm # Date::Business prompts in Makefile.PL
389	423	DayDayUp # MojoX-Fixup-XHTML doesn't exist
390	424	DBICx-Modeler-Generator # broken (weirdly)
391	425	DBIx-SchemaChecksum # broken

393	427	Devel-Events # broken (role conflict)
394	428	Dist-Zilla-Deb # pod coverage fail
395	429	Dist-Zilla-Plugin-ChangelogFromGit-Debian # git::repository is broken
	430	Dist-Zilla-Plugin-CheckChangesHasContent # broken
	431	Dist-Zilla-Plugin-Git # tests fail when run in a temp dir
	432	Dist-Zilla-Plugin-PerlTidy # expects to find dzil in the path
	433	Dist-Zilla-Plugin-Pinto-Add # deps on Pinto::Common
396	434	Dist-Zilla-Plugin-ProgCriticTests # broken
	435	Dist-Zilla-Plugin-Test-ReportPrereqs # broken
397	436	DustyDB # uses old moose apis
398	437	Dwimmer # broken
399	438	Facebook-Graph # broken
	439	FCGI-Engine # runs scripts without using $^X
400	440	Fedora-Bugzilla # deps on nonexistent things
401	441	FFmpeg-Thumbnail # undeclared dep
402	442	File-DataClass # XML::DTD is a broken dist
403	443	File-Stat-Moose # old moose apis
404	444	File-Tail-Dir # intermittent fails (i think)
405	445	Form-Factory # uses old moose apis
	446	Form-Sensible # broken
406	447	FormValidator-Nested # broken
407	448	Frost # broken
408	449	Games-Dice-Loaded # flaky tests

417	458	HTTP-Engine-Middleware # missing dep on yaml
418	459	Image-Robohash # Graphics::Magick doesn't exist
419	460	JavaScript-Framework-jQuery # coerce with no coercion
	461	Jenkins-NotificationListener # missing dep on File::Read
420	462	Jifty # Test::WWW::Selenium needs devel::repl
421	463	JSORB # broken
422	464	Jungle # broken

426	468	marc-moose # broken (only sometimes?)
427	469	Mail-Summary-Tools # DT::Format::DateManip is broken
428	470	MediaWiki-USERINFO # broken
	471	Metabase-Backend-MongoDB # broken
	472	Metabase-Backend-SQL # broken (I think)
429	473	Method-Signatures # doesn't like ANY_MOOSE=Moose
430	474	mobirc # http::engine broken
431	475	MooseX-Attribute-Prototype # uses old moose apis

434	478	MooseX-DOM # "no Moose" unimports confess
435	479	MooseX-Error-Exception-Class # metaclass compat breakage
436	480	MooseX-Getopt-Usage # missing dep on Test::Class
	481	MooseX-GTIN # broken (under jenkins, at least)
437	482	MooseX-Meta-Attribute-Index # old moose apis
438	483	MooseX-Meta-Attribute-Lvalue # old moose apis
	484	MooseX-Role-XMLRPC-Client # requires LWP::Protocol::http which requires libssl
	485	MooseX-Scaffold # broken
439	486	MooseX-Struct # ancient moose apis
440	487	MooseX-Types-Parameterizable # broken
	488	MooseX-WithCache # broken
441	489	MouseX-Types # broken (with moose)
442	490	MySQL-Util # pod-coverage fail
443	491	Nagios-Passive # broken

449	497	NetHack-Item # NH::Monster::Spoiler is broken
450	498	NetHack-Monster-Spoiler # broken (MX::CA issues)
451	499	Net-HTTP-Factual # broken
	500	Net-Jabber-Bot # broken
452	501	Net-Journyx # broken
453	502	Net-Mollom # broken
454	503	Net-Parliament # broken
455	504	Net-Plurk # broken
456	505	Net-SSLeay-OO # broken
457	506	Net-StackExchange # broken
	507	Norma # fails when trying to write to a read-only SQLite db file under jenkins, also fails when run manually
458	508	ODG-Record # Test::Benchmark broken
459	509	Perlbal-Control # proc::processtable doesn't load
460	510	Pg-BulkCopy # hardcodes /usr/bin/perl
461	511	Pinto-Common # broken
462		Pinto-Server # deps on pinto::common
	512	Pinto-Remove # deps on Pinto::Common
	513	Pinto-Server # deps on Pinto::Common
463	514	Plack-Middleware-Image-Scale # Image::Scale is broken
464	515	Pod-Parser-I18N # missing dep on Data::Localize
465	516	POE-Component-CPAN-Mirror-Multiplexer # broken

507	558	Test-SFTP # Term::ReadPassword prompts in tests
508	559	Test-WWW-Selenium-More # Test::WWW::Selenium needs devel::repl
509	560	Text-Clevery # broken
	561	Text-Zilla # broken
510	562	Thorium # depends on Hobocamp
511	563	TryCatch-Error # broken
512	564	Verby # deps on poe::component::resourcepool

517	569	WebService-Yes24 # broken
518	570	WiX3 # broken
519	571	WWW-Alltop # XML::SimpleObject configure fail
	572	WWW-Comix # uses ancient Moose::Policy stuff
520	573	WWW-DataWiki # broken
521	574	WWW-Fandango # bad dist
522	575	WWW-FMyLife # broken
523		WWW-Hashdb # test hangs, pegging cpu
524	576	WWW-Mechanize-Cached # tries to read from wrong build dir?
525	577	WWW-Metalgate # Cache is broken
526	578	WWW-Scramble # pod::coverage fail

533	585	XML-SRS # deps on prang
534	586	XML-Writer-Compiler # broken tests
535	587	Yukki # git::repository is broken
536		Zucchini # File::Rsync prompts in Makefile.PL

+11

-0

xt/release/pod-spell.t less more

23	23	Clary
24	24	Debolaz
25	25	Deltac
	26	Etheridge
26	27	Florian
27	28	Goro
28	29	Goulah

62	63	frodwith
63	64	gphat
64	65	groditi
	66	ingy
65	67	jgoulah
66	68	jrockway
67	69	kolibrie

77	79	rlb
78	80	robkinyon
79	81	sartak
	82	Sartak
80	83	stevan
81	84	tozt
82	85	wreis

186	189	definedness
187	190	deinitialized
188	191	deprecations
	192	Deprecations
189	193	destructor
	194	Destructor
190	195	destructors
191	196	destructuring
192	197	dev

195	200	eval'ing
196	201	extensibility
197	202	hashrefs
	203	Hashrefs
198	204	hotspots
199	205	immutabilize
200	206	immutabilized

219	225	mul
220	226	munge
221	227	namespace
	228	Namespace
222	229	namespace's
223	230	namespaced
224	231	namespaces

228	235	optimizations
229	236	overridable
230	237	parameterizable
	238	Parameterizable
231	239	parameterization
232	240	parameterize
233	241	parameterized

238	246	polymorphism
239	247	prechecking
240	248	prepends
	249	Prepends
241	250	pu
242	251	rebase
243	252	rebased
244	253	rebasing
	254	Rebasing
245	255	rebless
246	256	reblesses
247	257	reblessing

273	283	utils
274	284	whitelisted
275	285	workflow
	286	WORKFLOW
276	287
277	288	## other jargon
278	289	bey