From be8521746409725055d133bb5554b102b5e783f7 Mon Sep 17 00:00:00 2001 From: Jeff Ober Date: Thu, 9 Jan 2020 12:34:28 -0500 Subject: [PATCH] Fix bug in type-annotated output --- lib/TOML/Tiny/Parser.pm | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/lib/TOML/Tiny/Parser.pm b/lib/TOML/Tiny/Parser.pm index b19c2db..bb159cd 100644 --- a/lib/TOML/Tiny/Parser.pm +++ b/lib/TOML/Tiny/Parser.pm @@ -198,7 +198,23 @@ sub parse_value { my $token = shift // $self->next_token; if ($self->{annotated}) { - return {type => $token->type, value => ''.$token->value}; + for ($token->type) { + when (/inline_table/) { + return $self->parse_inline_table; + } + + when (/inline_array/) { + return $self->parse_inline_array; + } + + when (/float|integer|string|bool|datetime/) { + return { type => $token->type, value => '' . $token->value }; + } + + default{ + $self->parse_error($token, "value expected (bool, number, string, datetime, inline array, inline table), but found $_"); + } + } } else { for ($token->type) { -- 2.30.2