[perl5.git] / lib / DBM_Filter / int32.pm

package DBM_Filter::int32 ;

use strict;
use warnings;

our $VERSION = '0.03';

# 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, GDBM_File, 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
Commit	Line	Data
0e9b1cbd PM	1	package DBM_Filter::int32 ;
	2
	3	use strict;
	4	use warnings;
	5
7811227b	6	our $VERSION = '0.03';
0e9b1cbd PM	7
	8	# todo get Filter to figure endian.
	9
	10	sub Store
	11	{
	12	$_ = 0 if ! defined $_ \|\| $_ eq "" ;
	13	$_ = pack("i", $_);
	14	}
	15
	16	sub Fetch
	17	{
	18	no warnings 'uninitialized';
	19	$_ = unpack("i", $_);
	20	}
	21
	22	1;
	23
	24	__END__
	25
b370a9eb RGS	26	=head1 NAME
	27
	28	DBM_Filter::int32 - filter for DBM_Filter
0e9b1cbd PM	29
	30	=head1 SYNOPSIS
	31
555bd962	32	use SDBM_File; # or DB_File, GDBM_File, NDBM_File, or ODBM_File
0e9b1cbd PM	33	use DBM_Filter ;
	34
	35	$db = tie %hash, ...
	36	$db->Filter_Push('int32');
b370a9eb	37
0e9b1cbd PM	38	=head1 DESCRIPTION
	39
	40	This DBM filter is used when interoperating with a C/C++ application
	41	that uses a C int as either the key and/or value in the DBM file.
	42
	43	=head1 SEE ALSO
	44
	45	L<DBM_Filter>, L<perldbmfilter>
	46
	47	=head1 AUTHOR
	48
	49	Paul Marquess pmqs@cpan.org
	50