File Coverage

blib/lib/DDC/Format/Raw.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition	0	3	0.0
subroutine	3	6	50.0
pod	3	3	100.0
total	15	28	53.5

##-*- Mode: CPerl -*-

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

package DDC::Format::Raw;
use IO::File;
use Carp;
use strict;

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

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

## $fmt = $CLASS_OR_OBJ->new(%args)
##  + %args:
##    (
##     hitSeparator => $sep,    ##-- raw hit separator (default="\n\n")
##    )
sub new {
  my $that = shift;
  my $fmt = bless {
		   hitSeparator => "\n\n",
		   @_
		  }, ref($that)||$that;
  return $fmt;
}

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

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

## $hitStr = $fmt->hitString($hit)
##  + increments $fmt->{start}
sub hitString {
  return $_[1]{$_[0]{raw}};
}

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

## $str = $fmt->toString(\@hits)
sub toString {
  return join('',map {$_->{raw}.$_[0]{hitSeparator}} @{$_[1]->{hits_}});
}

1; ##-- be happy

__END__