Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-PPIx-QuoteLike for
openSUSE:Factory checked in at 2021-04-12 12:36:38
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-PPIx-QuoteLike (Old)
and /work/SRC/openSUSE:Factory/.perl-PPIx-QuoteLike.new.2401 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-PPIx-QuoteLike"
Mon Apr 12 12:36:38 2021 rev:11 rq:884094 version:0.016
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-PPIx-QuoteLike/perl-PPIx-QuoteLike.changes
2021-02-15 23:16:53.811449267 +0100
+++
/work/SRC/openSUSE:Factory/.perl-PPIx-QuoteLike.new.2401/perl-PPIx-QuoteLike.changes
2021-04-12 12:39:31.177519588 +0200
@@ -1,0 +2,15 @@
+Sat Mar 27 03:06:37 UTC 2021 - Tina M??ller <timueller+p...@suse.de>
+
+- updated to 0.016
+ see /usr/share/doc/packages/perl-PPIx-QuoteLike/Changes
+
+ 0.016 2021-03-26 T. R. Wyant
+ Add rt.cpan.org back to bug reporting methods. Long live RT!
+
+ Get prerequisites up to snuff, and add xt/author/prereq.t to ensure
+ they stay that way.
+
+ Refactor authortest into three, so I do not have to generate stub
+ files to test without optional modules.
+
+-------------------------------------------------------------------
Old:
----
PPIx-QuoteLike-0.015.tar.gz
New:
----
PPIx-QuoteLike-0.016.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-PPIx-QuoteLike.spec ++++++
--- /var/tmp/diff_new_pack.hrf08n/_old 2021-04-12 12:39:31.733520234 +0200
+++ /var/tmp/diff_new_pack.hrf08n/_new 2021-04-12 12:39:31.733520234 +0200
@@ -18,7 +18,7 @@
%define cpan_name PPIx-QuoteLike
Name: perl-PPIx-QuoteLike
-Version: 0.015
+Version: 0.016
Release: 0
Summary: Parse Perl string literals and string-literal-like things
License: Artistic-1.0 OR GPL-1.0-or-later
++++++ PPIx-QuoteLike-0.015.tar.gz -> PPIx-QuoteLike-0.016.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/Build.PL
new/PPIx-QuoteLike-0.016/Build.PL
--- old/PPIx-QuoteLike-0.015/Build.PL 2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/Build.PL 2021-03-26 14:18:33.000000000 +0100
@@ -15,20 +15,26 @@
my $meta = My::Module::Meta->new();
my %args = (
- dist_author => 'Thomas R. Wyant, III F<wyant at cpan dot org>',
- dist_abstract => 'Parse Perl string literals and string-literal-like
things.',
- module_name => 'PPIx::QuoteLike',
- build_requires => $meta->build_requires(),
- requires => $meta->requires(
- perl => $meta->requires_perl(),
+ add_to_cleanup => $meta->add_to_cleanup(),
+ build_requires => $meta->build_requires(),
+ configure_requires => $meta->configure_requires(),
+ dist_abstract => $meta->abstract(),
+ dist_author => $meta->author(),
+ dist_name => $meta->dist_name(),
+ license => $meta->license(),
+ module_name => $meta->module_name(),
+ requires => $meta->requires(
+ perl => $meta->requires_perl(),
),
- license => 'perl',
- add_to_cleanup => [ qw{ cover_db xt/author/optionals } ],
+ script_files => $meta->script_files(),
);
-
-$mbv >= 0.28
- and $args{meta_merge} = $meta->meta_merge();
+if ( $mbv >= 0.28 ) {
+ $args{meta_merge} = $meta->meta_merge();
+ $args{meta_add} = {
+ no_index => $meta->no_index(),
+ };
+}
$mbv >= 0.34
and $args{auto_configure_requires} = 0; # Don't require Module::Build
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/Changes
new/PPIx-QuoteLike-0.016/Changes
--- old/PPIx-QuoteLike-0.015/Changes 2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/Changes 2021-03-26 14:18:33.000000000 +0100
@@ -1,3 +1,12 @@
+0.016 2021-03-26 T. R. Wyant
+ Add rt.cpan.org back to bug reporting methods. Long live RT!
+
+ Get prerequisites up to snuff, and add xt/author/prereq.t to ensure
+ they stay that way.
+
+ Refactor authortest into three, so I do not have to generate stub
+ files to test without optional modules.
+
0.015 2021-02-05 T. R. Wyant
Handle <<\EOD and <<~\EOD, which are equivalent to <<'EOD' and
<<~'EOD', respectively.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/MANIFEST
new/PPIx-QuoteLike-0.016/MANIFEST
--- old/PPIx-QuoteLike-0.015/MANIFEST 2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/MANIFEST 2021-03-26 14:18:33.000000000 +0100
@@ -1,7 +1,7 @@
Build.PL
Changes
-eg/README
eg/pqldump
+eg/README
eg/variables
inc/My/Module/Build.pm
inc/My/Module/Meta.pm
@@ -23,6 +23,8 @@
LICENSES/Copying
Makefile.PL
MANIFEST
+META.json
+META.yml
README
t/basic.t
t/dump.t
@@ -44,5 +46,4 @@
xt/author/pod_coverage.t
xt/author/pod_links.t
xt/author/pod_spelling.t
-META.yml
-META.json
+xt/author/prereq.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/META.json
new/PPIx-QuoteLike-0.016/META.json
--- old/PPIx-QuoteLike-0.015/META.json 2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/META.json 2021-03-26 14:18:33.000000000 +0100
@@ -23,7 +23,15 @@
"prereqs" : {
"build" : {
"requires" : {
- "Test::More" : "0.88"
+ "Test::More" : "0.88",
+ "charnames" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "lib" : "0",
+ "strict" : "0",
+ "warnings" : "0"
}
},
"runtime" : {
@@ -40,6 +48,7 @@
"base" : "0",
"constant" : "0",
"perl" : "5.006",
+ "re" : "0",
"strict" : "0",
"warnings" : "0"
}
@@ -48,58 +57,58 @@
"provides" : {
"PPIx::QuoteLike" : {
"file" : "lib/PPIx/QuoteLike.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Constant" : {
"file" : "lib/PPIx/QuoteLike/Constant.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Dumper" : {
"file" : "lib/PPIx/QuoteLike/Dumper.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Token" : {
"file" : "lib/PPIx/QuoteLike/Token.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Token::Control" : {
"file" : "lib/PPIx/QuoteLike/Token/Control.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Token::Delimiter" : {
"file" : "lib/PPIx/QuoteLike/Token/Delimiter.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Token::Interpolation" : {
"file" : "lib/PPIx/QuoteLike/Token/Interpolation.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Token::String" : {
"file" : "lib/PPIx/QuoteLike/Token/String.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Token::Structure" : {
"file" : "lib/PPIx/QuoteLike/Token/Structure.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Token::Unknown" : {
"file" : "lib/PPIx/QuoteLike/Token/Unknown.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Token::Whitespace" : {
"file" : "lib/PPIx/QuoteLike/Token/Whitespace.pm",
- "version" : "0.015"
+ "version" : "0.016"
},
"PPIx::QuoteLike::Utils" : {
"file" : "lib/PPIx/QuoteLike/Utils.pm",
- "version" : "0.015"
+ "version" : "0.016"
}
},
"release_status" : "stable",
"resources" : {
"bugtracker" : {
"mailto" : "wy...@cpan.org",
- "web" : "https://github.com/trwyant/perl-PPIx-QuoteLike/issues";
+ "web" :
"https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike";
},
"license" : [
"http://dev.perl.org/licenses/";
@@ -110,6 +119,6 @@
"web" : "https://github.com/trwyant/perl-PPIx-QuoteLike";
}
},
- "version" : "0.015",
+ "version" : "0.016",
"x_serialization_backend" : "JSON::PP version 4.06"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/META.yml
new/PPIx-QuoteLike-0.016/META.yml
--- old/PPIx-QuoteLike-0.015/META.yml 2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/META.yml 2021-03-26 14:18:33.000000000 +0100
@@ -4,6 +4,11 @@
- 'Thomas R. Wyant, III F<wyant at cpan dot org>'
build_requires:
Test::More: '0.88'
+ charnames: '0'
+configure_requires:
+ lib: '0'
+ strict: '0'
+ warnings: '0'
dynamic_config: 1
generated_by: 'Module::Build version 0.4231, CPAN::Meta::Converter version
2.150010'
license: perl
@@ -19,40 +24,40 @@
provides:
PPIx::QuoteLike:
file: lib/PPIx/QuoteLike.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Constant:
file: lib/PPIx/QuoteLike/Constant.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Dumper:
file: lib/PPIx/QuoteLike/Dumper.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Token:
file: lib/PPIx/QuoteLike/Token.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Token::Control:
file: lib/PPIx/QuoteLike/Token/Control.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Token::Delimiter:
file: lib/PPIx/QuoteLike/Token/Delimiter.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Token::Interpolation:
file: lib/PPIx/QuoteLike/Token/Interpolation.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Token::String:
file: lib/PPIx/QuoteLike/Token/String.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Token::Structure:
file: lib/PPIx/QuoteLike/Token/Structure.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Token::Unknown:
file: lib/PPIx/QuoteLike/Token/Unknown.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Token::Whitespace:
file: lib/PPIx/QuoteLike/Token/Whitespace.pm
- version: '0.015'
+ version: '0.016'
PPIx::QuoteLike::Utils:
file: lib/PPIx/QuoteLike/Utils.pm
- version: '0.015'
+ version: '0.016'
requires:
Carp: '0'
Encode: '0'
@@ -66,11 +71,12 @@
base: '0'
constant: '0'
perl: '5.006'
+ re: '0'
strict: '0'
warnings: '0'
resources:
- bugtracker: https://github.com/trwyant/perl-PPIx-QuoteLike/issues
+ 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.015'
+version: '0.016'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/Makefile.PL
new/PPIx-QuoteLike-0.016/Makefile.PL
--- old/PPIx-QuoteLike-0.015/Makefile.PL 2021-02-05 15:22:31.000000000
+0100
+++ new/PPIx-QuoteLike-0.016/Makefile.PL 2021-03-26 14:18:33.000000000
+0100
@@ -14,53 +14,95 @@
my $meta = My::Module::Meta->new();
my %args = (
- NAME => 'PPIx::QuoteLike',
- VERSION_FROM => 'lib/PPIx/QuoteLike.pm',
- PREREQ_PM => $meta->requires(),
- PL_FILES => {}, # Prevent old MakeMaker from running Build.PL
- 'dist' => {COMPRESS => 'gzip', SUFFIX => 'gz'},
- AUTHOR => 'Thomas R. Wyant, III F<wyant at cpan dot org>',
- ABSTRACT => 'Parse Perl string literals and string-literal-like things.',
- realclean => { FILES => 'cover_db xt/author/optionals' },
+ ABSTRACT => $meta->abstract(),
+ AUTHOR => $meta->author(),
+ DISTNAME => $meta->dist_name(),
+ EXE_FILES => $meta->script_files(),
+ NAME => $meta->module_name(),
+ PREREQ_PM => $meta->requires(),
+ PL_FILES => {}, # Prevent old MakeMaker from running Build.PL
+ realclean => {
+ FILES => join( ' ', @{ $meta->add_to_cleanup() } ),
+ },
+ VERSION_FROM => $meta->version_from(),
);
$mmv >= 6.31
- and $args{LICENSE} = 'perl';
+ and $args{LICENSE} = $meta->license();
-$mmv >= 6.4501
- and $args{META_MERGE} = $meta->meta_merge();
+if ( $mmv >= 6.4501 ) {
+ $args{META_ADD} = {
+ no_index => $meta->no_index(),
+ };
+ $args{META_MERGE} = $meta->meta_merge( $meta->provides() );
+}
$mmv >= 6.4701
and $args{MIN_PERL_VERSION} = $meta->requires_perl();
-$mmv >= 6.5501
- and $args{BUILD_REQUIRES} = $meta->build_requires()
- or $mmv >= 6.4501
- and $args{META_MERGE}{build_requires} = $meta->build_requires();
+
+if ( $mmv >= 6.52 ) {
+ $args{BUILD_REQUIRES} = $meta->build_requires();
+ $args{CONFIGURE_REQUIRES} = $meta->configure_requires();
+} elsif ( $mmv >= 6.5501 ) {
+ $args{BUILD_REQUIRES} = $meta->build_requires();
+ $args{META_MERGE}{configure_requires} = $meta->configure_requires();
+} elsif ( $mmv >= 6.4501 ) {
+ $args{META_MERGE}{build_requires} = $meta->build_requires();
+ $args{META_MERGE}{configure_requires} = $meta->configure_requires();
+} else {
+ foreach my $method ( qw{ configure_requires build_requires } ) {
+ my $req = $meta->$method();
+ foreach my $key ( keys %{ $req } ) {
+ exists $args{PREREQ_PM}{$key}
+ or $args{PREREQ_PM}{$key} = $req->{$key};
+ }
+ }
+}
My::Module::Recommend->recommend();
-WriteMakefile (%args);
+WriteMakefile( %args );
sub MY::postamble {
my ( $self, @args ) = @_;
- my $authortest = $self->test_via_harness(
- '$(FULLPERLRUN)', '$(AUTHORTEST_FILES)' );
- $authortest =~ s/ \s+ \z //smx;
- $authortest =~ s/ \A \s+ //smx;
- chomp $authortest;
+ my $test = $self->test_via_harness(
+ '$(FULLPERLRUN)', '$(TEST_FILES)' );
+ my $structural_test = $self->test_via_harness(
+ '$(FULLPERLRUN)', '$(STRUCTURAL_TEST_FILES)' );
+ foreach ( $test, $structural_test ) {
+ s/ \s+ \z //smx;
+ s/ \A \s+ //smx;
+ }
+ my $optionals = join ',', My::Module::Recommend->optionals();
return <<"EOD";
-AUTHORTEST_FILES = t/*.t xt/author/*.t xt/author/optionals/*.t
+STRUCTURAL_TEST_FILES = xt/author/*.t
-authortest :: pure_all
- \$(FULLPERLRUN) "-Iinc" "-MMy::Module::Recommend" "-e"
"My::Module::Recommend->make_optional_modules_tests()"
- AUTHOR_TESTING=1 $authortest
+functional_test :: pure_all
+ \$(NOECHO) \$(ECHO)
+ \$(NOECHO) \$(ECHO) functional_test
+ AUTHOR_TESTING=1 $test
+
+optionals_test :: pure_all
+ \$(NOECHO) \$(ECHO)
+ \$(NOECHO) \$(ECHO) optionals_test
+ AUTHOR_TESTING=1 PERL5OPT=-MTest::Without::Module=$optionals $test
+
+structural_test :: pure_all
+ \$(NOECHO) \$(ECHO)
+ \$(NOECHO) \$(ECHO) structural_test
+ AUTHOR_TESTING=1 $structural_test
+
+authortest :: functional_test optionals_test structural_test
testcover :: pure_all
cover -test -ignore_re=inc/ -ignore_re=eg/
+
+.PHONY: functional_test optionals_test structural_test authortest testcover
+
EOD
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/eg/pqldump
new/PPIx-QuoteLike-0.016/eg/pqldump
--- old/PPIx-QuoteLike-0.015/eg/pqldump 2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/eg/pqldump 2021-03-26 14:18:33.000000000 +0100
@@ -9,7 +9,7 @@
use Pod::Usage;
use PPIx::QuoteLike::Dumper;
-our $VERSION = '0.015';
+our $VERSION = '0.016';
my %opt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/eg/variables
new/PPIx-QuoteLike-0.016/eg/variables
--- old/PPIx-QuoteLike-0.015/eg/variables 2021-02-05 15:22:31.000000000
+0100
+++ new/PPIx-QuoteLike-0.016/eg/variables 2021-03-26 14:18:33.000000000
+0100
@@ -10,7 +10,7 @@
use PPI::Document;
use PPIx::QuoteLike::Utils qw{ __variables };
-our $VERSION = '0.015';
+our $VERSION = '0.016';
my %opt;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/inc/My/Module/Build.pm
new/PPIx-QuoteLike-0.016/inc/My/Module/Build.pm
--- old/PPIx-QuoteLike-0.015/inc/My/Module/Build.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/inc/My/Module/Build.pm 2021-03-26
14:18:33.000000000 +0100
@@ -10,24 +10,105 @@
# use lib 'inc'; # Already done because this module is running.
use My::Module::Recommend;
-
sub ACTION_authortest {
- my ( $self, @args ) = @_;
+## my ( $self, @args ) = @_; # Arguments unused
+ my ( $self ) = @_;
+
+ $self->depends_on( qw{ functional_test optionals_test structural_test } );
+
+ return;
+}
+
+sub ACTION_functional_test {
+ my ( $self ) = @_;
+
+ local $ENV{AUTHOR_TESTING} = 1;
+
+ $self->my_depends_on();
+
+ print <<'EOD';
+functional_test
+AUTHOR_TESTING=1
+EOD
+
+ # Not depends_on(), because that is idempotent. But we really do
+ # want to run 'test' more than once if we do more than one of the
+ # *_test actions.
+ $self->dispatch( 'test' );
+
+ return;
+}
+
+sub ACTION_optionals_test {
+ my ( $self ) = @_;
+
+ my $optionals = join ',', My::Module::Recommend->optionals();
local $ENV{AUTHOR_TESTING} = 1;
+ local $ENV{PERL5OPT} = "-MTest::Without::Module=$optionals";
- my @depends_on = ( qw{ build } );
- -e 'META.json' or push @depends_on, 'distmeta';
- $self->depends_on( @depends_on );
-
- $self->test_files( qw{ t xt/author },
- My::Module::Recommend->make_optional_modules_tests(),
- );
- $self->depends_on( 'test' );
+ $self->my_depends_on();
+
+ print <<"EOD";
+
+optionals_test
+AUTHOR_TESTING=1
+PERL5OPT=-MTest::Without::Module=$optionals
+EOD
+
+ # Not depends_on(), because that is idempotent. But we really do
+ # want to run 'test' more than once if we do more than one of the
+ # *_test actions.
+ $self->dispatch( 'test' );
return;
}
+sub ACTION_structural_test {
+ my ( $self ) = @_;
+
+ local $ENV{AUTHOR_TESTING} = 1;
+
+ $self->my_depends_on();
+
+ print <<'EOD';
+
+structural_test
+AUTHOR_TESTING=1
+EOD
+
+ my $structural_test_files = 'xt/author';
+ if ( $self->can( 'args' ) ) {
+ my @arg = $self->args();
+ for ( my $inx = 0; $inx < $#arg; $inx += 2 ) {
+ $arg[$inx] =~ m/ \A structural[-_]test[-_]files \z /smx
+ or next;
+ $structural_test_files = $arg[ $inx + 1 ];
+ last;
+ }
+ }
+ $self->test_files( $structural_test_files );
+
+ # Not depends_on(), because that is idempotent. But we really do
+ # want to run 'test' more than once if we do more than one of the
+ # *_test actions.
+ $self->dispatch( 'test' );
+
+ return;
+}
+
+sub my_depends_on {
+ my ( $self ) = @_;
+ my @depends_on;
+ -d 'blib'
+ or push @depends_on, 'build';
+ -e 'META.json'
+ or push @depends_on, 'distmeta';
+ @depends_on
+ and $self->depends_on( @depends_on );
+ return;
+}
+
1;
__END__
@@ -53,30 +134,54 @@
=head1 ACTIONS
-This module provides the following action:
+This module provides the following actions:
=over
=item authortest
-This action runs not only those tests which appear in the F<t>
-directory, but those that appear in the F<xt> directory. The F<xt> tests
-are provided for information only, since some of them (notably
-F<xt/critic.t> and F<xt/pod_spelling.t>) are very sensitive to the
-configuration under which they run.
-
-Some of the F<xt> tests require modules that are not named as
-requirements. These should disable themselves if the required modules
-are not present.
+This action does nothing on its own, but it depends on
+L<functional_test|/functional_test>, L<optionals_test|/optionals_test>,
+and L<structural_test|/structural_test>, so invoking it runs all these tests.
+
+=item functional_test
+
+This action is the same as C<test>, but the C<AUTHORTEST> environment
+variable is set to true.
+
+This test is sensitive to both the C<verbose> argument and the
+C<test-files> argument.
+
+=item optionals_test
+
+This action is the same as C<test>, but the C<AUTHORTEST> environment
+variable is set to true, and the C<PERL5OPT> environment variable is set
+to C<-MTest::Without::Module=...>, where the elipsis is a
+comma-separated list of all optional modules.
+
+This test is sensitive to both the C<verbose> argument and the
+C<test-files> argument.
+
+=item structural_test
+
+This action is the same as C<test>, but the C<AUTHORTEST> environment
+variable is set to true, and the test files are F<xt/author>.
+
+Some of these tests require modules that are not named as requirements.
+Such tests should disable themselves if the required modules are not
+present.
-This test is sensitive to the C<verbose=1> argument, but not to the
-C<--test_files> argument.
+This test is sensitive to the C<verbose> argument and the
+C<xt-test-files> argument, which specifies test files to run and
+defaults to F<xt/author>. The use of C<xt-test-files> requires at least
+L<Module::Build|Module::Build> version C<0.26>.
=back
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/inc/My/Module/Meta.pm
new/PPIx-QuoteLike-0.016/inc/My/Module/Meta.pm
--- old/PPIx-QuoteLike-0.015/inc/My/Module/Meta.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/inc/My/Module/Meta.pm 2021-03-26
14:18:33.000000000 +0100
@@ -17,40 +17,95 @@
return $self;
}
+sub abstract {
+ return 'Parse Perl string literals and string-literal-like things.';
+}
+
+sub add_to_cleanup {
+ return [ qw{ cover_db } ];
+}
+
+sub author {
+ return 'Thomas R. Wyant, III F<wyant at cpan dot org>';
+}
+
sub build_requires {
return +{
'Test::More' => 0.88, # Because of done_testing().
+ charnames => 0,
};
}
+sub configure_requires {
+ return +{
+ 'lib' => 0,
+ 'strict' => 0,
+ 'warnings' => 0,
+ };
+}
+
+sub dist_name {
+ return 'PPIx-QuoteLike';
+}
+
sub distribution {
my ( $self ) = @_;
return $self->{distribution};
}
+sub license {
+ return 'perl';
+}
+
sub meta_merge {
+ my ( undef, @extra ) = @_;
return {
'meta-spec' => {
version => 2,
},
- no_index => {
- directory => [ qw{ inc t xt } ],
- },
+ dynamic_config => 1,
resources => {
bugtracker => {
- web =>
'https://github.com/trwyant/perl-PPIx-QuoteLike/issues',
- mailto => 'wy...@cpan.org',
- },
+ web =>
'https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike',
+ # web =>
'https://github.com/trwyant/perl-PPIx-QuoteLike/issues',
+ mailto => 'wy...@cpan.org',
+ },
license => 'http://dev.perl.org/licenses/',
repository => {
type => 'git',
url => 'git://github.com/trwyant/perl-PPIx-QuoteLike.git',
web => 'https://github.com/trwyant/perl-PPIx-QuoteLike',
},
- }
+ },
+ @extra,
+ };
+}
+
+sub module_name {
+ return 'PPIx::QuoteLike';
+}
+
+sub no_index {
+ return +{
+ directory => [
+ 'inc',
+ 't',
+ 'xt',
+ ],
};
}
+sub provides {
+ -d 'lib'
+ or return;
+ local $@ = undef;
+ my $provides = eval {
+ require Module::Metadata;
+ Module::Metadata->provides( version => 2, dir => 'lib' );
+ } or return;
+ return ( provides => $provides );
+}
+
sub requires {
my ( $self, @extra ) = @_;
## if ( ! $self->distribution() ) {
@@ -65,10 +120,11 @@
'Readonly' => 0,
'Scalar::Util' => 0,
'Text::Tabs' => 0,
- 'base' => 0,
- 'constant' => 0,
- 'strict' => 0,
- 'warnings' => 0,
+ base => 0,
+ constant => 0,
+ re => 0,
+ strict => 0,
+ warnings => 0,
@extra,
};
}
@@ -77,6 +133,14 @@
return 5.006;
}
+sub script_files {
+ return [
+ ];
+}
+
+sub version_from {
+ return 'lib/PPIx/QuoteLike.pm';
+}
1;
@@ -111,6 +175,19 @@
This method instantiates the class.
+=head2 abstract
+
+This method returns the distribution's abstract.
+
+=head2 add_to_cleanup
+
+This method returns a reference to an array of files to be added to the
+cleanup.
+
+=head2 author
+
+This method returns the name of the distribution author
+
=head2 build_requires
use YAML;
@@ -121,6 +198,20 @@
use in a F<Build.PL> C<build_requires> key, or a F<Makefile.PL>
C<< {META_MERGE}->{build_requires} >> or C<BUILD_REQUIRES> key.
+=head2 configure_requires
+
+ use YAML;
+ print Dump( $meta->configure_requires() );
+
+This method returns a reference to a hash describing the modules
+required to configure the package, suitable for use in a F<Build.PL>
+C<configure_requires> key, or a F<Makefile.PL>
+C<< {META_MERGE}->{configure_requires} >> or C<CONFIGURE_REQUIRES> key.
+
+=head2 dist_name
+
+This method returns the distribution name.
+
=head2 distribution
if ( $meta->distribution() ) {
@@ -132,6 +223,42 @@
This method returns the value of the environment variable
C<MAKING_MODULE_DISTRIBUTION> at the time the object was instantiated.
+=head2 license
+
+This method returns the distribution's license.
+
+=head2 meta_merge
+
+ use YAML;
+ print Dump( $meta->meta_merge() );
+
+This method returns a reference to a hash describing the meta-data which
+has to be provided by making use of the builder's C<meta_merge>
+functionality. This includes the C<dynamic_config> and C<resources>
+data.
+
+Any arguments will be appended to the generated array.
+
+=head2 module_name
+
+This method returns the name of the module the distribution is based
+on.
+
+=head2 no_index
+
+This method returns the names of things which are not to be indexed
+by CPAN.
+
+=head2 provides
+
+ use YAML;
+ print Dump( [ $meta->provides() ] );
+
+This method attempts to load L<Module::Metadata|Module::Metadata>. If
+this succeeds, it returns a C<provides> entry suitable for inclusion in
+L<meta_merge()|/meta_merge> data (i.e. C<'provides'> followed by a hash
+reference). If it can not load the required module, it returns nothing.
+
=head2 requires
use YAML;
@@ -151,11 +278,20 @@
This method returns the version of Perl required by the package.
+=head2 script_files
+
+This method returns a reference to an array containing the names of
+script files provided by this distribution. This array may be empty.
+
+=head2 version_from
+
+This method returns the name of the distribution file from which the
+distribution's version is to be derived.
+
=head1 ATTRIBUTES
This class has no public attributes.
-
=head1 ENVIRONMENT
=head2 MAKING_MODULE_DISTRIBUTION
@@ -164,10 +300,10 @@
making a distribution. This ensures that no configuration-specific
information makes it into F<META.yml>.
-
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/inc/My/Module/Recommend/Any.pm
new/PPIx-QuoteLike-0.016/inc/My/Module/Recommend/Any.pm
--- old/PPIx-QuoteLike-0.015/inc/My/Module/Recommend/Any.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/inc/My/Module/Recommend/Any.pm 2021-03-26
14:18:33.000000000 +0100
@@ -12,7 +12,7 @@
BEGIN {
*import = \&Exporter::import;
}
-our $VERSION = '0.015';
+our $VERSION = '0.016';
our @EXPORT_OK = qw{ __any };
@@ -148,6 +148,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/inc/My/Module/Recommend.pm
new/PPIx-QuoteLike-0.016/inc/My/Module/Recommend.pm
--- old/PPIx-QuoteLike-0.015/inc/My/Module/Recommend.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/inc/My/Module/Recommend.pm 2021-03-26
14:18:33.000000000 +0100
@@ -13,63 +13,6 @@
EOD
);
-sub make_optional_modules_tests {
- eval {
- require Test::Without::Module;
- 1;
- } or return;
- my $dir = 'xt/author/optionals';
- -d $dir
- or mkdir $dir
- or die "Can not create $dir: $!\n";
- opendir my $dh, 't'
- or die "Can not access t/: $!\n";
- while ( readdir $dh ) {
- m/ \A [.] /smx
- and next;
- m/ [.] t \z /smx
- or next;
- my $fn = "$dir/$_";
- -e $fn
- and next;
- print "Creating $fn\n";
- open my $fh, '>:encoding(utf-8)', $fn
- or die "Can not create $fn: $!\n";
- print { $fh } <<"EOD";
-package main;
-
-use strict;
-use warnings;
-
-use Test::More 0.88;
-
-use lib qw{ inc };
-
-use My::Module::Recommend;
-
-BEGIN {
- eval {
- require Test::Without::Module;
- Test::Without::Module->import(
- My::Module::Recommend->optionals() );
- 1;
- } or plan skip_all => 'Test::Without::Module not available';
-}
-
-do 't/$_';
-
-1;
-
-__END__
-
-# ex: set textwidth=72 :
-EOD
- }
- closedir $dh;
-
- return $dir;
-}
-
sub optionals {
return ( map { $_->modules() } @optionals );
}
@@ -119,24 +62,6 @@
This class supports the following public methods:
-=head2 make_optional_modules_tests
-
- My::Module::Recommend->make_optional_modules_tests()
-
-This static method creates the optional module tests. These are stub
-files in F<xt/author/optionals/> that use C<Test::Without::Module> to
-hide all the optional modules and then invoke the normal tests in F<t/>.
-The aim of these tests is to ensure that we get no test failures if the
-optional modules are missing.
-
-This method is idempotent; that is, it only creates the directory and
-the individual stub files if they are missing.
-
-On success this method returns the name of the optional tests directory.
-If C<Test::Without::Module> can not be loaded this method returns
-nothing. If the directory or any file can not be created, an exception
-is thrown.
-
=head2 optionals
say for My::Module::Recommend->optionals();
@@ -155,6 +80,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Constant.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Constant.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Constant.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Constant.pm 2021-03-26
14:18:33.000000000 +0100
@@ -8,7 +8,7 @@
use Carp;
use base qw{ Exporter };
-our $VERSION = '0.015';
+our $VERSION = '0.016';
our @CARP_NOT = qw{
PPIx::QuoteLike
@@ -132,6 +132,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Dumper.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Dumper.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Dumper.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Dumper.pm 2021-03-26
14:18:33.000000000 +0100
@@ -12,7 +12,7 @@
use PPIx::QuoteLike::Utils qw{ __instance };
use Scalar::Util ();
-our $VERSION = '0.015';
+our $VERSION = '0.016';
use constant SCALAR_REF => ref \0;
@@ -506,6 +506,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Control.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Control.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Control.pm
2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Control.pm
2021-03-26 14:18:33.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.015';
+our $VERSION = '0.016';
{
# TODO make this a state variable when we can require Perl 5.10.
@@ -61,6 +61,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Delimiter.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Delimiter.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Delimiter.pm
2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Delimiter.pm
2021-03-26 14:18:33.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ MINIMUM_PERL @CARP_NOT };
-our $VERSION = '0.015';
+our $VERSION = '0.016';
# Perl 5.29.0 disallows unassigned code points and combining code points
# as delimiters. Unfortunately for me non-characters and illegal
@@ -101,6 +101,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Interpolation.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Interpolation.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Interpolation.pm
2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Interpolation.pm
2021-03-26 14:18:33.000000000 +0100
@@ -20,7 +20,7 @@
use base qw{ PPIx::QuoteLike::Token };
-our $VERSION = '0.015';
+our $VERSION = '0.016';
sub ppi {
my ( $self ) = @_;
@@ -148,6 +148,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/String.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/String.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/String.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/String.pm 2021-03-26
14:18:33.000000000 +0100
@@ -9,8 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.015';
-
+our $VERSION = '0.016';
1;
@@ -32,7 +31,6 @@
C<PPIx::QuoteLike::Token::String> has no descendants.
-
=head1 DESCRIPTION
This Perl class represents a literal, uninterpolated string.
@@ -42,7 +40,6 @@
This class supports no public methods in addition to those of its
superclass.
-
=head1 SEE ALSO
L<PPIx::QuoteLike::Token|PPIx::QuoteLike::Token>.
@@ -50,6 +47,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Structure.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Structure.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Structure.pm
2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Structure.pm
2021-03-26 14:18:33.000000000 +0100
@@ -9,8 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.015';
-
+our $VERSION = '0.016';
1;
@@ -52,6 +51,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Unknown.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Unknown.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Unknown.pm
2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Unknown.pm
2021-03-26 14:18:33.000000000 +0100
@@ -9,7 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.015';
+our $VERSION = '0.016';
1;
@@ -48,6 +48,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Whitespace.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Whitespace.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token/Whitespace.pm
2021-02-05 15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token/Whitespace.pm
2021-03-26 14:18:33.000000000 +0100
@@ -9,8 +9,7 @@
use PPIx::QuoteLike::Constant qw{ @CARP_NOT };
-our $VERSION = '0.015';
-
+our $VERSION = '0.016';
sub significant {
return 0;
@@ -36,7 +35,6 @@
C<PPIx::QuoteLike::Token::Whitespace> has no descendants.
-
=head1 DESCRIPTION
This Perl class represents insignificant white space.
@@ -50,7 +48,6 @@
This method returns a false value.
-
=head1 SEE ALSO
L<PPIx::QuoteLike::Token|PPIx::QuoteLike::Token>.
@@ -58,6 +55,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Token.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Token.pm 2021-03-26
14:18:33.000000000 +0100
@@ -16,7 +16,7 @@
visual_column_number
};
-our $VERSION = '0.015';
+our $VERSION = '0.016';
# Private to this package.
sub __new {
@@ -311,6 +311,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Utils.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Utils.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike/Utils.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike/Utils.pm 2021-03-26
14:18:33.000000000 +0100
@@ -39,7 +39,7 @@
__variables
};
-our $VERSION = '0.015';
+our $VERSION = '0.016';
# Readonly::Scalar my $BRACED_RE => __match_enclosed( LEFT_CURLY );
Readonly::Scalar my $BRACKETED_RE => __match_enclosed( '[' ); # ]
@@ -57,7 +57,6 @@
)
/smx;
-
sub column_number {
my ( $self ) = @_;
return ( $self->location() || [] )->[LOCATION_CHARACTER];
@@ -139,7 +138,6 @@
return keys %var;
};
-
$ppi->isa( 'PPI::Element' )
or croak 'Argument must be a PPI::Element, ',
'PPIx::Regexp::Element, PPIx::QuoteLike, or ',
@@ -546,7 +544,6 @@
say for __variables( PPI::Document->new( \'$foo' );
-
=head1 DESCRIPTION
This Perl module holds code for L<PPIx::QuoteLike|PPIx::QuoteLike> that
@@ -679,6 +676,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike.pm
new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike.pm
--- old/PPIx-QuoteLike-0.015/lib/PPIx/QuoteLike.pm 2021-02-05
15:22:31.000000000 +0100
+++ new/PPIx-QuoteLike-0.016/lib/PPIx/QuoteLike.pm 2021-03-26
14:18:33.000000000 +0100
@@ -40,7 +40,7 @@
use Scalar::Util ();
use Text::Tabs ();
-our $VERSION = '0.015';
+our $VERSION = '0.016';
use constant CLASS_CONTROL => 'PPIx::QuoteLike::Token::Control';
use constant CLASS_DELIMITER => 'PPIx::QuoteLike::Token::Delimiter';
@@ -657,7 +657,6 @@
}
-
# This subroutine was created in an attempt to simplify control flow.
# Argument 2 (from 0) is not unpacked because the caller needs to see
# the side effects of matches made on it.
@@ -1409,6 +1408,7 @@
=head1 SUPPORT
Support is by the author. Please file bug reports at
+L<https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-QuoteLike>,
L<https://github.com/trwyant/perl-PPIx-QuoteLike/issues>, or in
electronic mail to the author.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/PPIx-QuoteLike-0.015/xt/author/prereq.t
new/PPIx-QuoteLike-0.016/xt/author/prereq.t
--- old/PPIx-QuoteLike-0.015/xt/author/prereq.t 1970-01-01 01:00:00.000000000
+0100
+++ new/PPIx-QuoteLike-0.016/xt/author/prereq.t 2021-03-26 14:18:33.000000000
+0100
@@ -0,0 +1,25 @@
+package main;
+
+use strict;
+use warnings;
+
+use Test::More 0.88; # Because of done_testing();
+
+eval {
+ require Test::Prereq::Meta;
+ 1;
+} or plan skip_all => 'Test::Prereq::Meta not available';
+
+my $tpm = Test::Prereq::Meta->new(
+ accept => [ qw{ PPIx::Regexp } ],
+);
+
+$tpm->all_prereq_ok();
+
+$tpm->all_prereqs_used();
+
+done_testing;
+
+1;
+
+# ex: set textwidth=72 :
