updates for dev release 1.221_01

Perl-Critic · Apr 23, 2016 · d3a2287 · d3a2287
1 parent 9d6babd
commit d3a2287
Show file tree

Hide file tree

Showing 98 changed files with 110 additions and 98 deletions.
diff --git a/Changes b/Changes
@@ -2,13 +2,20 @@ Revision history for Perl extension PPI
 
 1.221_01
 	Summary:
-	- remove unused PPI::Document->new timeout feature.
+	- unit tests for many parts, both passing and TODO
+	- many documentation fixes
+	- add ->version method to PPI::Statement::Package (WOLFSAGE)
+	- remove unused PPI::Document->new timeout feature
+	- removal of Test::NoWarnings
+	- less uses of List::MoreUtils in favor of List::Util
 
 	Details:
 	- Remove undocumented, non-working 'timeout' attribute to
 	  Document->new, including HAVE_ALARM and
 	  PPI::Exception::ParserTimeout.  (GitHub #140) (MOREGAN)
-	- Unit tests for PPI::Token::Symbol (GitHub #148) (MOREGAN)
+	- first cut of a travis configuration
+	- do hex number matching with [[:xdigit:]]
+	- some readability improvements on the code of HereDoc.pm
 
 1.220 Tue 11 Nov 2014
 	Summary:

diff --git a/lib/PPI.pm b/lib/PPI.pm
@@ -8,7 +8,7 @@ use strict;
 # Set the version for CPAN
 use vars qw{$VERSION $XS_COMPATIBLE @XS_EXCLUDE};
 BEGIN {
-	$VERSION       = '1.220';
+	$VERSION       = '1.221_01';
 	$XS_COMPATIBLE = '0.845';
 	@XS_EXCLUDE    = ();
 }

diff --git a/lib/PPI/Cache.pm b/lib/PPI/Cache.pm
@@ -56,7 +56,7 @@ use PPI::Document ();
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 }
 
 use constant VMS => !! ( $^O eq 'VMS' );

diff --git a/lib/PPI/Document.pm b/lib/PPI/Document.pm
@@ -77,7 +77,7 @@ use overload '""'   => 'content';
 
 use vars qw{$VERSION @ISA $errstr};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Node';
 	$errstr  = '';
 }

diff --git a/lib/PPI/Document/File.pm b/lib/PPI/Document/File.pm
@@ -24,7 +24,7 @@ use PPI::Document ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Document';
 }
 

diff --git a/lib/PPI/Document/Fragment.pm b/lib/PPI/Document/Fragment.pm
@@ -23,7 +23,7 @@ use PPI::Document ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Document';
 }
 

diff --git a/lib/PPI/Document/Normalized.pm b/lib/PPI/Document/Normalized.pm
@@ -47,7 +47,7 @@ use PPI::Util    ();
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 }
 
 use overload 'bool' => \&PPI::Util::TRUE;

diff --git a/lib/PPI/Dumper.pm b/lib/PPI/Dumper.pm
@@ -37,7 +37,7 @@ use Params::Util qw{_INSTANCE};
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 }
 
 

diff --git a/lib/PPI/Element.pm b/lib/PPI/Element.pm
@@ -31,7 +31,7 @@ use PPI::Node       ();
 
 use vars qw{$VERSION $errstr %_PARENT};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	$errstr  = '';
 
 	# Master Child -> Parent index

diff --git a/lib/PPI/Exception.pm b/lib/PPI/Exception.pm
@@ -26,7 +26,7 @@ use Params::Util qw{_INSTANCE};
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 }
 
 

diff --git a/lib/PPI/Exception/ParserRejection.pm b/lib/PPI/Exception/ParserRejection.pm
@@ -5,7 +5,7 @@ use PPI::Exception ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Exception';
 }
 

diff --git a/lib/PPI/Find.pm b/lib/PPI/Find.pm
@@ -76,7 +76,7 @@ use Params::Util qw{_INSTANCE};
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 }
 
 

diff --git a/lib/PPI/Lexer.pm b/lib/PPI/Lexer.pm
@@ -62,7 +62,7 @@ use PPI::Exception  ();
 
 use vars qw{$VERSION $errstr *_PARENT %ROUND %RESOLVE};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	$errstr  = '';
 
 	# Faster than having another method call just

diff --git a/lib/PPI/Node.pm b/lib/PPI/Node.pm
@@ -57,7 +57,7 @@ use PPI::Element    ();
 
 use vars qw{$VERSION @ISA *_PARENT};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Element';
 	*_PARENT = *PPI::Element::_PARENT;
 }

