File Coverage

blib/lib/TOML/Dumper/Context/Value/Inline.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	27	29	93.1

package TOML::Dumper::Context::Value::Inline;
use strict;
use warnings;

use parent -norequire => 'TOML::Dumper::Context::Value';

use TOML::Dumper::String;

sub as_string {
    my $self = shift;
    my $type = $self->{type};
    my $atom = $self->{atom};
    my $body = $type eq 'string' ? TOML::Dumper::String::quote($atom)
             : $type eq 'number' ? "$atom"
             : $type eq 'bool'   ? $atom
             : die "Unknown type: $type";
    return $body;
}

1;