Commit a4cf49233ab662ebea92dabdc48611f9d2c35ec3 - libdata-visitor-perl

+12

-0

Changes less more

	0	0.30 2013-06-24
	1	- doy/data-visitor should probably be the canonical repository at this
	2	point
	3
	4	0.29 2013-06-24
	5	- The class callbacks to be run for an object are now chosen once, at the
	6	start of visiting that object. Previously, it always looked through the
	7	entire list of callbacks every time, in a loop in which the object in
	8	question could be changed by the callback. Since the class callbacks are
	9	only partially ordered, this lead to differences in whether a callback
	10	would be called or not based on hash order. reported by Robin Smidsrød.
	11
0	12	0.28 2012-02-12
1	13	- convert to dzil
2	14	- bump namespace::clean dep

+4

-4

LICENSE less more

0		This software is copyright (c) 2012 by Yuval Kogman.
	0	This software is copyright (c) 2013 by Yuval Kogman.
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 Yuval Kogman.
	14	This software is Copyright (c) 2013 by Yuval Kogman.
15	15
16	16	This is free software, licensed under:
17	17

21	21	Version 1, February 1989
22	22
23	23	Copyright (C) 1989 Free Software Foundation, Inc.
24		51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
	24	51 Franklin St, Suite 500, Boston, MA 02110-1335 USA
25	25
26	26	Everyone is permitted to copy and distribute verbatim copies
27	27	of this license document, but changing it is not allowed.

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

+4

-3

MANIFEST less more

13	13	t/callback.t
14	14	t/callback_aliasing.t
15	15	t/callback_hash_entry.t
	16	t/callback_moose_tc.t
16	17	t/circular_refs.t
17	18	t/globs.t
18	19	t/magic.t
19		t/release-eol.t
20		t/release-pod-coverage.t
21		t/release-pod-syntax.t
22	20	t/weak.t
	21	xt/release/eol.t
	22	xt/release/pod-coverage.t
	23	xt/release/pod-syntax.t

+57

-47

META.json less more

4	4	"Marcel Gr\u00c3\u00bcnauer <marcel@cpan.org>"
5	5	],
6	6	"dynamic_config" : 0,
7		"generated_by" : "Dist::Zilla version 4.300007, CPAN::Meta::Converter version 2.113640",
	7	"generated_by" : "Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.120921",
8	8	"license" : [
9	9	"perl_5"
10	10	],

19	19	"ExtUtils::MakeMaker" : "6.30"
20	20	}
21	21	},
	22	"develop" : {
	23	"requires" : {
	24	"Pod::Coverage::TrustPod" : "0",
	25	"Test::Pod" : "1.41",
	26	"Test::Pod::Coverage" : "1.08"
	27	}
	28	},
22	29	"runtime" : {
23	30	"requires" : {
24	31	"Class::Load" : "0.06",
25	32	"Moose" : "0.89",
26		"Task::Weaken" : 0,
	33	"Task::Weaken" : "0",
27	34	"Tie::ToObject" : "0.01",
28	35	"namespace::clean" : "0.19"
29	36	}

31	38	"test" : {
32	39	"requires" : {
33	40	"Test::More" : "0.88",
34		"Test::Requires" : 0
	41	"Test::Requires" : "0"
35	42	}
36	43	}
37	44	},

44	51	"homepage" : "http://metacpan.org/release/Data-Visitor",
45	52	"repository" : {
46	53	"type" : "git",
47		"url" : "git://github.com/nothingmuch/data-visitor.git",
48		"web" : "https://github.com/nothingmuch/data-visitor"
	54	"url" : "git://github.com/doy/data-visitor.git",
	55	"web" : "https://github.com/doy/data-visitor"
49	56	}
50	57	},
51		"version" : "0.28",
	58	"version" : "0.30",
