File Coverage

blib/lib/App/RecordStream/Aggregator/InjectInto.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	4	0.0
total	26	32	81.2

package App::RecordStream::Aggregator::InjectInto;

our $VERSION = "4.0.25";

use App::RecordStream::Aggregator;

use base qw(App::RecordStream::Aggregator::Aggregation);

use strict;
use warnings;

sub new
{
  my $class = shift;

  my $this = { };
  bless $this, $class;

  return $this;
}

sub initial
{
  return undef;
}

sub combine
{
  die "InjectInto subclass did not implement combine.\n";
}

sub squish
{
  my ($this, $cookie) = @_;

  return $cookie;
}

1;