summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm56
1 files changed, 32 insertions, 24 deletions
diff --git a/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm b/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm
index 2434191f091..11ba2e7b4f3 100644
--- a/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm
+++ b/Master/tlpkg/tlperl/lib/PerlIO/via/QuotedPrint.pm
@@ -1,20 +1,21 @@
package PerlIO::via::QuotedPrint;
-# Set the version info
-# Make sure we do things by the book from now on
+$VERSION= '0.07';
-$VERSION = '0.06';
+# be as strict as possible
use strict;
-# Make sure the encoding/decoding stuff is available
-
+# modules that we need
use MIME::QuotedPrint (); # no need to pollute this namespace
-# Satisfy -require-
-
+# satisfy -require-
1;
-#-----------------------------------------------------------------------
+#-------------------------------------------------------------------------------
+#
+# Standard Perl features
+#
+#-------------------------------------------------------------------------------
# IN: 1 class to bless with
# 2 mode string (ignored)
# 3 file handle of PerlIO layer below (ignored)
@@ -22,21 +23,21 @@ use MIME::QuotedPrint (); # no need to pollute this namespace
sub PUSHED { bless \*PUSHED,$_[0] } #PUSHED
-#-----------------------------------------------------------------------
+#-------------------------------------------------------------------------------
# IN: 1 instantiated object (ignored)
# 2 handle to read from
# OUT: 1 decoded string
sub FILL {
-# Read the line from the handle
-# Decode if there is something decode and return result or signal eof
-
- my $line = readline( $_[1] );
- (defined $line) ? MIME::QuotedPrint::decode_qp( $line ) : undef;
+ # decode and return
+ my $line= readline( $_[1] );
+ return ( defined $line )
+ ? MIME::QuotedPrint::decode_qp($line)
+ : undef;
} #FILL
-#-----------------------------------------------------------------------
+#-------------------------------------------------------------------------------
# IN: 1 instantiated object (ignored)
# 2 buffer to be written
# 3 handle to write to
@@ -44,11 +45,14 @@ sub FILL {
sub WRITE {
-# Encode whatever needs to be encoded and write to handle: indicate result
-
- (print {$_[2]} MIME::QuotedPrint::encode_qp($_[1])) ? length($_[1]) : -1;
+ # encode and write to handle: indicate result
+ return ( print { $_[2] } MIME::QuotedPrint::encode_qp( $_[1] ) )
+ ? length( $_[1] )
+ : -1;
} #WRITE
+#-------------------------------------------------------------------------------
+
__END__
=head1 NAME
@@ -59,11 +63,15 @@ PerlIO::via::QuotedPrint - PerlIO layer for quoted-printable strings
use PerlIO::via::QuotedPrint;
- open( my $in,'<:via(QuotedPrint)','file.qp' )
- or die "Can't open file.qp for reading: $!\n";
+ 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";
+ open( my $out, '>:via(QuotedPrint)', 'file.qp' )
+ or die "Can't open file.qp for writing: $!\n";
+
+=head1 VERSION
+
+This documentation describes version 0.07.
=head1 DESCRIPTION
@@ -87,8 +95,8 @@ Based on example that was initially added to MIME::QuotedPrint.pm for the
=head1 COPYRIGHT
-Copyright (c) 2002-2003 Elizabeth Mattijsen. All rights reserved. This
-library is free software; you can redistribute it and/or modify it under
+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.
=cut