52	59	"x_Dist_Zilla" : {
	60	"perl" : {
	61	"version" : "5.018000"
	62	},
53	63	"plugins" : [
54	64	{
55	65	"class" : "Dist::Zilla::Plugin::Prereqs",

60	70	}
61	71	},
62	72	"name" : "@Filter/TestMoreDoneTesting",
63		"version" : "4.300007"
	73	"version" : "4.300034"
64	74	},
65	75	{
66	76	"class" : "Dist::Zilla::Plugin::GatherDir",
67	77	"name" : "@Filter/GatherDir",
68		"version" : "4.300007"
	78	"version" : "4.300034"
69	79	},
70	80	{
71	81	"class" : "Dist::Zilla::Plugin::PruneCruft",
72	82	"name" : "@Filter/PruneCruft",
73		"version" : "4.300007"
	83	"version" : "4.300034"
74	84	},
75	85	{
76	86	"class" : "Dist::Zilla::Plugin::ManifestSkip",
77	87	"name" : "@Filter/ManifestSkip",
78		"version" : "4.300007"
	88	"version" : "4.300034"
79	89	},
80	90	{
81	91	"class" : "Dist::Zilla::Plugin::MetaYAML",
82	92	"name" : "@Filter/MetaYAML",
83		"version" : "4.300007"
	93	"version" : "4.300034"
84	94	},
85	95	{
86	96	"class" : "Dist::Zilla::Plugin::License",
87	97	"name" : "@Filter/License",
88		"version" : "4.300007"
	98	"version" : "4.300034"
89	99	},
90	100	{
91	101	"class" : "Dist::Zilla::Plugin::Readme",
92	102	"name" : "@Filter/Readme",
93		"version" : "4.300007"
94		},
95		{
96		"class" : "Dist::Zilla::Plugin::ExtraTests",
97		"name" : "@Filter/ExtraTests",
98		"version" : "4.300007"
	103	"version" : "4.300034"
	104	},
	105	{
	106	"class" : "Dist::Zilla::Plugin::RunExtraTests",
	107	"name" : "@Filter/RunExtraTests",
	108	"version" : "0.011"
99	109	},
100	110	{
101	111	"class" : "Dist::Zilla::Plugin::ExecDir",
102	112	"name" : "@Filter/ExecDir",
103		"version" : "4.300007"
	113	"version" : "4.300034"
104	114	},
105	115	{
106	116	"class" : "Dist::Zilla::Plugin::ShareDir",
107	117	"name" : "@Filter/ShareDir",
108		"version" : "4.300007"
	118	"version" : "4.300034"
109	119	},
110	120	{
111	121	"class" : "Dist::Zilla::Plugin::MakeMaker",
112	122	"name" : "@Filter/MakeMaker",
113		"version" : "4.300007"
	123	"version" : "4.300034"
114	124	},
115	125	{
116	126	"class" : "Dist::Zilla::Plugin::Manifest",
117	127	"name" : "@Filter/Manifest",
118		"version" : "4.300007"
	128	"version" : "4.300034"
119	129	},
120	130	{
121	131	"class" : "Dist::Zilla::Plugin::TestRelease",
122	132	"name" : "@Filter/TestRelease",
123		"version" : "4.300007"
	133	"version" : "4.300034"
124	134	},
125	135	{
126	136	"class" : "Dist::Zilla::Plugin::ConfirmRelease",
127	137	"name" : "@Filter/ConfirmRelease",
128		"version" : "4.300007"
	138	"version" : "4.300034"
129	139	},
130	140	{
131	141	"class" : "Dist::Zilla::Plugin::MetaConfig",
132	142	"name" : "@Filter/MetaConfig",
133		"version" : "4.300007"
	143	"version" : "4.300034"
134	144	},
135	145	{
136	146	"class" : "Dist::Zilla::Plugin::MetaJSON",
137	147	"name" : "@Filter/MetaJSON",
138		"version" : "4.300007"
	148	"version" : "4.300034"
139	149	},
140	150	{
141	151	"class" : "Dist::Zilla::Plugin::NextRelease",
142	152	"name" : "@Filter/NextRelease",
143		"version" : "4.300007"
	153	"version" : "4.300034"
144	154	},
145	155	{
146	156	"class" : "Dist::Zilla::Plugin::CheckChangesHasContent",
147	157	"name" : "@Filter/CheckChangesHasContent",
148		"version" : "0.003"
	158	"version" : "0.006"
149	159	},
150	160	{
151	161	"class" : "Dist::Zilla::Plugin::PkgVersion",
152	162	"name" : "@Filter/PkgVersion",
153		"version" : "4.300007"
	163	"version" : "4.300034"
154	164	},
155	165	{
156	166	"class" : "Dist::Zilla::Plugin::Authority",

160	170	{
161	171	"class" : "Dist::Zilla::Plugin::PodCoverageTests",
162	172	"name" : "@Filter/PodCoverageTests",
163		"version" : "4.300007"
	173	"version" : "4.300034"
164	174	},
165	175	{
166	176	"class" : "Dist::Zilla::Plugin::PodSyntaxTests",
167	177	"name" : "@Filter/PodSyntaxTests",
168		"version" : "4.300007"
	178	"version" : "4.300034"
169	179	},
170	180	{
171	181	"class" : "Dist::Zilla::Plugin::EOLTests",

175	185	{
176	186	"class" : "Dist::Zilla::Plugin::Test::Compile",
177	187	"name" : "@Filter/Test::Compile",
178		"version" : "1.112400"
	188	"version" : "2.002"
179	189	},
180	190	{
181	191	"class" : "Dist::Zilla::Plugin::Metadata",

185	195	{
186	196	"class" : "Dist::Zilla::Plugin::MetaResources",
187	197	"name" : "@Filter/MetaResources",
188		"version" : "4.300007"
	198	"version" : "4.300034"
189	199	},
190	200	{
191	201	"class" : "Dist::Zilla::Plugin::Git::Check",
192	202	"name" : "@Filter/Git::Check",
193		"version" : "1.112440"
	203	"version" : "2.013"
194	204	},
195	205	{
196	206	"class" : "Dist::Zilla::Plugin::Git::Commit",
197	207	"name" : "@Filter/Git::Commit",
198		"version" : "1.112440"
	208	"version" : "2.013"
199	209	},
200	210	{
201	211	"class" : "Dist::Zilla::Plugin::Git::Tag",
202	212	"name" : "@Filter/Git::Tag",
203		"version" : "1.112440"
	213	"version" : "2.013"
204	214	},
205	215	{
206	216	"class" : "Dist::Zilla::Plugin::Git::NextVersion",
207	217	"name" : "@Filter/Git::NextVersion",
208		"version" : "1.112440"
	218	"version" : "2.013"
209	219	},
210	220	{
211	221	"class" : "Dist::Zilla::Plugin::PodWeaver",

215	225	{
216	226	"class" : "Dist::Zilla::Plugin::UploadToCPAN",
217	227	"name" : "@Filter/UploadToCPAN",
218		"version" : "4.300007"
	228	"version" : "4.300034"
219	229	},
220	230	{
221	231	"class" : "Dist::Zilla::Plugin::Prereqs",

226	236	}
227	237	},
228	238	"name" : "Prereqs",
229		"version" : "4.300007"
	239	"version" : "4.300034"
230	240	},
231	241	{
232	242	"class" : "Dist::Zilla::Plugin::Prereqs",

237	247	}
238	248	},
239	249	"name" : "TestRequires",
240		"version" : "4.300007"
	250	"version" : "4.300034"
241	251	},
242	252	{
243	253	"class" : "Dist::Zilla::Plugin::FinderCode",
244	254	"name" : ":InstallModules",
245		"version" : "4.300007"
	255	"version" : "4.300034"
246	256	},
247	257	{
248	258	"class" : "Dist::Zilla::Plugin::FinderCode",
249	259	"name" : ":IncModules",
250		"version" : "4.300007"
	260	"version" : "4.300034"
251	261	},
252	262	{
253	263	"class" : "Dist::Zilla::Plugin::FinderCode",
254	264	"name" : ":TestFiles",
255		"version" : "4.300007"
	265	"version" : "4.300034"
256	266	},
257	267	{
258	268	"class" : "Dist::Zilla::Plugin::FinderCode",
259	269	"name" : ":ExecFiles",
260		"version" : "4.300007"
	270	"version" : "4.300034"
261	271	},
262	272	{
263	273	"class" : "Dist::Zilla::Plugin::FinderCode",
264	274	"name" : ":ShareFiles",
265		"version" : "4.300007"
	275	"version" : "4.300034"
266	276	},
267	277	{
268	278	"class" : "Dist::Zilla::Plugin::FinderCode",
269	279	"name" : ":MainModule",
270		"version" : "4.300007"
	280	"version" : "4.300034"
271	281	}
272	282	],
273	283	"zilla" : {

275	285	"config" : {
276	286	"is_trial" : "0"
277	287	},
278		"version" : "4.300007"
	288	"version" : "4.300034"
279	289	}
280	290	},
281	291	"x_authority" : "cpan:NUFFIN"

