Hello community,
here is the log from the commit of package perl-PPIx-QuoteLike for
openSUSE:Factory checked in at 2020-10-15 13:46:13
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-PPIx-QuoteLike (Old)
and /work/SRC/openSUSE:Factory/.perl-PPIx-QuoteLike.new.3486 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-PPIx-QuoteLike"
Thu Oct 15 13:46:13 2020 rev:8 rq:841443 version:0.013
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-PPIx-QuoteLike/perl-PPIx-QuoteLike.changes
2020-07-30 09:59:54.643214417 +0200
+++
/work/SRC/openSUSE:Factory/.perl-PPIx-QuoteLike.new.3486/perl-PPIx-QuoteLike.changes
2020-10-15 13:46:39.221205782 +0200
@@ -1,0 +2,9 @@
+Sat Oct 10 03:08:45 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 0.013
+ see /usr/share/doc/packages/perl-PPIx-QuoteLike/Changes
+
+ 0.013 2020-10-09 T. R. Wyant
+ Warn on first use of attribute 'postderef'.
+
+-------------------------------------------------------------------
Old:
----
PPIx-QuoteLike-0.012.tar.gz
New:
----
PPIx-QuoteLike-0.013.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-PPIx-QuoteLike.spec ++++++
--- /var/tmp/diff_new_pack.iuqHAe/_old 2020-10-15 13:46:39.893206045 +0200
+++ /var/tmp/diff_new_pack.iuqHAe/_new 2020-10-15 13:46:39.897206046 +0200
@@ -17,7 +17,7 @@
Name: perl-PPIx-QuoteLike
-Version: 0.012
+Version: 0.013
Release: 0
%define cpan_name PPIx-QuoteLike
Summary: Parse Perl string literals and string-literal-like things
++++++ PPIx-QuoteLike-0.012.tar.gz -> PPIx-QuoteLike-0.013.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/Changes
new/PPIx-QuoteLike-0.013/Changes
--- old/PPIx-QuoteLike-0.012/Changes 2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/Changes 2020-10-09 13:24:36.000000000 +0200
@@ -1,3 +1,6 @@
+0.013 2020-10-09 T. R. Wyant
+ Warn on first use of attribute 'postderef'.
+
0.012 2020-07-28 T. R. Wyant
Remove prototypes from testing subroutines defined in t/*.t.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/META.json
new/PPIx-QuoteLike-0.013/META.json
--- old/PPIx-QuoteLike-0.012/META.json 2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/META.json 2020-10-09 13:24:36.000000000 +0200
@@ -48,51 +48,51 @@
"provides" : {
"PPIx::QuoteLike" : {
"file" : "lib/PPIx/QuoteLike.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Constant" : {
"file" : "lib/PPIx/QuoteLike/Constant.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Dumper" : {
"file" : "lib/PPIx/QuoteLike/Dumper.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Token" : {
"file" : "lib/PPIx/QuoteLike/Token.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Token::Control" : {
"file" : "lib/PPIx/QuoteLike/Token/Control.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Token::Delimiter" : {
"file" : "lib/PPIx/QuoteLike/Token/Delimiter.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Token::Interpolation" : {
"file" : "lib/PPIx/QuoteLike/Token/Interpolation.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Token::String" : {
"file" : "lib/PPIx/QuoteLike/Token/String.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Token::Structure" : {
"file" : "lib/PPIx/QuoteLike/Token/Structure.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Token::Unknown" : {
"file" : "lib/PPIx/QuoteLike/Token/Unknown.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Token::Whitespace" : {
"file" : "lib/PPIx/QuoteLike/Token/Whitespace.pm",
- "version" : "0.012"
+ "version" : "0.013"
},
"PPIx::QuoteLike::Utils" : {
"file" : "lib/PPIx/QuoteLike/Utils.pm",
- "version" : "0.012"
+ "version" : "0.013"
}
},
"release_status" : "stable",
@@ -110,6 +110,6 @@
"web" : "https://github.com/trwyant/perl-PPIx-QuoteLike";
}
},
- "version" : "0.012",
+ "version" : "0.013",
"x_serialization_backend" : "JSON::PP version 4.05"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/META.yml
new/PPIx-QuoteLike-0.013/META.yml
--- old/PPIx-QuoteLike-0.012/META.yml 2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/META.yml 2020-10-09 13:24:36.000000000 +0200
@@ -19,40 +19,40 @@
provides:
PPIx::QuoteLike:
file: lib/PPIx/QuoteLike.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Constant:
file: lib/PPIx/QuoteLike/Constant.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Dumper:
file: lib/PPIx/QuoteLike/Dumper.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Token:
file: lib/PPIx/QuoteLike/Token.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Token::Control:
file: lib/PPIx/QuoteLike/Token/Control.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Token::Delimiter:
file: lib/PPIx/QuoteLike/Token/Delimiter.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Token::Interpolation:
file: lib/PPIx/QuoteLike/Token/Interpolation.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Token::String:
file: lib/PPIx/QuoteLike/Token/String.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Token::Structure:
file: lib/PPIx/QuoteLike/Token/Structure.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Token::Unknown:
file: lib/PPIx/QuoteLike/Token/Unknown.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Token::Whitespace:
file: lib/PPIx/QuoteLike/Token/Whitespace.pm
- version: '0.012'
+ version: '0.013'
PPIx::QuoteLike::Utils:
file: lib/PPIx/QuoteLike/Utils.pm
- version: '0.012'
+ version: '0.013'
requires:
Carp: '0'
Encode: '0'
@@ -72,5 +72,5 @@
bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike
license: http://dev.perl.org/licenses/
repository: git://github.com/trwyant/perl-PPIx-QuoteLike.git
-version: '0.012'
+version: '0.013'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/eg/pqldump
new/PPIx-QuoteLike-0.013/eg/pqldump
--- old/PPIx-QuoteLike-0.012/eg/pqldump 2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/eg/pqldump 2020-10-09 13:24:36.000000000 +0200
@@ -9,7 +9,7 @@
use Pod::Usage;
use PPIx::QuoteLike::Dumper;
-our $VERSION = '0.012';
+our $VERSION = '0.013';
my %opt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/eg/variables
new/PPIx-QuoteLike-0.013/eg/variables
--- old/PPIx-QuoteLike-0.012/eg/variables 2020-07-28 14:17:36.000000000
+0200
+++ new/PPIx-QuoteLike-0.013/eg/variables 2020-10-09 13:24:36.000000000
+0200
@@ -10,7 +10,7 @@
use PPI::Document;
use PPIx::QuoteLike::Utils qw{ __variables };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
my %opt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/inc/My/Module/Recommend/Any.pm
new/PPIx-QuoteLike-0.013/inc/My/Module/Recommend/Any.pm
--- old/PPIx-QuoteLike-0.012/inc/My/Module/Recommend/Any.pm 2020-07-28
14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/inc/My/Module/Recommend/Any.pm 2020-10-09
13:24:36.000000000 +0200
@@ -12,7 +12,7 @@
BEGIN {
*import = \&Exporter::import;
}
-our $VERSION = '0.012';
+our $VERSION = '0.013';
our @EXPORT_OK = qw{ __any };
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Constant.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Constant.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Constant.pm 2020-07-28
14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Constant.pm 2020-10-09
13:24:36.000000000 +0200
@@ -8,7 +8,7 @@
use Carp;
use base qw{ Exporter };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
our @CARP_NOT = qw{
PPIx::QuoteLike
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Dumper.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Dumper.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Dumper.pm 2020-07-28
14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Dumper.pm 2020-10-09
13:24:36.000000000 +0200
@@ -12,7 +12,7 @@
use PPIx::QuoteLike::Utils qw{ __instance };
use Scalar::Util ();
-our $VERSION = '0.012';
+our $VERSION = '0.013';
use constant SCALAR_REF => ref \0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Control.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Control.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Control.pm
2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Control.pm
2020-10-09 13:24:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
{
# TODO make this a state variable when we can require Perl 5.10.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Delimiter.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Delimiter.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Delimiter.pm
2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Delimiter.pm
2020-10-09 13:24:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ MINIMUM_PERL @CARP_NOT };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
# Perl 5.29.0 disallows unassigned code points and combining code points
# as delimiters. Unfortunately for me non-characters and illegal
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Interpolation.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Interpolation.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Interpolation.pm
2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Interpolation.pm
2020-10-09 13:24:36.000000000 +0200
@@ -20,7 +20,7 @@
use base qw{ PPIx::QuoteLike::Token };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
sub ppi {
my ( $self ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/String.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/String.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/String.pm 2020-07-28
14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/String.pm 2020-10-09
13:24:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Structure.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Structure.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Structure.pm
2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Structure.pm
2020-10-09 13:24:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Unknown.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Unknown.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Unknown.pm
2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Unknown.pm
2020-10-09 13:24:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Whitespace.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Whitespace.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Whitespace.pm
2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token/Whitespace.pm
2020-10-09 13:24:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.012';
+our $VERSION = '0.013';
sub significant {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token.pm 2020-07-28
14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Token.pm 2020-10-09
13:24:36.000000000 +0200
@@ -16,7 +16,7 @@
visual_column_number
};
-our $VERSION = '0.012';
+our $VERSION = '0.013';
# Private to this package.
sub __new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Utils.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Utils.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Utils.pm 2020-07-28
14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike/Utils.pm 2020-10-09
13:24:36.000000000 +0200
@@ -39,7 +39,7 @@
__variables
};
-our $VERSION = '0.012';
+our $VERSION = '0.013';
# Readonly::Scalar my $BRACED_RE => __match_enclosed( LEFT_CURLY );
Readonly::Scalar my $BRACKETED_RE => __match_enclosed( '[' ); # ]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike.pm
new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike.pm
--- old/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike.pm 2020-07-28
14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/lib/PPIx/QuoteLike.pm 2020-10-09
13:24:36.000000000 +0200
@@ -40,7 +40,7 @@
use Scalar::Util ();
use Text::Tabs ();
-our $VERSION = '0.012';
+our $VERSION = '0.013';
use constant CLASS_CONTROL => 'PPIx::QuoteLike::Token::Control';
use constant CLASS_DELIMITER => 'PPIx::QuoteLike::Token::Delimiter';
@@ -57,8 +57,6 @@
use constant MISMATCHED_DELIM =>
'Tokenizer found mismatched delimiters';
-$PPIx::QuoteLike::DEFAULT_POSTDEREF = 1;
-
{
my $match_sq = __match_enclosed( qw< ' > );
my $match_dq = __match_enclosed( qw< " > );
@@ -69,8 +67,11 @@
my @children;
- defined $arg{postderef}
- or $arg{postderef} = $PPIx::QuoteLike::DEFAULT_POSTDEREF;
+ if ( defined $arg{postderef} ) {
+ $class->_deprecation_notice( attribute => 'postderef' );
+ } else {
+ $arg{postderef} = 1;
+ }
if ( $arg{location} ) {
ARRAY_REF eq ref $arg{location}
@@ -287,6 +288,48 @@
qw{ start finish };
}
+# $self->_deprecation_notice( $type, $name );
+#
+# This method centralizes deprecation. Type is 'attribute' or
+# 'method'. Deprecation is driven of the %deprecate hash. Values
+# are:
+# false - no warning
+# 1 - warn on first use
+# 2 - warn on each use
+# 3 - die on each use.
+#
+# $self->_deprecation_in_progress( $type, $name )
+#
+# This method returns true if the deprecation is in progress. In
+# fact it returns the deprecation level.
+
+{
+
+ my %deprecate = (
+ attribute => {
+ postderef => 1,
+ },
+ );
+
+ sub _deprecation_notice {
+ my ( undef, $type, $name, $repl ) = @_; # Invocant unused
+ $deprecate{$type} or return;
+ $deprecate{$type}{$name} or return;
+ my $msg = sprintf 'The %s %s is %s', $name, $type,
+ $deprecate{$type}{$name} > 2 ? 'removed' : 'deprecated';
+ defined $repl
+ and $msg .= "; use $repl instead";
+ $deprecate{$type}{$name} >= 3
+ and croak $msg;
+ warnings::enabled( 'deprecated' )
+ and carp $msg;
+ $deprecate{$type}{$name} == 1
+ and $deprecate{$type}{$name} = 0;
+ return;
+ }
+
+}
+
sub _get_value_scalar {
my ( $self, $method ) = @_;
defined( my $val = $self->$method() )
@@ -430,6 +473,9 @@
sub postderef {
my ( $self ) = @_;
+ # TODO postderef - eventually this goes away.
+ __PACKAGE__ eq caller
+ or $self->_deprecation_notice( attribute => 'postderef' );
return $self->{postderef};
}
@@ -797,9 +843,9 @@
dereferences will always be recognized. This is the default behaviour
now.
-Starting with the first release after October 1 2020, the first use of
-this argument will warn. Six months after that all uses will warn. After
-a further six months, all uses will become fatal.
+Starting with version 0.012_01, the first use of this argument will
+warn. With the first release after April 8 2020, all uses will warn.
+After a further six months, all uses will become fatal.
=head1 INHERITANCE
@@ -870,11 +916,9 @@
This Boolean argument determines whether postfix dereferencing is
recognized in interpolation. If unspecified, or specified as C<undef>,
-it defaults to the value of C<$PPIx::QuoteLike::DEFAULT_POSTDEREF>. This
-variable is not exported, and is true by default. If you change the
-value, the change should be properly localized:
-
- local $PPIx::QuoteLike::DEFAULT_POSTDEREF = 0;
+it defaults to true. In version 0.012 it defaulted to the value of
+C<$PPIx::QuoteLike::DEFAULT_POSTDEREF>. This variable was not exported,
+and was true by default.
=item trace
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/t/dump.t
new/PPIx-QuoteLike-0.013/t/dump.t
--- old/PPIx-QuoteLike-0.012/t/dump.t 2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/t/dump.t 2020-10-09 13:24:36.000000000 +0200
@@ -7,8 +7,12 @@
use Test::More 0.88; # Because of done_testing();
+use PPIx::QuoteLike::Constant ();
use PPIx::QuoteLike::Dumper;
+local @PPIx::QuoteLike::Constant::CARP_NOT = (
+ @PPIx::QuoteLike::Constant::CARP_NOT, 'My::Module::Test' );
+
is _dump( '"foo$bar"' ), <<'EOD', 'Dump "foo$bar"';
"foo$bar"
@@ -82,6 +86,8 @@
sub _dump {
my ( @arg ) = @_;
+ package
+ My::Module::Test; # Cargo cult to hide from CPAN indexer
return scalar PPIx::QuoteLike::Dumper->dump( @arg );
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.012/t/parse.t
new/PPIx-QuoteLike-0.013/t/parse.t
--- old/PPIx-QuoteLike-0.012/t/parse.t 2020-07-28 14:17:36.000000000 +0200
+++ new/PPIx-QuoteLike-0.013/t/parse.t 2020-10-09 13:24:36.000000000 +0200
@@ -37,7 +37,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ } ],
q<'' interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<'' postderef>;
cmp_ok scalar $obj->elements(), '==', 3,
q<Number of elements of ''>;
cmp_ok scalar $obj->children(), '==', 0,
@@ -59,7 +58,6 @@
[ qw{ } ],
q{qq xyx interpolated variables};
}
- cmp_ok $obj->postderef(), '==', 1, q{qq xyx postderef};
cmp_ok scalar $obj->elements(), '==', 5,
q{Number of elements of qq xyx};
cmp_ok scalar $obj->children(), '==', 1,
@@ -93,7 +91,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ } ],
q<"foo\"bar" interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<"foo\"bar" postderef>;
cmp_ok scalar $obj->elements(), '==', 4,
q<Number of elements of "foo\"bar">;
cmp_ok scalar $obj->children(), '==', 1,
@@ -127,7 +124,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ } ],
q<q{\Qx} interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<q{\Qx} postderef>;
cmp_ok scalar $obj->elements(), '==', 4,
q<Number of elements of q{\Qx}>;
cmp_ok scalar $obj->children(), '==', 1,
@@ -161,7 +157,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ } ],
q<qq {\Qx} interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<qq {\Qx} postderef>;
cmp_ok scalar $obj->elements(), '==', 6,
q<Number of elements of qq {\Qx}>;
cmp_ok scalar $obj->children(), '==', 2,
@@ -209,7 +204,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ } ],
q<qx '$foo' interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<qx '$foo' postderef>;
cmp_ok scalar $obj->elements(), '==', 5,
q<Number of elements of qx '$foo'>;
cmp_ok scalar $obj->children(), '==', 1,
@@ -243,7 +237,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $foo } ],
q<"$foo" interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<"$foo" postderef>;
cmp_ok scalar $obj->elements(), '==', 4,
q<Number of elements of "$foo">;
cmp_ok scalar $obj->children(), '==', 1,
@@ -280,7 +273,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $foo } ],
q<"$$foo" interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<"$$foo" postderef>;
cmp_ok scalar $obj->elements(), '==', 4,
q<Number of elements of "$$foo">;
cmp_ok scalar $obj->children(), '==', 1,
@@ -317,7 +309,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $foo } ],
q<qx{${foo}bar} interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<qx{${foo}bar} postderef>;
cmp_ok scalar $obj->elements(), '==', 5,
q<Number of elements of qx{${foo}bar}>;
cmp_ok scalar $obj->children(), '==', 2,
@@ -368,7 +359,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $foo } ],
q<<$foo> interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<<$foo> postderef>;
cmp_ok scalar $obj->elements(), '==', 4,
q<Number of elements of <$foo>>;
cmp_ok scalar $obj->children(), '==', 1,
@@ -405,7 +395,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $bar $baz } ],
q<"foo@{[ qq<$bar$baz> ]}buzz" interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<"foo@{[ qq<$bar$baz> ]}buzz"
postderef>;
cmp_ok scalar $obj->elements(), '==', 6,
q<Number of elements of "foo@{[ qq<$bar$baz> ]}buzz">;
cmp_ok scalar $obj->children(), '==', 3,
@@ -470,7 +459,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $bar $foo } ],
q<"$foo::$bar" interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<"$foo::$bar" postderef>;
cmp_ok scalar $obj->elements(), '==', 6,
q<Number of elements of "$foo::$bar">;
cmp_ok scalar $obj->children(), '==', 3,
@@ -538,7 +526,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $i @x } ],
q<"@{$x[$i]}" interpolated variables>;
- cmp_ok $obj->postderef(), '==', 1, q<"@{$x[$i]}" postderef>;
cmp_ok scalar $obj->elements(), '==', 4,
q<Number of elements of "@{$x[$i]}">;
cmp_ok scalar $obj->children(), '==', 1,
@@ -577,7 +564,6 @@
[ qw{ } ],
q{"\N{$foo}" interpolated variables};
}
- cmp_ok $obj->postderef(), '==', 1, q{"\N{$foo}" postderef};
cmp_ok scalar $obj->elements(), '==', 4,
q{Number of elements of "\N{$foo}"};
cmp_ok scalar $obj->children(), '==', 1,
@@ -623,7 +609,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $burfle $foo } ],
q{HERE_DOCUMENT interpolated variables};
- cmp_ok $obj->postderef(), '==', 1, q{HERE_DOCUMENT postderef};
cmp_ok scalar $obj->elements(), '==', 10,
q{Number of elements of HERE_DOCUMENT};
cmp_ok scalar $obj->children(), '==', 4,
@@ -695,7 +680,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ @x } ],
q{"@@x" interpolated variables};
- cmp_ok $obj->postderef(), '==', 1, q{"@@x" postderef};
cmp_ok scalar $obj->elements(), '==', 5,
q{Number of elements of "@@x"};
cmp_ok scalar $obj->children(), '==', 2,
@@ -746,7 +730,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ } ],
q{"x@*y" interpolated variables};
- cmp_ok $obj->postderef(), '==', 1, q{"x@*y" postderef};
cmp_ok scalar $obj->elements(), '==', 4,
q{Number of elements of "x@*y"};
cmp_ok scalar $obj->children(), '==', 1,
@@ -780,7 +763,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $@ } ],
q{"$@" interpolated variables};
- cmp_ok $obj->postderef(), '==', 1, q{"$@" postderef};
cmp_ok scalar $obj->elements(), '==', 4,
q{Number of elements of "$@"};
cmp_ok scalar $obj->children(), '==', 1,
@@ -817,7 +799,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $x } ],
q{"${x}[0]" interpolated variables};
- cmp_ok $obj->postderef(), '==', 1, q{"${x}[0]" postderef};
cmp_ok scalar $obj->elements(), '==', 5,
q{Number of elements of "${x}[0]"};
cmp_ok scalar $obj->children(), '==', 2,
@@ -868,7 +849,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $[ @x } ],
q{"$x[$[]" interpolated variables};
- cmp_ok $obj->postderef(), '==', 1, q{"$x[$[]" postderef};
cmp_ok scalar $obj->elements(), '==', 4,
q{Number of elements of "$x[$[]"};
cmp_ok scalar $obj->children(), '==', 1,
@@ -905,7 +885,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $foo } ],
q{"$${foo}" interpolated variables};
- cmp_ok $obj->postderef(), '==', 1, q{"$${foo}" postderef};
cmp_ok scalar $obj->elements(), '==', 4,
q{Number of elements of "$${foo}"};
cmp_ok scalar $obj->children(), '==', 1,
@@ -942,7 +921,6 @@
is_deeply [ sort $obj->variables() ],
[ qw{ $$ } ],
q{"${$}" interpolated variables};
- cmp_ok $obj->postderef(), '==', 1, q{"${$}" postderef};
cmp_ok scalar $obj->elements(), '==', 4,
q{Number of elements of "${$}"};
cmp_ok scalar $obj->children(), '==', 1,
@@ -981,7 +959,6 @@
[ qw{ $foo } ],
q{"@{[ ${ foo } ]}" interpolated variables};
}
- cmp_ok $obj->postderef(), '==', 1, q{"@{[ ${ foo } ]}" postderef};
cmp_ok scalar $obj->elements(), '==', 4,
q{Number of elements of "@{[ ${ foo } ]}"};
cmp_ok scalar $obj->children(), '==', 1,
@@ -1022,7 +999,6 @@
[ qw{ $a } ],
q{"<$a->@*>" interpolated variables};
}
- cmp_ok $obj->postderef(), '==', 1, q{"<$a->@*>" postderef};
cmp_ok scalar $obj->elements(), '==', 6,
q{Number of elements of "<$a->@*>"};
cmp_ok scalar $obj->children(), '==', 3,
@@ -1091,7 +1067,6 @@
[ qw{ $a } ],
q{"<$a->@[0..2]>" interpolated variables};
}
- cmp_ok $obj->postderef(), '==', 1, q{"<$a->@[0..2]>" postderef};
cmp_ok scalar $obj->elements(), '==', 6,
q{Number of elements of "<$a->@[0..2]>"};
cmp_ok scalar $obj->children(), '==', 3,
@@ -1179,7 +1154,6 @@
[ qw{ } ],
q{qq ?y? with noncharacter delimiter interpolated variables};
}
- cmp_ok $obj->postderef(), '==', 1, q{qq ?y? with noncharacter delimiter
postderef};
cmp_ok scalar $obj->elements(), '==', 5,
q{Number of elements of qq ?y? with noncharacter delimiter};
cmp_ok scalar $obj->children(), '==', 1,
@@ -1225,7 +1199,6 @@
[ qw{ } ],
q{qq ?y? with illegal character delimiter interpolated
variables};
}
- cmp_ok $obj->postderef(), '==', 1, q{qq ?y? with illegal character
delimiter postderef};
cmp_ok scalar $obj->elements(), '==', 5,
q{Number of elements of qq ?y? with illegal character delimiter};
cmp_ok scalar $obj->children(), '==', 1,
