Acme-Perl-Consensual

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

 - (Bugfix) LC_ALL is supposed to override all other LC_* variables.
   ++$MAUKE
 - (Update) perlhist data includes up to 5.18.0.

0.001  2012-07-30  # first public release

 - (Update) perlhist data includes some 5.17.x release dates.

0.000_02  2012-07-26

 - Bundle perlhist info in __DATA__.

0.000_01  2012-07-05  # Preview release

LICENSE  view on Meta::CPAN

MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  THE ENTIRE RISK AS
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU.  SHOULD THE
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
REPAIR OR CORRECTION.

  10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.

                     END OF TERMS AND CONDITIONS

        Appendix: How to Apply These Terms to Your New Programs

  If you develop a new program, and you want it to be of the greatest
possible use to humanity, the best way to achieve this is to make it

META.ttl  view on Meta::CPAN

	doap:revision     "0.000_01"^^xsd:string.

dist:v_0-000_02
	a                 cpant:DeveloperRelease;
	a                 doap:Version;
	dc:identifier     "Acme-Perl-Consensual-0.000_02"^^xsd:string;
	dc:issued         "2012-07-26"^^xsd:date;
	dcs:changeset     [
		dcs:item [
			a dcs:Change;
			rdfs:label "Bundle perlhist info in __DATA__.";
		];
	];
	dcs:released-by   cpan:tobyink;
	doap:file-release <http://backpan.cpan.org/authors/id/T/TO/TOBYINK/Acme-Perl-Consensual-0.000_02.tar.gz>;
	doap:revision     "0.000_02"^^xsd:string.

dist:v_0-001
	a                 doap:Version;
	rdfs:label        "first public release"@en;
	dc:identifier     "Acme-Perl-Consensual-0.001"^^xsd:string;

inc/Module/Install.pm  view on Meta::CPAN

	open( FH, "< $_[0]"  ) or die "open($_[0]): $!";
	my $string = do { local $/; <FH> };
	close FH or die "close($_[0]): $!";
	return $string;
}
END_OLD

sub _readperl {
	my $string = Module::Install::_read($_[0]);
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
	$string =~ s/(\n)\n*__(?:DATA|END)__\b.*\z/$1/s;
	$string =~ s/\n\n=\w+.+?\n\n=cut\b.+?\n+/\n\n/sg;
	return $string;
}

sub _readpod {
	my $string = Module::Install::_read($_[0]);
	$string =~ s/(?:\015{1,2}\012|\015|\012)/\n/sg;
	return $string if $_[0] =~ /\.pod\z/;
	$string =~ s/(^|\n=cut\b.+?\n+)[^=\s].+?\n(\n=\w+|\z)/$1$2/sg;
	$string =~ s/\n*=pod\b[^\n]*\n+/\n\n/sg;

lib/Acme/Perl/Consensual.pm  view on Meta::CPAN

	}->{$m};
	
	return mktime(0, 0, 0, $d, $m, $y - 1900);
}

sub _perlhist
{
	unless (%perlhist)
	{
		my $prev_date;
		while ( <DATA> )
		{
			if (/([1-5]\.[A-Za-z0-9\._]+)\s+(\d{4}-[\?\w]{3}-[\?\d]{2})/)
			{
				my $vers = $1;
				my $date = $2;
				my @vers = ($vers);
				
				if ($vers =~ /^(\d)\.(\d{3})\.\.(\d*)/)
				{
					@vers = ();

lib/Acme/Perl/Consensual.pm  view on Meta::CPAN

=head1 DISCLAIMER OF WARRANTIES

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.

=cut

# Data below reproduced from `perldoc -T -t perlhist`

__DATA__
 Larry   0              Classified.     Don't ask.
 
 Larry   1.000          1987-Dec-18
 
          1.001..10     1988-Jan-30
          1.011..14     1988-Feb-02
 Schwern  1.0.15        2002-Dec-18     Modernization
 Richard  1.0_16        2003-Dec-18
 
 Larry   2.000          1988-Jun-05

meta/changes.pret  view on Meta::CPAN

# This file acts as the project's changelog.

`Acme-Perl-Consensual 0.000_01 cpan:TOBYINK`
	issued  2012-07-05;
	label   "Preview release";
	.

`Acme-Perl-Consensual 0.000_02 cpan:TOBYINK`
	issued  2012-07-26;
	changeset [
		item "Bundle perlhist info in __DATA__."^^Change;
	];
	.

`Acme-Perl-Consensual 0.001 cpan:TOBYINK`
	issued  2012-07-30;
	label   "first public release"@en;
	changeset [
		item "perlhist data includes some 5.17.x release dates."^^Update;
	];
	.