+45

-43

META.yml less more

8	8	configure_requires:
9	9	ExtUtils::MakeMaker: 6.30
10	10	dynamic_config: 0
11		generated_by: 'Dist::Zilla version 4.300007, CPAN::Meta::Converter version 2.113640'
	11	generated_by: 'Dist::Zilla version 4.300034, CPAN::Meta::Converter version 2.120921'
12	12	license: perl
13	13	meta-spec:
14	14	url: http://module-build.sourceforge.net/META-spec-v1.4.html

23	23	resources:
24	24	bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Data-Visitor
25	25	homepage: http://metacpan.org/release/Data-Visitor
26		repository: git://github.com/nothingmuch/data-visitor.git
27		version: 0.28
	26	repository: git://github.com/doy/data-visitor.git
	27	version: 0.30
28	28	x_Dist_Zilla:
	29	perl:
	30	version: 5.018000
29	31	plugins:
30	32	-
31	33	class: Dist::Zilla::Plugin::Prereqs

34	36	phase: test
35	37	type: requires
36	38	name: '@Filter/TestMoreDoneTesting'
37		version: 4.300007
	39	version: 4.300034
38	40	-
39	41	class: Dist::Zilla::Plugin::GatherDir
40	42	name: '@Filter/GatherDir'
41		version: 4.300007
	43	version: 4.300034
