This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update PerlIO::via::QuotedPrint from 0.08 to 0.09
authorMax Maischein <corion@corion.net>
Fri, 18 Dec 2020 09:40:09 +0000 (10:40 +0100)
committerMax Maischein <corion@corion.net>
Fri, 18 Dec 2020 09:40:09 +0000 (10:40 +0100)
This should be picked up by the auto-generated perldelta

MANIFEST
cpan/PerlIO-via-QuotedPrint/lib/PerlIO/via/QuotedPrint.pm
cpan/PerlIO-via-QuotedPrint/t/QuotedPrint.t
cpan/PerlIO-via-QuotedPrint/t/changes.t [new file with mode: 0644]
cpan/PerlIO-via-QuotedPrint/t/critic.t [new file with mode: 0644]
cpan/PerlIO-via-QuotedPrint/t/pod.t [new file with mode: 0644]
cpan/PerlIO-via-QuotedPrint/t/pod_coverage.t [new file with mode: 0644]

index c79545e..c3adc8d 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1540,6 +1540,10 @@ cpan/perlfaq/lib/perlfaq8.pod    System Interaction
 cpan/perlfaq/lib/perlfaq9.pod  Networking
 cpan/perlfaq/lib/perlglossary.pod      Perl Glossary
 cpan/PerlIO-via-QuotedPrint/lib/PerlIO/via/QuotedPrint.pm      PerlIO::via::QuotedPrint
+cpan/PerlIO-via-QuotedPrint/t/changes.t
+cpan/PerlIO-via-QuotedPrint/t/critic.t
+cpan/PerlIO-via-QuotedPrint/t/pod.t
+cpan/PerlIO-via-QuotedPrint/t/pod_coverage.t
 cpan/PerlIO-via-QuotedPrint/t/QuotedPrint.t                    PerlIO::via::QuotedPrint
 cpan/Pod-Checker/lib/Pod/Checker.pm
 cpan/Pod-Checker/scripts/podchecker.PL
index 8135e17..d02ec68 100644 (file)
@@ -1,10 +1,19 @@
+# Copyright (C) 2002-2004, 2012 Elizabeth Mattijsen.  All rights reserved.
+# Copyright (C) 2015 Steve Hay.  All rights reserved.
+
+# This module is free software; you can redistribute it and/or modify it under
+# the same terms as Perl itself, i.e. under the terms of either the GNU General
+# Public License or the Artistic License, as specified in the F<LICENCE> file.
+
 package PerlIO::via::QuotedPrint;
 
-$VERSION= '0.08';
+use 5.008001;
 
 # be as strict as possible
 use strict;
 
+our $VERSION = '0.09';
+
 # modules that we need
 use MIME::QuotedPrint (); # no need to pollute this namespace
 
@@ -61,17 +70,13 @@ PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
 
 =head1 SYNOPSIS
 
- use PerlIO::via::QuotedPrint;
   use PerlIO::via::QuotedPrint;
 
- open( my $in, '<:via(QuotedPrint)', 'file.qp' )
-   or die "Can't open file.qp for reading: $!\n";
- open( my $out, '>:via(QuotedPrint)', 'file.qp' )
-   or die "Can't open file.qp for writing: $!\n";
-
-=head1 VERSION
+    open(my $in, '<:via(QuotedPrint)', 'file.qp') or
+        die "Can't open file.qp for reading: $!\n";
 
-This documentation describes version 0.08.
+    open(my $out, '>:via(QuotedPrint)', 'file.qp') or
+        die "Can't open file.qp for writing: $!\n";
 
 =head1 DESCRIPTION
 
@@ -79,24 +84,93 @@ This module implements a PerlIO layer that works on files encoded in the
 quoted-printable format.  It will decode from quoted-printable while reading
 from a handle, and it will encode as quoted-printable while writing to a handle.
 
-=head1 REQUIRED MODULES
+=head1 EXPORTS
+
+I<None>.
+
+=head1 KNOWN BUGS
+
+I<None>.
+
+=head1 FEEDBACK
 
- MIME::QuotedPrint (any)
+Patches, bug reports, suggestions or any other feedback is welcome.
+
+Patches can be sent as GitHub pull requests at
+L<https://github.com/steve-m-hay/PerlIO-via-QuotedPrint/pulls>.
+
+Bug reports and suggestions can be made on the CPAN Request Tracker at
+L<https://rt.cpan.org/Public/Bug/Report.html?Queue=PerlIO-via-QuotedPrint>.
+
+Currently active requests on the CPAN Request Tracker can be viewed at
+L<https://rt.cpan.org/Public/Dist/Display.html?Status=Active;Queue=PerlIO-via-QuotedPrint>.
+
+Please test this distribution.  See CPAN Testers Reports at
+L<https://www.cpantesters.org/> for details of how to get involved.
+
+Previous test results on CPAN Testers Reports can be viewed at
+L<https://www.cpantesters.org/distro/P/PerlIO-via-QuotedPrint.html>.
+
+Please rate this distribution on CPAN Ratings at
+L<https://cpanratings.perl.org/rate/?distribution=PerlIO-via-QuotedPrint>.
 
 =head1 SEE ALSO
 
