File Coverage

blib/lib/JSONY/Receiver.pm

Criterion	Covered	Total	%
statement	13	18	72.2
branch	7	12	58.3
condition			n/a
subroutine	7	10	70.0
pod	1	8	12.5
total	28	48	58.3

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

sub final { ref $_[1] ? $_[1] : [$_[1]] }
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;