42	44	-
43	45	class: Dist::Zilla::Plugin::PruneCruft
44	46	name: '@Filter/PruneCruft'
45		version: 4.300007
	47	version: 4.300034
46	48	-
47	49	class: Dist::Zilla::Plugin::ManifestSkip
48	50	name: '@Filter/ManifestSkip'
49		version: 4.300007
	51	version: 4.300034
50	52	-
51	53	class: Dist::Zilla::Plugin::MetaYAML
52	54	name: '@Filter/MetaYAML'
53		version: 4.300007
	55	version: 4.300034
54	56	-
55	57	class: Dist::Zilla::Plugin::License
56	58	name: '@Filter/License'
57		version: 4.300007
	59	version: 4.300034
58	60	-
59	61	class: Dist::Zilla::Plugin::Readme
60	62	name: '@Filter/Readme'
61		version: 4.300007
62		-
63		class: Dist::Zilla::Plugin::ExtraTests
64		name: '@Filter/ExtraTests'
65		version: 4.300007
	63	version: 4.300034
	64	-
	65	class: Dist::Zilla::Plugin::RunExtraTests
	66	name: '@Filter/RunExtraTests'
	67	version: 0.011
66	68	-
67	69	class: Dist::Zilla::Plugin::ExecDir
68	70	name: '@Filter/ExecDir'
69		version: 4.300007
	71	version: 4.300034
70	72	-
71	73	class: Dist::Zilla::Plugin::ShareDir
72	74	name: '@Filter/ShareDir'
73		version: 4.300007
	75	version: 4.300034
