File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	4	0.0
total	33	37	89.1

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

use strict;
use warnings;

use App::RecordStream::Aggregator::InjectInto;

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

sub new
{
  my $class = shift;
  my $initial = shift;
  my $combine = shift;
  my $squish = shift;

  my $this =
  {
    'initial' => $initial,
    'combine' => $combine,
    'squish' => $squish,
  };

  bless $this, $class;

  return $this;
}

sub initial
{
  my $this = shift;

  return $this->{'initial'}->();
}

sub combine
{
  my $this = shift;

  return $this->{'combine'}->(@_);
}

sub squish
{
  my $this = shift;

  return $this->{'squish'}->(@_);
}

1;