File Coverage

blib/lib/TOML/Parser/Tokenizer/Strict.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	28	29	96.5

package TOML::Parser::Tokenizer::Strict;
use 5.010000;
use strict;
use warnings;

use parent qw/TOML::Parser::Tokenizer/;
BEGIN { import TOML::Parser::Tokenizer qw/:constant/ }

sub grammar_regexp {
    my $grammar_regexp = {%{ shift->SUPER::grammar_regexp() }};
    $grammar_regexp->{table}                 = {%{ $grammar_regexp->{table} }};
    $grammar_regexp->{array_of_table}        = {%{ $grammar_regexp->{array_of_table} }};
    $grammar_regexp->{table}->{key}          = qr{(?:"(.*?)(?
    $grammar_regexp->{array_of_table}->{key} = qr{(?:"(.*?)(?
    $grammar_regexp->{key}                   = qr{(?:"(.*?)(?
    return $grammar_regexp;
}

1;
__END__