74	76	-
75	77	class: Dist::Zilla::Plugin::MakeMaker
76	78	name: '@Filter/MakeMaker'
77		version: 4.300007
	79	version: 4.300034
78	80	-
79	81	class: Dist::Zilla::Plugin::Manifest
80	82	name: '@Filter/Manifest'
81		version: 4.300007
	83	version: 4.300034
82	84	-
83	85	class: Dist::Zilla::Plugin::TestRelease
84	86	name: '@Filter/TestRelease'
85		version: 4.300007
	87	version: 4.300034
86	88	-
87	89	class: Dist::Zilla::Plugin::ConfirmRelease
88	90	name: '@Filter/ConfirmRelease'
89		version: 4.300007
	91	version: 4.300034
90	92	-
91	93	class: Dist::Zilla::Plugin::MetaConfig
92	94	name: '@Filter/MetaConfig'
93		version: 4.300007
	95	version: 4.300034
94	96	-
95	97	class: Dist::Zilla::Plugin::MetaJSON
96	98	name: '@Filter/MetaJSON'
97		version: 4.300007
	99	version: 4.300034
98	100	-
99	101	class: Dist::Zilla::Plugin::NextRelease
100	102	name: '@Filter/NextRelease'
101		version: 4.300007
	103	version: 4.300034
102	104	-
103	105	class: Dist::Zilla::Plugin::CheckChangesHasContent
104	106	name: '@Filter/CheckChangesHasContent'
105		version: 0.003
	107	version: 0.006
106	108	-
107	109	class: Dist::Zilla::Plugin::PkgVersion
108	110	name: '@Filter/PkgVersion'
109		version: 4.300007
	111	version: 4.300034
110	112	-
111	113	class: Dist::Zilla::Plugin::Authority
112	114	name: '@Filter/Authority'

114	116	-
115	117	class: Dist::Zilla::Plugin::PodCoverageTests
116	118	name: '@Filter/PodCoverageTests'
117		version: 4.300007
	119	version: 4.300034
118	120	-
119	121	class: Dist::Zilla::Plugin::PodSyntaxTests
120	122	name: '@Filter/PodSyntaxTests'
121		version: 4.300007
	123	version: 4.300034
122	124	-
123	125	class: Dist::Zilla::Plugin::EOLTests
124	126	name: '@Filter/EOLTests'

126	128	-
127	129	class: Dist::Zilla::Plugin::Test::Compile
128	130	name: '@Filter/Test::Compile'
129		version: 1.112400
	131	version: 2.002
130	132	-
131	133	class: Dist::Zilla::Plugin::Metadata
132	134	name: '@Filter/Metadata'

134	136	-
135	137	class: Dist::Zilla::Plugin::MetaResources
136	138	name: '@Filter/MetaResources'
137		version: 4.300007
	139	version: 4.300034
138	140	-
139	141	class: Dist::Zilla::Plugin::Git::Check
140	142	name: '@Filter/Git::Check'
141		version: 1.112440
	143	version: 2.013
142	144	-
143	145	class: Dist::Zilla::Plugin::Git::Commit
144	146	name: '@Filter/Git::Commit'
145		version: 1.112440
	147	version: 2.013
146	148	-
147	149	class: Dist::Zilla::Plugin::Git::Tag
148	150	name: '@Filter/Git::Tag'
149		version: 1.112440
	151	version: 2.013
150	152	-
151	153	class: Dist::Zilla::Plugin::Git::NextVersion
152	154	name: '@Filter/Git::NextVersion'
153		version: 1.112440
	155	version: 2.013
154	156	-
155	157	class: Dist::Zilla::Plugin::PodWeaver
156	158	name: '@Filter/PodWeaver'

158	160	-
159	161	class: Dist::Zilla::Plugin::UploadToCPAN
160	162	name: '@Filter/UploadToCPAN'
161		version: 4.300007
	163	version: 4.300034
