File Coverage

blib/lib/TOML/Dumper/Context/Table/Inline.pm
Criterion Covered Total %
statement 15 17 88.2
branch 1 2 50.0
condition n/a
subroutine 5 6 83.3
pod 0 2 0.0
total 21 27 77.7


line stmt bran cond sub pod time code
1             package TOML::Dumper::Context::Table::Inline;
2 2     2   8 use strict;
  2         3  
  2         51  
3 2     2   7 use warnings;
  2         2  
  2         59  
4              
5 2     2   912 use parent -norequire => qw/TOML::Dumper::Context::Table/;
  2         531  
  2         13  
6              
7 2     2   84 use TOML::Dumper::Name;
  2         1  
  2         187  
8              
9 0     0 0 0 sub priority { 2 }
10              
11             sub as_string {
12 1     1 0 2 my $self = shift;
13 1         2 my $body = join ', ', map { $_->as_string() } $self->objects;
  0         0  
14 1 50       4 return $body ? "{ $body }" : '{}';
15             }
16              
17             1;