X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/d9f30342f9de4793189d81b85a5e32057393e428..2d51747b8d0fbff249ca971199aa8ddb5856d3c3:/lib/DBM_Filter.pm diff --git a/lib/DBM_Filter.pm b/lib/DBM_Filter.pm index 8947c0c..612138e 100644 --- a/lib/DBM_Filter.pm +++ b/lib/DBM_Filter.pm @@ -2,7 +2,7 @@ package DBM_Filter ; use strict; use warnings; -our $VERSION = '0.02'; +our $VERSION = '0.03'; package Tie::Hash ; @@ -93,7 +93,7 @@ sub _do_Filter_Push no strict 'refs'; # does the "DBM_Filter::$class" exist? - if ( ! defined %{ "${class}::"} ) { + if ( ! %{ "${class}::"} ) { # Nope, so try to load it. eval " require $class ; " ; croak "$caller: Cannot Load DBM Filter '$class': $@" if $@; @@ -323,11 +323,7 @@ to be packaged into a stand-alone module. This module will arrange for the following methods to be available via the object returned from the C call. -=head2 $db->Filter_Push() - -=head2 $db->Filter_Key_Push() - -=head2 $db->Filter_Value_Push() +=head2 $db->Filter_Push() / $db->Filter_Key_Push() / $db->Filter_Value_Push() Add a filter to filter stack for the database, C<$db>. The three formats vary only in whether they apply to the DBM key, the DBM value or both.