File Coverage

blib/lib/PHP/Serialization/XS.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	8	8	100.0
condition	1	2	50.0
subroutine	8	8	100.0
pod	3	4	75.0
total	43	45	95.5

package PHP::Serialization::XS;

use strict;
use warnings;
use bytes;

use PHP::Serialization ();

require Exporter;

our @ISA = qw(PHP::Serialization Exporter);

our %EXPORT_TAGS = (all => [ qw(serialize unserialize) ]);
our @EXPORT_OK = @{ $EXPORT_TAGS{all} };

our $VERSION = '0.10';

require XSLoader;
XSLoader::load('PHP::Serialization::XS', $VERSION);

my $default = __PACKAGE__->new(prefer_array => 1);

sub new
{
    my $class = shift;
    # depend on PHP::Serialize using a blessed hash
    my %args = @_;
    my $self = $class->SUPER::new(%args);

    # precedence order was really undefined, but now we match legacy behaviour
    $self->{flags} =
        $args{prefer_hash}  ? 0 :
        $args{prefer_undef} ? 2 :
        $args{prefer_array} ? 1 :
        1; # default is prefer_array

    return $self;
}

sub unserialize
{
    my ($str, $class) = @_;
    return $default->decode($str, $class);
}

sub serialize
{
    goto \&PHP::Serialization::serialize;
}

sub decode
{
    my ($self, $str, $class) = @_;
    $self = $default unless ref $self;
    return _c_decode($str || "", $self->{flags}, $class);
}

# encode method is handled by super class

1;
__END__