File Coverage

blib/lib/TOML/Dumper/Context/Array/Inline.pm
Criterion Covered Total %
statement 16 17 94.1
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 2 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package TOML::Dumper::Context::Array::Inline;
2 2     2   33 use strict;
  2         4  
  2         58  
3 2     2   9 use warnings;
  2         3  
  2         66  
4              
5 2     2   9 use parent -norequire => qw/TOML::Dumper::Context::Array/;
  2         2  
  2         13  
6              
7 0     0 0 0 sub priority { 2 }
8              
9             sub as_string {
10 13     13 0 11 my $self = shift;
11 13         7 my @body;
12 13         12 for my $object (@{ $self->objects }) {
  13         20  
13 24         58 push @body => $object->as_string;
14             }
15 13         16 my $body = join ', ', @body;
16 13         21 return "[$body]";
17             }
18              
19             1;