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
+# 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
=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
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
-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;
}
}
-use strict;
-use warnings;
use Test::More tests => 11;
BEGIN { use_ok('PerlIO::via::QuotedPrint') }
"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
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
--- /dev/null
+#!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();
+ }
+}
+
+#===============================================================================
--- /dev/null
+#!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('.');
+ }
+}
+
+#===============================================================================
--- /dev/null
+#!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();
+ }
+}
+
+#===============================================================================
--- /dev/null
+#!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)]
+ });
+ }
+}
+
+#===============================================================================
https://perl5.git.perl.org / perl5.git / commitdiff