File Coverage

blib/lib/Sereal/Path.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	0	3	0.0
total	46	49	93.8

package Sereal::Path;
use 5.008;
use strict;
use warnings;
use Carp qw/croak/;
use XSLoader;
use Sereal::Path::Iterator;

our $VERSION = '4.003';
our $XS_VERSION = $VERSION; $VERSION= eval $VERSION;

XSLoader::load(__PACKAGE__, $XS_VERSION);

sub _normalize {
    my ($self, $x) = @_;
    #$x =~ s/[\['](\??\(.*?\))[\]']/_callback_01($self,$1)/eg;
    $x =~ s/'?\.'?|\['?/;/g;
    $x =~ s/;;;|;;/;..;/g;
    $x =~ s/;\$|'?\]|'$//g;
    #$x =~ s/#([0-9]+)/_callback_02($self,$1)/eg;
    #$self->{'result'} = [];   # result array was temporarily used as a buffer
    return $x;
}

sub traverse {
    my ($self, $query) = @_;
    my $norm = $self->_normalize($query);
    $norm =~ s/^\$;//;
    my @expr = split(/;/, $norm);
    $self->_traverse(\@expr, '$');
    return $self->results;
}

sub value {
    my ($self, $query) = @_;
    my $values = $self->traverse($query);
    return $values->[0];
}

sub values {
    my ($self, $query) = @_;
    my $values = $self->traverse($query);
    return wantarray ? @$values : scalar @$values;
}

1;

__END__