-L<PerlIO::via>, L<MIME::QuotedPrint>, L<PerlIO::via::Base64>,
-L<PerlIO::via::MD5>, L<PerlIO::via::StripHTML>, L<PerlIO::via::Rotate>.
+L<PerlIO::via>,
+L<MIME::QuotedPrint>.
 
 =head1 ACKNOWLEDGEMENTS
 
-Based on example that was initially added to MIME::QuotedPrint.pm for the
-5.8.0 distribution of Perl.
+Based on an example in the standard library module MIME::QuotedPrint in Perl
+(version 5.8.0).
+
+=head1 AVAILABILITY
+
+The latest version of this module is available from CPAN (see
+L<perlmodlib/"CPAN"> for details) at
+
+L<https://metacpan.org/release/PerlIO-via-QuotedPrint> or
+
+L<https://www.cpan.org/authors/id/S/SH/SHAY/> or
+
+L<https://www.cpan.org/modules/by-module/PerlIO/>.
+
+The latest source code is available from GitHub at
+L<https://github.com/steve-m-hay/PerlIO-via-QuotedPrint>.
+
+=head1 INSTALLATION
+
+See the F<INSTALL> file.
+
+=head1 AUTHOR
+
+Elizabeth Mattijsen E<lt>L<liz@dijkmat.nl|mailto:liz@dijkmat.nl>E<gt>.
+
+Steve Hay E<lt>L<shay@cpan.org|mailto:shay@cpan.org>E<gt> is now maintaining
+PerlIO::via::QuotedPrint as of version 0.08.
 
 =head1 COPYRIGHT
 
-Copyright (c) 2002, 2003, 2004, 2012 Elizabeth Mattijsen.  All rights reserved.
-This library is free software; you can redistribute it and/or modify it under
-the same terms as Perl itself.
+Copyright (C) 2002-2004, 2012 Elizabeth Mattijsen.  All rights reserved.
+
+Copyright (C) 2015, 2020 Steve Hay.  All rights reserved.
+
+=head1 LICENCE
+
+This module is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself, i.e. under the terms of either the GNU General
+Public License or the Artistic License, as specified in the F<LICENCE> file.
+
+=head1 VERSION
+
+Version 0.09
+
+=head1 DATE
+
+08 Dec 2020
+
+=head1 HISTORY
+
+See the F<Changes> file.
 
 =cut