162	164	-
163	165	class: Dist::Zilla::Plugin::Prereqs
164	166	config:

166	168	phase: runtime
167	169	type: requires
168	170	name: Prereqs
169		version: 4.300007
	171	version: 4.300034
170	172	-
171	173	class: Dist::Zilla::Plugin::Prereqs
172	174	config:

174	176	phase: test
175	177	type: requires
176	178	name: TestRequires
177		version: 4.300007
	179	version: 4.300034
178	180	-
179	181	class: Dist::Zilla::Plugin::FinderCode
180	182	name: ':InstallModules'
181		version: 4.300007
	183	version: 4.300034
182	184	-
183	185	class: Dist::Zilla::Plugin::FinderCode
184	186	name: ':IncModules'
185		version: 4.300007
	187	version: 4.300034
186	188	-
187	189	class: Dist::Zilla::Plugin::FinderCode
188	190	name: ':TestFiles'
189		version: 4.300007
	191	version: 4.300034
190	192	-
191	193	class: Dist::Zilla::Plugin::FinderCode
192	194	name: ':ExecFiles'
193		version: 4.300007
	195	version: 4.300034
194	196	-
195	197	class: Dist::Zilla::Plugin::FinderCode
196	198	name: ':ShareFiles'
197		version: 4.300007
	199	version: 4.300034
198	200	-
199	201	class: Dist::Zilla::Plugin::FinderCode
200	202	name: ':MainModule'
201		version: 4.300007
	203	version: 4.300034
202	204	zilla:
203	205	class: Dist::Zilla::Dist::Builder
204	206	config:
205	207	is_trial: 0
206		version: 4.300007
	208	version: 4.300034
207	209	x_authority: cpan:NUFFIN

+19

-5

Makefile.PL less more

10	10	my %WriteMakefileArgs = (
11	11	"ABSTRACT" => "Visitor style traversal of Perl data structures",
12	12	"AUTHOR" => "Yuval Kogman <nothingmuch\@woobling.org>, Marcel Gr\303\274nauer <marcel\@cpan.org>",
13		"BUILD_REQUIRES" => {
14		"Test::More" => "0.88",
15		"Test::Requires" => 0
16		},
	13	"BUILD_REQUIRES" => {},
17	14	"CONFIGURE_REQUIRES" => {
18	15	"ExtUtils::MakeMaker" => "6.30"
19	16	},

28	25	"Tie::ToObject" => "0.01",
29	26	"namespace::clean" => "0.19"
30	27	},
31		"VERSION" => "0.28",
	28	"TEST_REQUIRES" => {
	29	"Test::More" => "0.88",
	30	"Test::Requires" => 0
	31	},
	32	"VERSION" => "0.30",
32	33	"test" => {
33	34	"TESTS" => "t/*.t"
34	35	}
35	36	);
36	37
	38
	39	unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
	40	my $tr = delete $WriteMakefileArgs{TEST_REQUIRES};
	41	my $br = $WriteMakefileArgs{BUILD_REQUIRES};
	42	for my $mod ( keys %$tr ) {
	43	if ( exists $br->{$mod} ) {
	44	$br->{$mod} = $tr->{$mod} if $tr->{$mod} > $br->{$mod};
	45	}
	46	else {
	47	$br->{$mod} = $tr->{$mod};
	48	}
	49	}
	50	}
