use strict;
use warnings;
-our $VERSION = '0.02';
+our $VERSION = '0.03';
package Tie::Hash ;
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 $@;
This module will arrange for the following methods to be available via
the object returned from the C<tie> 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.