File Coverage

blib/lib/Data/CompactDump.pm

Criterion	Covered	Total	%
statement	18	23	78.2
branch	6	12	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	29	40	72.5

use 5.012; #package NAME VERSION
package Data::CompactDump 0.04;
# ABSTRACT: Perl extension for dumping xD structures in compact form
$Data::CompactDump::VERSION = '0.04';

use strict;
use base 'Exporter';

our @EXPORT = qw(compact);


sub compact {
        unless (defined (my $q = shift)) {
                return 'undef';
	} elsif (not ref $q) {
		if ($q =~ /^\d+$/) {
			return $q;
		} else {
			$q =~ s/\n/\\n/g;  $q =~ s/\r/\\r/g;  $q =~ s/'/\\'/g;
                	return "\'" . $q . "\'";
		}
        } elsif ((my $rr = ref $q) eq 'ARRAY') {
                return '[ ' . join(', ',map { compact($_); } @$q) . ' ]';
        } elsif ($rr eq 'SCALAR') {
                return '\\' . compact($$q);
        } elsif ($rr eq 'HASH') {
                return  '{ ' . join(', ',map { $_ . ' => ' . compact($$q{$_}); }
				keys %$q) . ' }';
        } else { return '\?'; }
}

1;

__END__