File Coverage

blib/lib/JSONY/Receiver.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	6	10	60.0
condition			n/a
subroutine	6	9	66.6
pod	0	7	0.0
total	24	43	55.8

###############################################################################
# The receiver class can reshape the data at any given rule match.
###############################################################################
package JSONY::Receiver;
use base 'Pegex::Tree';
use boolean;

sub got_top_seq_entry { $_[1][0][0] }
sub got_top_map { $_[0]->got_map([$_[1]]) }
sub got_seq { $_[1]->[0] }
sub got_map { +{ map {($_->[0], $_->[1])} @{$_[1]->[0]} } }
sub got_string {"$_[1]"}
sub got_bare {
    (undef, $_) = @_;
    /^true$/ ? true :
    /^false$/ ? false :
    /^null$/ ? undef :
    /^(
        -?
        (?: 0 | [1-9] [0-9]* )
        (?: \. [0-9]* )?
        (?: [eE] [\-\+]? [0-9]+ )?
    )$/x ? ($_ + 0) :
    "$_"
}
sub got_list {
    (undef, $_) = @_;
    @$_ == 1 ? $_->[0] : $_;
}

1;