File Coverage

blib/lib/Storable/AMF/Mapper.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	5	8	62.5
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	27	34	79.4

#===============================================================================
#
#         FILE:  Mapper.pm
#
#         BUGS:  ---
#        NOTES:  ---
#       AUTHOR:  Grishayev Anatoliy (),
#      COMPANY:
#      VERSION:  1.0
#      CREATED:  01/24/2011 02:36:47 PM
#     REVISION:  ---
#===============================================================================
package Storable::AMF::Mapper;
use strict;
use Storable::AMF qw(parse_serializator_option);
use Carp qw(croak);

sub new{
	my $class = shift;
	if ( @_ % 2 ){
		croak( "Usage Storable::AMF::Mapper->new( to_amf => 0 | 1, option => ...)");
	}
	my %options = @_;
	my $option_int = parse_serializator_option( 'prefer_number');
	if ( my $option_str = delete $options{ option } ){
		$option_int = parse_serializator_option( $option_str );
	}
	if ( delete $options{ to_amf } ){
		$option_int |= 128	;
	}
	if (keys %options ){
		croak( "Unknown option: ". join (" ", keys %options ));
	}
	return $option_int;
}

1;
__END__