File Coverage

blib/lib/Pegex/TOML/Data.pm

Criterion	Covered	Total	%
statement	6	9	66.6
branch			n/a
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	13	61.5

package Pegex::TOML::Data;
use Pegex::Base;
extends 'Pegex::Tree';

use boolean;

sub got_value_line {
  my ($self, $got) = @_;
  my ($key, $val) = @$got;
  return {$key => $val};
}

# sub got_toml { $_[1][0] }
# sub got_object { +{map @$_, map @$_, @{(pop)}} }
# sub got_array { [map @$_, @{(pop)}] }
#
# my %escapes = (
#     '"' => '"',
#     '/' => "/",
#     "\\" => "\\",
#     b => "\b",
#     f => "\x12",
#     n => "\n",
#     r => "\r",
#     t => "\t",
# );
#
# sub got_string {
#     my $string = pop;
#     $string =~ s/\\(["\/\\bfnrt])/$escapes{$1}/ge;
#     # This handles TOML encoded Unicode surrogate pairs
#     $string =~ s/\\u([0-9a-f]{4})\\u([0-9a-f]{4})/pack "U*", hex("$1$2")/ge;
#     $string =~ s/\\u([0-9a-f]{4})/pack "U*", hex($1)/ge;
#     return $string;
# }
#
# sub got_number { $_[1] + 0 }
# sub got_true { &boolean::true }
# sub got_false { &boolean::false }
# sub got_null { undef }

1;