File Coverage

blib/lib/TOML/Dumper.pm
Criterion Covered Total %
statement 21 21 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 28 30 93.3


line stmt bran cond sub pod time code
1             package TOML::Dumper;
2 2     2   22692 use 5.008001;
  2         5  
3 2     2   9 use strict;
  2         4  
  2         52  
4 2     2   13 use warnings;
  2         3  
  2         116  
5              
6             our $VERSION = "0.01";
7              
8 2     2   1041 use Class::Accessor::Lite ro => [qw/boolean_classes/], new => 1;
  2         2162  
  2         13  
9              
10 2     2   949 use TOML::Dumper::Context;
  2         6  
  2         272  
11              
12             sub dump :method {
13 1     1 0 67 my ($self, $object) = @_;
14             local @TOML::Dumper::Context::Value::BOOLEAN_CLASSES = (
15             @TOML::Dumper::Context::Value::BOOLEAN_CLASSES,
16 1 50       2 @{ $self->boolean_classes || [] },
  1         5  
17             );
18 1         21 my $body = TOML::Dumper::Context->new($object)->as_string;
19 1         35 $body =~ s/\A\n+//msg;
20 1         8 $body =~ s/\n{3,}/\n\n/msg;
21 1         4 return $body;
22             }
23              
24             1;
25             __END__