Hello community,
here is the log from the commit of package perl-PPIx-QuoteLike for
openSUSE:Factory checked in at 2020-07-30 09:59:36
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-PPIx-QuoteLike (Old)
and /work/SRC/openSUSE:Factory/.perl-PPIx-QuoteLike.new.3592 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-PPIx-QuoteLike"
Thu Jul 30 09:59:36 2020 rev:7 rq:823412 version:0.012
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-PPIx-QuoteLike/perl-PPIx-QuoteLike.changes
2020-04-05 20:51:53.857088042 +0200
+++
/work/SRC/openSUSE:Factory/.perl-PPIx-QuoteLike.new.3592/perl-PPIx-QuoteLike.changes
2020-07-30 09:59:54.643214417 +0200
@@ -1,0 +2,9 @@
+Wed Jul 29 03:09:13 UTC 2020 - Tina Müller <[email protected]>
+
+- updated to 0.012
+ see /usr/share/doc/packages/perl-PPIx-QuoteLike/Changes
+
+ 0.012 2020-07-28 T. R. Wyant
+ Remove prototypes from testing subroutines defined in t/*.t.
+
+-------------------------------------------------------------------
Old:
----
PPIx-QuoteLike-0.011.tar.gz
New:
----
PPIx-QuoteLike-0.012.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-PPIx-QuoteLike.spec ++++++
--- /var/tmp/diff_new_pack.1BlWLK/_old 2020-07-30 09:59:55.587214981 +0200
+++ /var/tmp/diff_new_pack.1BlWLK/_new 2020-07-30 09:59:55.591214983 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-PPIx-QuoteLike
#
-# Copyright (c) 2020 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2020 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,13 +17,13 @@
Name: perl-PPIx-QuoteLike
-Version: 0.011
+Version: 0.012
Release: 0
%define cpan_name PPIx-QuoteLike
Summary: Parse Perl string literals and string-literal-like things
License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
-Url: https://metacpan.org/release/%{cpan_name}
+URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/W/WY/WYANT/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
++++++ PPIx-QuoteLike-0.011.tar.gz -> PPIx-QuoteLike-0.012.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/Changes
new/PPIx-QuoteLike-0.012/Changes
--- old/PPIx-QuoteLike-0.011/Changes 2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/Changes 2020-07-28 14:17:36.000000000 +0200
@@ -1,3 +1,6 @@
+0.012 2020-07-28 T. R. Wyant
+ Remove prototypes from testing subroutines defined in t/*.t.
+
0.011 2020-03-31 T. R. Wyant
Normalize interpolation before feeding to PPI. This produces a
more-easily-analyzed PPI parse.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/META.json
new/PPIx-QuoteLike-0.012/META.json
--- old/PPIx-QuoteLike-0.011/META.json 2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/META.json 2020-07-28 14:17:36.000000000 +0200
@@ -48,51 +48,51 @@
"provides" : {
"PPIx::QuoteLike" : {
"file" : "lib/PPIx/QuoteLike.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Constant" : {
"file" : "lib/PPIx/QuoteLike/Constant.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Dumper" : {
"file" : "lib/PPIx/QuoteLike/Dumper.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Token" : {
"file" : "lib/PPIx/QuoteLike/Token.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Token::Control" : {
"file" : "lib/PPIx/QuoteLike/Token/Control.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Token::Delimiter" : {
"file" : "lib/PPIx/QuoteLike/Token/Delimiter.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Token::Interpolation" : {
"file" : "lib/PPIx/QuoteLike/Token/Interpolation.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Token::String" : {
"file" : "lib/PPIx/QuoteLike/Token/String.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Token::Structure" : {
"file" : "lib/PPIx/QuoteLike/Token/Structure.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Token::Unknown" : {
"file" : "lib/PPIx/QuoteLike/Token/Unknown.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Token::Whitespace" : {
"file" : "lib/PPIx/QuoteLike/Token/Whitespace.pm",
- "version" : "0.011"
+ "version" : "0.012"
},
"PPIx::QuoteLike::Utils" : {
"file" : "lib/PPIx/QuoteLike/Utils.pm",
- "version" : "0.011"
+ "version" : "0.012"
}
},
"release_status" : "stable",
@@ -110,6 +110,6 @@
"web" : "https://github.com/trwyant/perl-PPIx-QuoteLike";
}
},
- "version" : "0.011",
- "x_serialization_backend" : "JSON::PP version 4.04"
+ "version" : "0.012",
+ "x_serialization_backend" : "JSON::PP version 4.05"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/META.yml
new/PPIx-QuoteLike-0.012/META.yml
--- old/PPIx-QuoteLike-0.011/META.yml 2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/META.yml 2020-07-28 14:17:36.000000000 +0200
@@ -19,40 +19,40 @@
provides:
PPIx::QuoteLike:
file: lib/PPIx/QuoteLike.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Constant:
file: lib/PPIx/QuoteLike/Constant.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Dumper:
file: lib/PPIx/QuoteLike/Dumper.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Token:
file: lib/PPIx/QuoteLike/Token.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Token::Control:
file: lib/PPIx/QuoteLike/Token/Control.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Token::Delimiter:
file: lib/PPIx/QuoteLike/Token/Delimiter.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Token::Interpolation:
file: lib/PPIx/QuoteLike/Token/Interpolation.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Token::String:
file: lib/PPIx/QuoteLike/Token/String.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Token::Structure:
file: lib/PPIx/QuoteLike/Token/Structure.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Token::Unknown:
file: lib/PPIx/QuoteLike/Token/Unknown.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Token::Whitespace:
file: lib/PPIx/QuoteLike/Token/Whitespace.pm
- version: '0.011'
+ version: '0.012'
PPIx::QuoteLike::Utils:
file: lib/PPIx/QuoteLike/Utils.pm
- version: '0.011'
+ version: '0.012'
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.011'
+version: '0.012'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/eg/pqldump
new/PPIx-QuoteLike-0.012/eg/pqldump
--- old/PPIx-QuoteLike-0.011/eg/pqldump 2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/eg/pqldump 2020-07-28 14:17:36.000000000 +0200
@@ -9,7 +9,7 @@
use Pod::Usage;
use PPIx::QuoteLike::Dumper;
-our $VERSION = '0.011';
+our $VERSION = '0.012';
my %opt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/eg/variables
new/PPIx-QuoteLike-0.012/eg/variables
--- old/PPIx-QuoteLike-0.011/eg/variables 2020-03-31 14:01:57.000000000
+0200
+++ new/PPIx-QuoteLike-0.012/eg/variables 2020-07-28 14:17:36.000000000
+0200
@@ -10,7 +10,7 @@
use PPI::Document;
use PPIx::QuoteLike::Utils qw{ __variables };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
my %opt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/inc/My/Module/Recommend/Any.pm
new/PPIx-QuoteLike-0.012/inc/My/Module/Recommend/Any.pm
--- old/PPIx-QuoteLike-0.011/inc/My/Module/Recommend/Any.pm 2020-03-31
14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/inc/My/Module/Recommend/Any.pm 2020-07-28
14:17:36.000000000 +0200
@@ -12,7 +12,7 @@
BEGIN {
*import = \&Exporter::import;
}
-our $VERSION = '0.011';
+our $VERSION = '0.012';
our @EXPORT_OK = qw{ __any };
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Constant.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Constant.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Constant.pm 2020-03-31
14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Constant.pm 2020-07-28
14:17:36.000000000 +0200
@@ -8,7 +8,7 @@
use Carp;
use base qw{ Exporter };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
our @CARP_NOT = qw{
PPIx::QuoteLike
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Dumper.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Dumper.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Dumper.pm 2020-03-31
14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Dumper.pm 2020-07-28
14:17:36.000000000 +0200
@@ -12,7 +12,7 @@
use PPIx::QuoteLike::Utils qw{ __instance };
use Scalar::Util ();
-our $VERSION = '0.011';
+our $VERSION = '0.012';
use constant SCALAR_REF => ref \0;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Control.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Control.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Control.pm
2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Control.pm
2020-07-28 14:17:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
{
# 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.011/lib/PPIx/QuoteLike/Token/Delimiter.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Delimiter.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Delimiter.pm
2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Delimiter.pm
2020-07-28 14:17:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ MINIMUM_PERL @CARP_NOT };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
# 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.011/lib/PPIx/QuoteLike/Token/Interpolation.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Interpolation.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Interpolation.pm
2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Interpolation.pm
2020-07-28 14:17:36.000000000 +0200
@@ -20,7 +20,7 @@
use base qw{ PPIx::QuoteLike::Token };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
sub ppi {
my ( $self ) = @_;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/String.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/String.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/String.pm 2020-03-31
14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/String.pm 2020-07-28
14:17:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Structure.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Structure.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Structure.pm
2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Structure.pm
2020-07-28 14:17:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Unknown.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Unknown.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Unknown.pm
2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Unknown.pm
2020-07-28 14:17:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Whitespace.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Whitespace.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token/Whitespace.pm
2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token/Whitespace.pm
2020-07-28 14:17:36.000000000 +0200
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.011';
+our $VERSION = '0.012';
sub significant {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Token.pm 2020-03-31
14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Token.pm 2020-07-28
14:17:36.000000000 +0200
@@ -16,7 +16,7 @@
visual_column_number
};
-our $VERSION = '0.011';
+our $VERSION = '0.012';
# Private to this package.
sub __new {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Utils.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Utils.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike/Utils.pm 2020-03-31
14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike/Utils.pm 2020-07-28
14:17:36.000000000 +0200
@@ -39,7 +39,7 @@
__variables
};
-our $VERSION = '0.011';
+our $VERSION = '0.012';
# 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.011/lib/PPIx/QuoteLike.pm
new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike.pm
--- old/PPIx-QuoteLike-0.011/lib/PPIx/QuoteLike.pm 2020-03-31
14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/lib/PPIx/QuoteLike.pm 2020-07-28
14:17:36.000000000 +0200
@@ -40,7 +40,7 @@
use Scalar::Util ();
use Text::Tabs ();
-our $VERSION = '0.011';
+our $VERSION = '0.012';
use constant CLASS_CONTROL => 'PPIx::QuoteLike::Token::Control';
use constant CLASS_DELIMITER => 'PPIx::QuoteLike::Token::Delimiter';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.011/t/normalize_interpolation_for_ppi.t
new/PPIx-QuoteLike-0.012/t/normalize_interpolation_for_ppi.t
--- old/PPIx-QuoteLike-0.011/t/normalize_interpolation_for_ppi.t
2020-03-31 14:01:57.000000000 +0200
+++ new/PPIx-QuoteLike-0.012/t/normalize_interpolation_for_ppi.t
2020-07-28 14:17:36.000000000 +0200
@@ -8,33 +8,31 @@
use PPIx::QuoteLike::Utils qw{ __normalize_interpolation_for_ppi };
use Test::More 0.88; # Because of done_testing();
-sub norm ($$;$);
+norm( '$foo', '$foo' );
-norm '$foo', '$foo';
+norm( '$ foo', '$foo' );
-norm '$ foo', '$foo';
+norm( '${foo}', '$foo' );
-norm '${foo}', '$foo';
+norm( '${ foo }', '$foo' );
-norm '${ foo }', '$foo';
-
-norm '$ { foo }', '$foo';
+norm( '$ { foo }', '$foo' );
# NOTE this is a warning, and so (for now) not supported
-# norm '${foo{bar}}', '$foo{bar}';
+# norm( '${foo{bar}}', '$foo{bar}' );
# NOTE this is a warning, and so (for now) not supported
-# norm '@{foo{bar}}', '@foo{bar}';
+# norm( '@{foo{bar}}', '@foo{bar}' );
-norm '@{$x[$i]}', '@{$x[$i]}';
+norm( '@{$x[$i]}', '@{$x[$i]}' );
-norm '@{ [ foo() ] }', 'foo()';
+norm( '@{ [ foo() ] }', 'foo()' );
-norm '${ \\ ( foo() ) }', 'foo()';
+norm( '${ \\ ( foo() ) }', 'foo()' );
done_testing;
-sub norm ($$;$) {
+sub norm {
my ( $norm, $want, $title ) = @_;
defined $title
or $title = "'$norm' normalizes to '$want'";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.011/t/variables.t
new/PPIx-QuoteLike-0.012/t/variables.t
--- old/PPIx-QuoteLike-0.011/t/variables.t 2020-03-31 14:01:57.000000000
+0200
+++ new/PPIx-QuoteLike-0.012/t/variables.t 2020-07-28 14:17:36.000000000
+0200
@@ -10,47 +10,43 @@
use PPIx::QuoteLike::Utils qw{ __variables };
use Test::More 0.88; # Because of done_testing();
-sub check (@);
-sub check_class (@);
-sub check_token (@);
+check( q<"foo$bar">, qw< $bar > );
-check q<"foo$bar">, qw< $bar >;
+check( q<'foo$bar'> );
-check q<'foo$bar'>;
+check_token( q<"foo$bar">, qw< $bar > );
-check_token q<"foo$bar">, qw< $bar >;
+check_token( q<'foo$bar'> );
-check_token q<'foo$bar'>;
-
-check_class q<"foo$bar">, qw< PPIx::QuoteLike $bar >;
+check_class( q<"foo$bar">, qw< PPIx::QuoteLike $bar > );
# Note -- the following was done using the trinary operator rather than
# if/else because I hoped that with the former implementation, when I
# added tests I would do so correctly.
-note HAVE_PPIX_REGEXP ?
+note( HAVE_PPIX_REGEXP ?
'PPIx::Regexp is installed; we can find variables in Regexps' :
- 'PPIx::Regexp is not installed; we can not find variables in Regexps';
+ 'PPIx::Regexp is not installed; we can not find variables in Regexps' );
-check q<my ( $foo ) = $bar =~ m/(baz|$burfle)/smx;>,
+check( q<my ( $foo ) = $bar =~ m/(baz|$burfle)/smx;>,
HAVE_PPIX_REGEXP ? qw< $bar $burfle $foo > :
- qw< $bar $foo >;
+ qw< $bar $foo > );
-check q<qr/ foo (?{ "$bar" }) />,
- HAVE_PPIX_REGEXP ? qw< $bar > : ();
+check( q<qr/ foo (?{ "$bar" }) />,
+ HAVE_PPIX_REGEXP ? qw< $bar > : () );
-check_token q<s/ foo ( $bar[0] ) / xyz( $1 ) /smxe;>,
- HAVE_PPIX_REGEXP ? qw{ $1 @bar } : ();
+check_token( q<s/ foo ( $bar[0] ) / xyz( $1 ) /smxe;>,
+ HAVE_PPIX_REGEXP ? qw{ $1 @bar } : () );
if ( HAVE_PPIX_REGEXP ) {
- check_class q<qr/ foo (?{ "$bar" }) />, qw< PPIx::Regexp $bar >;
+ check_class( q<qr/ foo (?{ "$bar" }) />, qw< PPIx::Regexp $bar > );
}
done_testing;
-sub check (@) {
+sub check {
my ( $expr, @want ) = @_;
my $doc = PPI::Document->new( \$expr );
my @got = sort( __variables( $doc ) );
@@ -58,7 +54,7 @@
goto &is_deeply;
}
-sub check_class (@) {
+sub check_class {
my ( $expr, $class, @want ) = @_;
( my $fn = "$class.pm" ) =~ s| :: |/|smxg;
require $fn;
@@ -68,7 +64,7 @@
goto &is_deeply;
}
-sub check_token (@) {
+sub check_token {
my ( $expr, @want ) = @_;
my $doc = PPI::Document->new( \$expr );
my ( $elem ) = @{ $doc->find( sub {
