diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/DBM_Filter/int32.pm')
-rwxr-xr-x | Master/tlpkg/tlperl0/lib/DBM_Filter/int32.pm | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/DBM_Filter/int32.pm b/Master/tlpkg/tlperl0/lib/DBM_Filter/int32.pm new file mode 100755 index 00000000000..d8fa5424af4 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/DBM_Filter/int32.pm @@ -0,0 +1,50 @@ +package DBM_Filter::int32 ; + +use strict; +use warnings; + +our $VERSION = '0.02'; + +# todo get Filter to figure endian. + +sub Store +{ + $_ = 0 if ! defined $_ || $_ eq "" ; + $_ = pack("i", $_); +} + +sub Fetch +{ + no warnings 'uninitialized'; + $_ = unpack("i", $_); +} + +1; + +__END__ + +=head1 NAME + +DBM_Filter::int32 - 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('int32'); + +=head1 DESCRIPTION + +This DBM filter is used when interoperating with a C/C++ application +that uses a C int as either the key and/or value in the DBM file. + +=head1 SEE ALSO + +L<DBM_Filter>, L<perldbmfilter> + +=head1 AUTHOR + +Paul Marquess pmqs@cpan.org + |