Commit c06a42ddccf15ff5747d30e6e6e0556b0ce1ac03 - libdata-peek-perl

+11

-0

ChangeLog less more

	0	0.44 - 2015-03-25, H.Merijn Brand <h.m.brand@xs4all.nl>
	1	* DDisplay in void context consistency
	2
	3	0.43 - 2015-02-11, H.Merijn Brand <h.m.brand@xs4all.nl>
	4	* Move repo to github
	5	* Remove perl recommendation from META as it breaks cpan clients
	6
	7	0.42 - 2015-01-02, H.Merijn Brand <h.m.brand@xs4all.nl>
	8	* Prevent caching of .perltidyrc (RT#99514)
	9	* Upped copyright to 2015
	10
0	11	0.41 - 2014-09-27, H.Merijn Brand <h.m.brand@xs4all.nl>
1	12	* Add alternative test results for 5.21.5 and up (PADMY)
2	13

+41

-42

META.json less more

0	0	{
1	1	"abstract" : "Modified and extended debugging facilities",
2	2	"meta-spec" : {
3		"version" : "2",
4		"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec"
	3	"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
	4	"version" : "2"
5	5	},
	6	"release_status" : "stable",
	7	"name" : "Data-Peek",
	8	"generated_by" : "Author",
6	9	"provides" : {
7	10	"Data::Peek" : {
8		"file" : "Peek.pm",
9		"version" : "0.41"
	11	"version" : "0.44",
	12	"file" : "Peek.pm"
10	13	}
11	14	},
12		"dynamic_config" : 1,
13		"generated_by" : "Author",
14		"name" : "Data-Peek",
15	15	"prereqs" : {
	16	"runtime" : {
	17	"recommends" : {
	18	"Data::Dumper" : "2.154",
	19	"Perl::Tidy" : "0"
	20	},
	21	"requires" : {
	22	"perl" : "5.008",
	23	"Data::Dumper" : "0",
	24	"DynaLoader" : "0"
	25	}
	26	},
16	27	"build" : {
17	28	"requires" : {
18	29	"perl" : "5.008"
19		}
20		},
21		"runtime" : {
22		"recommends" : {
23		"Data::Dumper" : "2.154",
24		"Perl::Tidy" : "0",
25		"perl" : "5.020001"
26		},
27		"requires" : {
28		"Data::Dumper" : "0",
29		"perl" : "5.008",
30		"DynaLoader" : "0"
31		}
32		},
33		"test" : {
34		"recommends" : {
35		"Test::More" : "1.001006"
36		},
37		"requires" : {
38		"Test::More" : "0.88",
39		"Test::NoWarnings" : "0"
40	30	}
41	31	},
42	32	"configure" : {
43	33	"requires" : {
44	34	"ExtUtils::MakeMaker" : "0"
45	35	}
	36	},
	37	"test" : {
	38	"requires" : {
	39	"Test::NoWarnings" : "0",
	40	"Test::More" : "0.88"
	41	},
	42	"recommends" : {
	43	"Test::More" : "1.001014"
	44	}
46	45	}
47	46	},
48		"version" : "0.41",
	47	"version" : "0.44",
	48	"resources" : {
	49	"license" : [
	50	"http://dev.perl.org/licenses/"
	51	],
	52	"repository" : {
	53	"url" : "https://github.com/Tux/Data-Peek",
	54	"type" : "git",
	55	"web" : "https://github.com/Tux/Data-Peek"
	56	},
	57	"x_IRC" : "irc://irc.perl.org/#csv"
	58	},
49	59	"author" : [
50	60	"H.Merijn Brand <h.m.brand@xs4all.nl>"
51	61	],
52		"release_status" : "stable",
53		"resources" : {
54		"repository" : {
55		"web" : "http://repo.or.cz/w/Data-Peek.git",
56		"url" : "http://repo.or.cz/r/Data-Peek.git",
57		"type" : "git"
58		},
59		"license" : [
60		"http://dev.perl.org/licenses/"
61		],
62		"x_IRC" : "irc://irc.perl.org/#csv"
63		},
64	62	"license" : [
65	63	"perl_5"
66		]
	64	],
	65	"dynamic_config" : 1
67	66	}

+5

-6

META.yml less more

6	6	configure_requires:
7	7	ExtUtils::MakeMaker: 0
8	8	dynamic_config: 1
9		generated_by: Author, CPAN::Meta::Converter version 2.142060
	9	generated_by: Author, CPAN::Meta::Converter version 2.150001
10	10	license: perl
11	11	meta-spec:
12	12	url: http://module-build.sourceforge.net/META-spec-v1.4.html

15	15	provides:
16	16	Data::Peek:
17	17	file: Peek.pm
18		version: '0.41'
	18	version: '0.44'