37	51
38	52	unless ( eval { ExtUtils::MakeMaker->VERSION(6.56) } ) {
39	53	my $br = delete $WriteMakefileArgs{BUILD_REQUIRES};

+2

-2

README less more

0	0
1	1
2	2	This archive contains the distribution Data-Visitor,
3		version 0.28:
	3	version 0.30:
4	4
5	5	Visitor style traversal of Perl data structures
6	6
7		This software is copyright (c) 2012 by Yuval Kogman.
	7	This software is copyright (c) 2013 by Yuval Kogman.
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.

+0

-1

dist.ini less more

8	8	-remove = NoTabsTests
9	9	dist = Data-Visitor
10	10	repository = github
11		github_user = nothingmuch
12	11	authority = cpan:NUFFIN
13	12	Git::Tag_tag_format = %N-%v
14	13	Git::NextVersion_version_regexp = ^Data-Visitor-(.+)$

+7

-10

lib/Data/Visitor/Callback.pm less more

2	2	$Data::Visitor::Callback::AUTHORITY = 'cpan:NUFFIN';
3	3	}
4	4	{
5		$Data::Visitor::Callback::VERSION = '0.28';
	5	$Data::Visitor::Callback::VERSION = '0.30';
6	6	}
7	7	use Moose;
8	8	# ABSTRACT: A Data::Visitor with callbacks.

150	150
151	151	my $class_cb = 0;
152	152
153		foreach my $class ( @{ $self->class_callbacks } ) {
	153	foreach my $class ( grep { $data->isa($_) } @{ $self->class_callbacks } ) {
154	154	last unless blessed($data);
155		next unless $data->isa($class);
	155	die "Unexpected object $data found"
	156	unless $data->isa($class);
156	157	$self->trace( flow => class_callback => $class, on => $data ) if DEBUG;
157	158
158	159	$class_cb++;

288	289
289	290	__PACKAGE__;
290	291
291
	292	__END__
292	293
293	294	=pod
294	295

298	299
299	300	=head1 VERSION
300	301
301		version 0.28
	302	version 0.30
302	303
303	304	=head1 SYNOPSIS
304	305

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

+4

-10

lib/Data/Visitor.pm less more

2	2	$Data::Visitor::AUTHORITY = 'cpan:NUFFIN';
3	3	}
4	4	{
5		$Data::Visitor::VERSION = '0.28';
	5	$Data::Visitor::VERSION = '0.30';
6	6	}
7	7	use Moose;
8	8	# ABSTRACT: Visitor style traversal of Perl data structures

452	452
453	453	__PACKAGE__;
454	454
455
	455	__END__
456	456
457	457	=pod
458	458

462	462
463	463	=head1 VERSION
464	464
465		version 0.28
	465	version 0.30
466	466
467	467	=head1 SYNOPSIS
468	468

693	693
694	694	=head1 COPYRIGHT AND LICENSE
695	695
696		This software is copyright (c) 2012 by Yuval Kogman.
	696	This software is copyright (c) 2013 by Yuval Kogman.
697	697
698	698	This is free software; you can redistribute it and/or modify it under
699	699	the same terms as the Perl 5 programming language system itself.
700	700
701	701	=cut
702
703
704		__END__
705
706
707

+13

-4

t/00-compile.t less more

23	23	'lib',
24	24	);
25	25
26		my @scripts;
27		if ( -d 'bin' ) {
	26	sub _find_scripts {
	27	my $dir = shift @_;
	28
	29	my @found_scripts = ();
28	30	find(
29	31	sub {
30	32	return unless -f;

36	38	};
37	39	my $shebang = <$FH>;
38	40	return unless $shebang =~ /^#!.?\bperl\b\s$/;
39		push @scripts, $found;
	41	push @found_scripts, $found;
40	42	},
41		'bin',
	43	$dir,
42	44	);
	45
	46	return @found_scripts;
43	47	}
	48
	49	my @scripts;
	50	do { push @scripts, _find_scripts($_) if -d $_ }
	51	for qw{ bin script scripts };
44	52
45	53	my $plan = scalar(@modules) + scalar(@scripts);
46	54	$plan ? (plan tests => $plan) : (plan skip_all => "no tests to run");

61	69	script_compiles( $file, "$script script compiles" );
62	70	}
63	71	}
	72
64	73	}

+43

-0

