File Coverage

blib/lib/Data/Dumper/OneLine.pm
Criterion Covered Total %
statement 29 29 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 38 39 97.4


line stmt bran cond sub pod time code
1             package Data::Dumper::OneLine;
2 3     3   118031 use 5.008005;
  3         13  
  3         131  
3 3     3   19 use strict;
  3         5  
  3         114  
4 3     3   25 use warnings;
  3         5  
  3         98  
5 3     3   2427 use Data::Dumper ();
  3         18413  
  3         79  
6 3     3   2776 use Data::Recursive::Encode;
  3         50446  
  3         107  
7 3     3   2387 use parent qw(Exporter);
  3         890  
  3         18  
8             our @EXPORT = qw(Dumper);
9              
10             our $VERSION = "0.03";
11             our $Encoding;
12              
13             sub Dumper {
14 7     7 0 1553 my $stuff = shift;
15 7         15 local $Data::Dumper::Indent = 0;
16 7         10 local $Data::Dumper::Terse = 1;
17 7         12 local $Data::Dumper::Sortkeys = 1;
18 7         9 local $Data::Dumper::Quotekeys = 0;
19 7         9 local $Data::Dumper::Deparse = 1;
20              
21 7 100       19 if ($Encoding) {
22 1         12 $stuff = Data::Recursive::Encode->encode_utf8($stuff);
23             }
24              
25 7         110 my $str = Data::Dumper::Dumper($stuff);
26 7         2395 $str =~ s/[\n\r]//g;
27 7         38 return $str;
28             }
29              
30             1;
31             __END__