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   65375 use 5.008005;
  3         12  
  3         122  
3 3     3   18 use strict;
  3         7  
  3         107  
4 3     3   24 use warnings;
  3         6  
  3         92  
5 3     3   2189 use Data::Dumper ();
  3         19139  
  3         71  
6 3     3   2768 use Data::Recursive::Encode;
  3         42192  
  3         107  
7 3     3   2445 use parent qw(Exporter);
  3         991  
  3         17  
8             our @EXPORT = qw(Dumper);
9              
10             our $VERSION = "0.05";
11             our $Encoding;
12              
13             sub Dumper {
14 7     7 0 980 my $stuff = shift;
15 7         14 local $Data::Dumper::Indent = 0;
16 7         11 local $Data::Dumper::Terse = 1;
17 7         11 local $Data::Dumper::Sortkeys = 1;
18 7         10 local $Data::Dumper::Quotekeys = 0;
19 7         11 local $Data::Dumper::Deparse = 1;
20              
21 7 100       19 if ($Encoding) {
22 1         18 $stuff = Data::Recursive::Encode->encode_utf8($stuff);
23             }
24              
25 7         142 my $str = Data::Dumper::Dumper($stuff);
26 7         2850 $str =~ s/[\n\r]//g;
27 7         42 return $str;
28             }
29              
30             1;
31             __END__