Commit upstream/1.000006 - libmodule-metadata-perl

+3

-0

Changes less more

	0	1.0.6 2011-08-29 04:00:00
	1	- Support PACKAGE BLOCK syntax (VPIT)
	2
0	3	1.0.5 2011-08-02 09:45:00
1	4	- Localize $package::VERSION during version discovery (MIYAGAWA)
2	5	- Fix references to Module::Build::ModuleInfo [RT #66133] (DAGOLDEN)

+2

-2

META.json less more

3	3	"Ken Williams <kwilliams@cpan.org>, Randy W. Sims <RandyS@ThePierianSpring.org>"
4	4	],
5	5	"dynamic_config" : 1,
6		"generated_by" : "ExtUtils::MakeMaker version 6.58, CPAN::Meta::Converter version 2.110930",
	6	"generated_by" : "ExtUtils::MakeMaker version 6.59, CPAN::Meta::Converter version 2.112150",
7	7	"license" : [
8	8	"perl_5"
9	9	],

36	36	}
37	37	},
38	38	"release_status" : "stable",
39		"version" : "1.000005"
	39	"version" : "1.000006"
40	40	}

+2

-2

META.yml less more

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

18	18	- inc
19	19	requires:
20	20	version: 0.87
21		version: 1.000005
	21	version: 1.000006

+2

-2

lib/Module/Metadata.pm less more

10	10
11	11	use strict;
12	12	use vars qw($VERSION);
13		$VERSION = '1.000005';
	13	$VERSION = '1.000006';
14	14	$VERSION = eval $VERSION;
15	15
16	16	use File::Spec;

35	35	\s* # optional whitespace
36	36	($V_NUM_REGEXP)? # optional version number
37	37	\s* # optional whitesapce
38		; # semicolon line terminator
	38	[;\{] # semicolon line terminator or block start (since 5.16)
39	39	}x;
40	40
41	41	my $VARNAME_REGEXP = qr{ # match fully-qualified VERSION name

+40

-4

t/metadata.t less more

6	6	use IO::File;
7	7	use MBTest;
8	8
	9	my $undef;
	10
9	11	# parse various module $VERSION lines
10	12	# these will be reversed later to create %modules
11	13	my @modules = (
	14	$undef => <<'---', # no $VERSION line
	15	package Simple;
	16	---
	17	$undef => <<'---', # undefined $VERSION
	18	package Simple;
	19	our $VERSION;
	20	---
12	21	'1.23' => <<'---', # declared & defined on same line with 'our'
13	22	package Simple;
14	23	our $VERSION = '1.23';

169	178	package Simple;
170	179	our $VERSION;
171	180	$VERSION = 'onetwothree';
	181	---
	182	$undef => <<'---', # package NAME BLOCK, undef $VERSION
	183	package Simple {
	184	our $VERSION;
	185	}
	186	---
	187	'1.23' => <<'---', # package NAME BLOCK, with $VERSION
	188	package Simple {
	189	our $VERSION = '1.23';
	190	}
	191	---
	192	'1.23' => <<'---', # package NAME VERSION BLOCK
	193	package Simple 1.23 {
	194	1;
	195	}
	196	---
	197	'v1.2.3_4' => <<'---', # package NAME VERSION BLOCK
	198	package Simple v1.2.3_4 {
	199	1;
	200	}
172	201	---
173	202	);
174	203	my %modules = reverse @modules;

241	270
242	271	# Test::Builder will prematurely numify objects, so use this form
243	272	my $errs;
244		ok( $pm_info->version eq $expected,
245		"correct module version (expected '$expected')" )
246		or $errs++;
	273	my $got = $pm_info->version;
	274	if ( defined $expected ) {
	275	ok( $got eq $expected,
	276	"correct module version (expected '$expected')" )
	277	or $errs++;
	278	} else {
	279	ok( !defined($got),
	280	"correct module version (expected undef)" )
	281	or $errs++;
	282	}
247	283	is( $warnings, '', 'no warnings from parsing' ) or $errs++;
248		diag "Got: '@{[$pm_info->version]}'\nModule contents:\n$module" if $errs;
	284	diag "Got: '$got'\nModule contents:\n$module" if $errs;
249	285	}
250	286	}
251	287