From: Rafael Garcia-Suarez Date: Tue, 9 May 2006 14:03:30 +0000 (+0000) Subject: POD fixes X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b370a9ebc46b2b864a476024e2983e24bd946f7b;p=p5sagit%2Fp5-mst-13.2.git POD fixes p4raw-id: //depot/perl@28139 --- diff --git a/lib/DBM_Filter/compress.pm b/lib/DBM_Filter/compress.pm index 4c3356c..077c570 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 f5ca7a9..a936b65 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 76d4a11..a27ff43 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 1eb9556..2301b33 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 89d8238..30e02b4 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