File Coverage

blib/lib/PHP/Serialization/XS.pm

Criterion	Covered	Total	%
statement	18	21	85.7
branch	2	2	100.0
condition	1	2	50.0
subroutine	7	8	87.5
pod	4	4	100.0
total	32	37	86.4

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.08';

our %DEFAULT_OPTS = (
    prefer_hash  => 0,
    prefer_array => 1,
    prefer_undef => 0,
);

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

# in XS
sub new;

sub unserialize
{
    my ($str, $class) = @_;
    return __PACKAGE__->new(%DEFAULT_OPTS)->decode($str, $class);
}

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

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

sub encode
{
    my ($self, @rest) = @_;
    my $parent = $self->_get_parent;
    return $parent->encode(@rest);
}

1;
__END__