index 33366bd..5270fb4 100644 (file)
@@ -1,4 +1,9 @@
-BEGIN {                                # Magic Perl CORE pragma
+use 5.008001;
+
+use strict;
+use warnings;
+
+BEGIN {                         # Magic Perl CORE pragma
     unless (find PerlIO::Layer 'perlio') {
         print "1..0 # Skip: PerlIO not used\n";
         exit 0;
@@ -8,8 +13,6 @@ BEGIN {                                # Magic Perl CORE pragma
     }
 }
 
-use strict;
-use warnings;
 use Test::More tests => 11;
 
 BEGIN { use_ok('PerlIO::via::QuotedPrint') }
@@ -34,16 +37,16 @@ ok(
  "opening '$file' for writing"
 );
 
-ok( (print $out $decoded),             'print to file' );
-ok( close( $out ),                     'closing encoding handle' );
+ok( (print $out $decoded),              'print to file' );
+ok( close( $out ),                      'closing encoding handle' );
 
 # Check encoding without layers
 
 {
 local $/ = undef;
-ok( open( my $test,$file ),            'opening without layer' );
-is( $encoded,readline( $test ),                'check encoded content' );
-ok( close( $test ),                    'close test handle' );
+ok( open( my $test, '<', $file ),       'opening without layer' );
+is( $encoded,readline( $test ),         'check encoded content' );
+ok( close( $test ),                     'close test handle' );
 }
 
 # Check decoding _with_ layers
@@ -52,10 +55,10 @@ ok(
  open( my $in,'<:via(QuotedPrint)', $file ),
  "opening '$file' for reading"
 );
-is( $decoded,join( '',<$in> ),         'check decoding' );
-ok( close( $in ),                      'close decoding handle' );
+is( $decoded,join( '',<$in> ),          'check decoding' );
+ok( close( $in ),                       'close decoding handle' );
 
 # Remove whatever we created now
 
-ok( unlink( $file ),                   "remove test file '$file'" );
+ok( unlink( $file ),                    "remove test file '$file'" );
 1 while unlink $file; # multiversioned filesystems
diff --git a/cpan/PerlIO-via-QuotedPrint/t/changes.t b/cpan/PerlIO-via-QuotedPrint/t/changes.t
new file mode 100644 (file)
index 0000000..bd743ad
--- /dev/null
@@ -0,0 +1,48 @@
+#!perl
+#===============================================================================
+#
+# t/changes.t
+#
+# DESCRIPTION
+#   Test script to check CPAN::Changes conformance.
+#
+# COPYRIGHT
+#   Copyright (C) 2015 Steve Hay.  All rights reserved.
+#
+# LICENCE
+#   This script is free software; you can redistribute it and/or modify it under
+#   the same terms as Perl itself, i.e. under the terms of either the GNU
+#   General Public License or the Artistic License, as specified in the LICENCE
+#   file.
+#
+#===============================================================================
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Test::More;
+
+#===============================================================================
+# MAIN PROGRAM
+#===============================================================================
+
+MAIN: {
+    plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
+
+    my $ok = eval {
+        require Test::CPAN::Changes;
+        Test::CPAN::Changes->import();
+        1;
+    };
+
+    if (not $ok) {
+        plan skip_all => 'Test::CPAN::Changes required to test Changes';
+    }
+    else {
+        changes_ok();
+    }
+}
+
+#===============================================================================
diff --git a/cpan/PerlIO-via-QuotedPrint/t/critic.t b/cpan/PerlIO-via-QuotedPrint/t/critic.t
new file mode 100644 (file)
index 0000000..882853a
--- /dev/null
@@ -0,0 +1,48 @@
+#!perl
+#===============================================================================
+#
+# t/critic.t
+#
+# DESCRIPTION
+#   Test script to check Perl::Critic conformance.
+#
+# COPYRIGHT
+#   Copyright (C) 2015 Steve Hay.  All rights reserved.
+#
+# LICENCE
+#   This script is free software; you can redistribute it and/or modify it under
+#   the same terms as Perl itself, i.e. under the terms of either the GNU
+#   General Public License or the Artistic License, as specified in the LICENCE
+#   file.
+#
+#===============================================================================
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Test::More;
+
+#===============================================================================
+# MAIN PROGRAM
+#===============================================================================
+
+MAIN: {
+    plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
+
+    my $ok = eval {
+        require Test::Perl::Critic;
+        Test::Perl::Critic->import(-profile => '');
+        1;
+    };
+
+    if (not $ok) {
+        plan skip_all => 'Test::Perl::Critic required to test with Perl::Critic';
+    }
+    else {
+        all_critic_ok('.');
+    }
+}
+
+#===============================================================================
diff --git a/cpan/PerlIO-via-QuotedPrint/t/pod.t b/cpan/PerlIO-via-QuotedPrint/t/pod.t
new file mode 100644 (file)
index 0000000..0e269bc
--- /dev/null
@@ -0,0 +1,51 @@
+#!perl
+#===============================================================================
+#
+# t/pod.t
+#
+# DESCRIPTION
+#   Test script to check POD.
+#
+# COPYRIGHT
+#   Copyright (C) 2015 Steve Hay.  All rights reserved.
+#
+# LICENCE
+#   This script is free software; you can redistribute it and/or modify it under
+#   the same terms as Perl itself, i.e. under the terms of either the GNU
+#   General Public License or the Artistic License, as specified in the LICENCE
+#   file.
+#
+#===============================================================================
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Test::More;
+
+#===============================================================================
+# MAIN PROGRAM
+#===============================================================================
+
+MAIN: {
+    plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
+
+    my $ok = eval {
+        require Test::Pod;
+        Test::Pod->import();
+        1;
+    };
+
+    if (not $ok) {
+        plan skip_all => 'Test::Pod required to test POD';
+    }
+    elsif ($Test::Pod::VERSION < 1.00) {
+        plan skip_all => 'Test::Pod 1.00 or higher required to test POD';
+    }
+    else {
+        all_pod_files_ok();
+    }
+}
+
+#===============================================================================
diff --git a/cpan/PerlIO-via-QuotedPrint/t/pod_coverage.t b/cpan/PerlIO-via-QuotedPrint/t/pod_coverage.t
new file mode 100644 (file)
index 0000000..d733da9
--- /dev/null
@@ -0,0 +1,54 @@
+#!perl
+#===============================================================================
+#
+# t/pod_coverage.t
+#
+# DESCRIPTION
+#   Test script to check POD coverage.
+#
+# COPYRIGHT
+#   Copyright (C) 2015 Steve Hay.  All rights reserved.
+#
+# LICENCE
+#   This script is free software; you can redistribute it and/or modify it under
+#   the same terms as Perl itself, i.e. under the terms of either the GNU
+#   General Public License or the Artistic License, as specified in the LICENCE
+#   file.
+#
+#===============================================================================
+
+use 5.008001;
+
+use strict;
+use warnings;
+
+use Test::More;
+
+#===============================================================================
+# MAIN PROGRAM
+#===============================================================================
+
+MAIN: {
+    plan skip_all => 'Author testing only' unless $ENV{AUTHOR_TESTING};
+
+    my $ok = eval {
+        require Test::Pod::Coverage;
+        Test::Pod::Coverage->import();
+        1;
+    };
+
+    if (not $ok) {
+        plan skip_all => 'Test::Pod::Coverage required to test POD coverage';
+    }
+    elsif ($Test::Pod::Coverage::VERSION < 0.08) {
+        plan skip_all => 'Test::Pod::Coverage 0.08 or higher required to test POD coverage';
+    }
+    else {
+        plan tests => 1;
+        pod_coverage_ok('PerlIO::via::QuotedPrint', {
+            also_private => [qw(FILL PUSHED WRITE)]
+        });
+    }
+}
+
+#===============================================================================