File Coverage

blib/lib/Data/Dumper/Hash.pm
Criterion Covered Total %
statement 12 20 60.0
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 28 60.7


line stmt bran cond sub pod time code
1             package Data::Dumper::Hash;
2 1     1   26483 use strict;
  1         3  
  1         49  
3 1     1   13 use warnings;
  1         1  
  1         49  
4             require Exporter;
5 1     1   7 use vars qw/@ISA @EXPORT @EXPORT_OK/;
  1         10  
  1         127  
6             our $VERSION = '1.0';
7             @ISA = qw/Exporter/;
8             @EXPORT = qw/Dump/;
9             @EXPORT_OK = qw/Dump/;
10              
11              
12 1     1   25368 use Data::Dumper;
  1         48126  
  1         161  
13              
14             sub Dump {
15 0     0 1   my @params = @_;
16 0           my @vals = ();
17 0           my @names = ();
18              
19 0           for my $i (0 .. $#params) {
20 0 0         if (mod($i/2)) {
21 0           push(@vals, $params[$i]);
22             }
23             else {
24 0           push(@names, $params[$i]);
25             }
26             }
27 0           return Data::Dumper->Dump(\@vals, \@names);
28             }
29             1;
30             __END__