diff --git a/lib/PPI/Normal.pm b/lib/PPI/Normal.pm
@@ -42,7 +42,7 @@ use PPI::Document::Normalized ();
 
 use vars qw{$VERSION %LAYER};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 
 	# Registered function store
 	%LAYER = (

diff --git a/lib/PPI/Normal/Standard.pm b/lib/PPI/Normal/Standard.pm
@@ -20,7 +20,7 @@ use strict;
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 }
 
 

diff --git a/lib/PPI/Statement.pm b/lib/PPI/Statement.pm
@@ -154,7 +154,7 @@ use PPI::Exception ();
 
 use vars qw{$VERSION @ISA *_PARENT};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Node';
 	*_PARENT = *PPI::Element::_PARENT;
 }

diff --git a/lib/PPI/Statement/Break.pm b/lib/PPI/Statement/Break.pm
@@ -42,7 +42,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Compound.pm b/lib/PPI/Statement/Compound.pm
@@ -55,7 +55,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA %TYPES};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 
 	# Keyword type map

diff --git a/lib/PPI/Statement/Data.pm b/lib/PPI/Statement/Data.pm
@@ -45,7 +45,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/End.pm b/lib/PPI/Statement/End.pm
@@ -49,7 +49,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Expression.pm b/lib/PPI/Statement/Expression.pm
@@ -40,7 +40,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Given.pm b/lib/PPI/Statement/Given.pm
@@ -36,7 +36,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Include.pm b/lib/PPI/Statement/Include.pm
@@ -50,7 +50,7 @@ use PPI::Statement::Include::Perl6 ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Include/Perl6.pm b/lib/PPI/Statement/Include/Perl6.pm
@@ -43,7 +43,7 @@ use PPI::Statement::Include ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement::Include';
 }
 

diff --git a/lib/PPI/Statement/Null.pm b/lib/PPI/Statement/Null.pm
@@ -45,7 +45,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Package.pm b/lib/PPI/Statement/Package.pm
@@ -43,7 +43,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Scheduled.pm b/lib/PPI/Statement/Scheduled.pm
@@ -58,7 +58,7 @@ use PPI::Statement::Sub ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement::Sub';
 }
 

diff --git a/lib/PPI/Statement/Sub.pm b/lib/PPI/Statement/Sub.pm
@@ -37,7 +37,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Unknown.pm b/lib/PPI/Statement/Unknown.pm
@@ -37,7 +37,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/UnmatchedBrace.pm b/lib/PPI/Statement/UnmatchedBrace.pm
@@ -49,7 +49,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Statement/Variable.pm b/lib/PPI/Statement/Variable.pm
@@ -44,7 +44,7 @@ use PPI::Statement::Expression ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement::Expression';
 }
 

diff --git a/lib/PPI/Statement/When.pm b/lib/PPI/Statement/When.pm
@@ -44,7 +44,7 @@ use PPI::Statement ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Statement';
 }
 

diff --git a/lib/PPI/Structure.pm b/lib/PPI/Structure.pm
@@ -96,7 +96,7 @@ use PPI::Exception ();
 
 use vars qw{$VERSION @ISA *_PARENT};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Node';
 	*_PARENT = *PPI::Element::_PARENT;
 }

diff --git a/lib/PPI/Structure/Block.pm b/lib/PPI/Structure/Block.pm
@@ -45,7 +45,7 @@ use PPI::Structure ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Structure';
 }
 

diff --git a/lib/PPI/Structure/Condition.pm b/lib/PPI/Structure/Condition.pm
@@ -40,7 +40,7 @@ use PPI::Structure ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Structure';
 }
 

diff --git a/lib/PPI/Structure/Constructor.pm b/lib/PPI/Structure/Constructor.pm
@@ -35,7 +35,7 @@ use PPI::Structure ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Structure';
 }
 

diff --git a/lib/PPI/Structure/For.pm b/lib/PPI/Structure/For.pm
@@ -36,7 +36,7 @@ use PPI::Structure ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Structure';
 }
 

diff --git a/lib/PPI/Structure/Given.pm b/lib/PPI/Structure/Given.pm
@@ -36,7 +36,7 @@ use PPI::Structure ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Structure';
 }
 

diff --git a/lib/PPI/Structure/List.pm b/lib/PPI/Structure/List.pm
@@ -39,7 +39,7 @@ use PPI::Structure ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Structure';
 }
 

diff --git a/lib/PPI/Structure/Subscript.pm b/lib/PPI/Structure/Subscript.pm
@@ -41,7 +41,7 @@ use PPI::Structure ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Structure';
 }
 

diff --git a/lib/PPI/Structure/Unknown.pm b/lib/PPI/Structure/Unknown.pm
@@ -42,7 +42,7 @@ use PPI::Structure ();
 
 use vars qw{$VERSION @ISA};
 BEGIN {
-	$VERSION = '1.220';
+	$VERSION = '1.221_01';
 	@ISA     = 'PPI::Structure';
 }