File Coverage

blib/lib/DDC/Format/Dumper.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	2	0.0
condition	0	3	0.0
subroutine	4	8	50.0
pod	4	4	100.0
total	20	40	50.0

##-*- Mode: CPerl -*-

## File: DDC::Format::Dumper.pm
## Author: Bryan Jurish
## Description:
##  + DDC Query utilities: output formatting: Data::Dumper
##======================================================================

package DDC::Format::Dumper;
use Data::Dumper;
use IO::File;
use Carp;
use strict;

##======================================================================
## Globals
our @ISA = qw(DDC::Format);

##======================================================================
## Constructors, etc.

## $fmt = $CLASS_OR_OBJ->new(%args)
##  + %args:
##    (
##     indent=>$level,             ##-- Data::Dumper level (default=1)
##    )
sub new {
  my $that = shift;
  my $fmt = bless {
		   indent=>1,
		   dumper=>undef,
		   @_
		  }, ref($that)||$that;
  if (!defined($fmt->{dumper})) {
    $fmt->{dumper} = Data::Dumper->new([])->Purity(1)->Terse(0)->Deepcopy(1);
  }
  return $fmt;
}

## $fmt = $fmt->reset()
##  + reset counters, etc.
sub reset {
  $_[0]{dumper}->Reset->Indent($_[0]{indent});
  return $_[0]->SUPER::reset();
}

##======================================================================
## Helper functions

## $hitStr = $fmt->hitString($hit)
##  + increments $fmt->{start}
sub hitString {
  my ($fmt,$hit) = @_;
  return $fmt->{dumper}->Reset->Indent($fmt->{indent})->Names(['hit'])->Values([$hit])->Dump;
}

##======================================================================
## API

## $str = $fmt->toString(\@hits)
sub toString {
  my ($fmt,$hits) = @_;
  return $fmt->{dumper}->Reset->Indent($fmt->{indent})->Names(['hits'])->Values([$hits])->Dump;
}

1; ##-- be happy

__END__