t/callback_moose_tc.t less more

	0	#!perl
	1
	2	# Bug report that initiated this debugging:
	3	# https://rt.cpan.org/Ticket/Display.html?id=81519
	4
	5	use strict;
	6	use warnings;
	7
	8	use Test::More tests => 1;
	9
	10	use Data::Visitor::Callback;
	11
	12	BEGIN {
	13	package W3C::XHTML::Image;
	14	use Moose;
	15
	16	package W3C::XHTML::Body;
	17	use Moose;
	18	has 'images' => (
	19	is => 'ro',
	20	isa => 'ArrayRef[W3C::XHTML::Image]',
	21	);
	22	}
	23
	24	my $body = W3C::XHTML::Body->new( images => [ W3C::XHTML::Image->new ] );
	25	my $tc = $body->meta->get_attribute('images')->type_constraint;
	26
	27	note "TC contains only one instance of W3C::XHTML::Image - $tc";
	28
	29	# Figure out classes mentioned in type constraint (isa)
	30	my @classes;
	31	Data::Visitor::Callback->new({
	32	object => 'visit_ref',
	33	'Moose::Meta::TypeConstraint::Union' => sub { return $_[1]->type_constraints; },
	34	'Moose::Meta::TypeConstraint::Class' => sub { push @classes, $_[1]->class; return $_[1]; },
	35	'Moose::Meta::TypeConstraint::Parameterized' => sub { return $_[1]->type_parameter; },
	36	})->visit($tc);
	37
	38	note "Classes found: " . join(", ", @classes);
	39
	40	# On 5.16.2 it gives me only one item if mentioned once in TC,
	41	# but on 5.17.6 it occasionally gives two items in @classes
	42	is( scalar @classes, 1, "Only one case of W3C::XHTML::Image should be present");

+0

-16

~~t/release-eol.t~~ less more

0
1		BEGIN {
2		unless ($ENV{RELEASE_TESTING}) {
3		require Test::More;
4		Test::More::plan(skip_all => 'these tests are for release candidate testing');
5		}
6		}
7
8		use strict;
9		use warnings;
10		use Test::More;
11
12		eval 'use Test::EOL';
13		plan skip_all => 'Test::EOL required' if $@;
14
15		all_perl_files_ok({ trailing_whitespace => 1 });

+0

-21

~~t/release-pod-coverage.t~~ less more

0		#!perl
1
2		BEGIN {
3		unless ($ENV{RELEASE_TESTING}) {
4		require Test::More;
5		Test::More::plan(skip_all => 'these tests are for release candidate testing');
6		}
7		}
8
9
10		use Test::More;
11
12		eval "use Test::Pod::Coverage 1.08";
13		plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
14		if $@;
15
16		eval "use Pod::Coverage::TrustPod";
17		plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage"
18		if $@;
19
20		all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });

+0

-15

~~t/release-pod-syntax.t~~ less more

0		#!perl
1
2		BEGIN {
3		unless ($ENV{RELEASE_TESTING}) {
4		require Test::More;
5		Test::More::plan(skip_all => 'these tests are for release candidate testing');
6		}
7		}
8
9		use Test::More;
10
11		eval "use Test::Pod 1.41";
12		plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
13
14		all_pod_files_ok();

+8

-0

xt/release/eol.t less more

	0	use strict;
	1	use warnings;
	2	use Test::More;
	3
	4	eval 'use Test::EOL';
	5	plan skip_all => 'Test::EOL required' if $@;
	6
	7	all_perl_files_ok({ trailing_whitespace => 1 });

+13

-0

xt/release/pod-coverage.t less more

	0	#!perl
	1
	2	use Test::More;
	3
	4	eval "use Test::Pod::Coverage 1.08";
	5	plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
	6	if $@;
	7
	8	eval "use Pod::Coverage::TrustPod";
	9	plan skip_all => "Pod::Coverage::TrustPod required for testing POD coverage"
	10	if $@;
	11
	12	all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' });

+7

-0

xt/release/pod-syntax.t less more

	0	#!perl
	1	use Test::More;
	2
	3	eval "use Test::Pod 1.41";
	4	plan skip_all => "Test::Pod 1.41 required for testing POD" if $@;
	5
	6	all_pod_files_ok();