From b370a9ebc46b2b864a476024e2983e24bd946f7b Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 9 May 2006 14:03:30 +0000 Subject: [PATCH] POD fixes p4raw-id: //depot/perl@28139 --- lib/DBM_Filter/compress.pm | 6 ++++-- lib/DBM_Filter/encode.pm | 12 +++++++----- lib/DBM_Filter/int32.pm | 6 ++++-- lib/DBM_Filter/null.pm | 6 ++++-- lib/DBM_Filter/utf8.pm | 7 ++++--- 5 files changed, 23 insertions(+), 14 deletions(-) diff --git a/lib/DBM_Filter/compress.pm b/lib/DBM_Filter/compress.pm index 4c3356c3fc..077c5703b0 100644 --- a/lib/DBM_Filter/compress.pm +++ b/lib/DBM_Filter/compress.pm @@ -23,7 +23,9 @@ sub Fetch { $_ = uncompress($_) } __END__ -=head1 DBM_Filter::compress +=head1 NAME + +DBM_Filter::compress - filter for DBM_Filter =head1 SYNOPSIS @@ -32,7 +34,7 @@ __END__ $db = tie %hash, ... $db->Filter_Push('compress'); - + =head1 DESCRIPTION This DBM filter will compress all data before it is written to the database diff --git a/lib/DBM_Filter/encode.pm b/lib/DBM_Filter/encode.pm index f5ca7a97b7..a936b65f9a 100644 --- a/lib/DBM_Filter/encode.pm +++ b/lib/DBM_Filter/encode.pm @@ -25,11 +25,11 @@ sub Filter unless $encoding; return { - Store => sub { - $_ = $encoding->encode($_) + Store => sub { + $_ = $encoding->encode($_) if defined $_ ; }, - Fetch => sub { + Fetch => sub { $_ = $encoding->decode($_) if defined $_ ; } @@ -40,7 +40,9 @@ sub Filter __END__ -=head1 DBM_Filter::encode +=head1 NAME + +DBM_Filter::encode - filter for DBM_Filter =head1 SYNOPSIS @@ -49,7 +51,7 @@ __END__ $db = tie %hash, ... $db->Filter_Push('encode' => 'iso-8859-16'); - + =head1 DESCRIPTION This DBM filter allows you to choose the character encoding will be diff --git a/lib/DBM_Filter/int32.pm b/lib/DBM_Filter/int32.pm index 76d4a11e7d..a27ff4342e 100644 --- a/lib/DBM_Filter/int32.pm +++ b/lib/DBM_Filter/int32.pm @@ -23,7 +23,9 @@ sub Fetch __END__ -=head1 DBM_Filter::int32 +=head1 NAME + +DBM_Filter::int32 - filter for DBM_Filter =head1 SYNOPSIS @@ -32,7 +34,7 @@ __END__ $db = tie %hash, ... $db->Filter_Push('int32'); - + =head1 DESCRIPTION This DBM filter is used when interoperating with a C/C++ application diff --git a/lib/DBM_Filter/null.pm b/lib/DBM_Filter/null.pm index 1eb9556629..2301b33594 100644 --- a/lib/DBM_Filter/null.pm +++ b/lib/DBM_Filter/null.pm @@ -21,7 +21,9 @@ sub Fetch __END__ -=head1 DBM_Filter::null +=head1 NAME + +DBM_Filter::null - filter for DBM_Filter =head1 SYNOPSIS @@ -30,7 +32,7 @@ __END__ $db = tie %hash, ... $db->Filter_Push('null'); - + =head1 DESCRIPTION This filter ensures that all data written to the DBM file is null diff --git a/lib/DBM_Filter/utf8.pm b/lib/DBM_Filter/utf8.pm index 89d8238568..30e02b4732 100644 --- a/lib/DBM_Filter/utf8.pm +++ b/lib/DBM_Filter/utf8.pm @@ -22,17 +22,18 @@ sub Fetch { $_ = Encode::decode_utf8($_) if defined $_ } __END__ -=head1 DBM_Filter::utf8 +=head1 NAME + +DBM_Filter::utf8 - filter for DBM_Filter =head1 SYNOPSIS use SDBM_File; # or DB_File, or GDBM_File, or NDBM_File, or ODBM_File use DBM_Filter ; - $db = tie %hash, ... $db->Filter_Push('utf8'); - + =head1 DESCRIPTION This Filter will ensure that all data written to the DBM will be encoded -- 2.34.1