19	19	recommends:
20	20	Data::Dumper: '2.154'
21	21	Perl::Tidy: 0
22		Test::More: '1.001006'
23		perl: '5.020001'
	22	Test::More: '1.001014'
24	23	requires:
25	24	Data::Dumper: 0
26	25	DynaLoader: 0

30	29	resources:
31	30	IRC: irc://irc.perl.org/#csv
32	31	license: http://dev.perl.org/licenses/
33		repository: http://repo.or.cz/r/Data-Peek.git
34		version: '0.41'
	32	repository: https://github.com/Tux/Data-Peek
	33	version: '0.44'

+1

-1

Makefile.PL less more

0	0	#!/usr/bin/perl
1	1
2		# Copyright PROCURA B.V. (c) 2008-2014 H.Merijn Brand
	2	# Copyright PROCURA B.V. (c) 2008-2015 H.Merijn Brand
3	3
4	4	require 5.008; # <- also see postamble at the bottom for META.yml
5	5	use strict;

+6

-2

Peek.pm less more

5	5	use DynaLoader ();
6	6
7	7	use vars qw( $VERSION @ISA @EXPORT @EXPORT_OK );
8		$VERSION = "0.41";
	8	$VERSION = "0.44";
9	9	@ISA = qw( DynaLoader Exporter );
10	10	@EXPORT = qw( DDumper DTidy DDsort DPeek DDisplay DDump DHexDump
11	11	DDual DGrow );

123	123	"--no-check-syntax",
124	124	"--no-standard-output",
125	125	"--no-warning-output",
	126	# RT#99514 - Perl::Tidy memoizes .perltidyrc incorrectly
	127	"--no-memoize",
126	128	]);
127	129	$s = $t;
128	130

392	394	print DDisplay "abc\x{0a}de\x{20ac}fg";
393	395
394	396	"abc\nde\x{20ac}fg"
	397
	398	In void context, C<DDisplay ()> uses C<warn> to display the result.
395	399
396	400	=head2 DHexDump
397	401

684	688
685	689	=head1 COPYRIGHT AND LICENSE
686	690
687		Copyright (C) 2008-2014 H.Merijn Brand
	691	Copyright (C) 2008-2015 H.Merijn Brand
688	692
689	693	This library is free software; you can redistribute it and/or modify
690	694	it under the same terms as Perl itself.

+5

-3

Peek.xs less more

0		/* Copyright (c) 2008-2014 H.Merijn Brand. All rights reserved.
	0	/* Copyright (c) 2008-2015 H.Merijn Brand. All rights reserved.
1	1	* This program is free software; you can redistribute it and/or
2	2	* modify it under the same terms as Perl itself.
3	3	*/

78	78	DDisplay (...)
79	79	PROTOTYPE: ;$
80	80	PPCODE:
81		SV *sv = items ? ST (0) : DEFSV;
82		SV *dsp = newSVpv ("", 0);
	81	I32 gimme = GIMME_V;
	82	SV *sv = items ? ST (0) : DEFSV;
	83	SV *dsp = newSVpv ("", 0);
83	84	if (SvPOK (sv) \|\| SvPOKp (sv))
84	85	pv_pretty (dsp, SvPVX (sv), SvCUR (sv), 0,
85	86	NULL, NULL,
86	87	(PERL_PV_PRETTY_DUMP \| PERL_PV_ESCAPE_UNI_DETECT));
87	88	ST (0) = dsp;
	89	if (gimme == G_VOID) warn ("%s\n", SvPVX (ST (0)));
88	90	XSRETURN (1);
89	91	/* XS DDisplay */
90	92

+4

-4

README less more

38	38	$ make install
39	39
40	40	Recent changes can be (re)viewed in the public GIT repository at
41		http://repo.or.cz/w/Data-Peek.git
	41	https://github.com/Tux/Data-Peek
42	42
43	43	Feel free to clone your own copy:
44	44
45		$ git clone http://repo.or.cz/r/Data-Peek.git Data-Peek
	45	$ git clone https://github.com/Tux/Data-Peek Data-Peek
46	46
47	47	or get it as a tgz:
48	48
49	49	$ wget --output-document=Data-Peek-git.tgz \
50		'http://repo.or.cz/w/Data-Peek.git?a=snapshot;sf=tgz'
	50	https://github.com/Tux/Data-Peek/archive/master.tar.gz
51	51
52	52	=head1 AUTHOR
53	53

55	55
56	56	=head1 COPYRIGHT AND LICENSE
57	57
58		Copyright (c) 2008-2014 H.Merijn Brand. All rights reserved.
	58	Copyright (c) 2008-2015 H.Merijn Brand. All rights reserved.
59	59
60	60	This program is free software; you can redistribute it and/or modify
61	61	it under the same terms as Perl itself.