File Coverage

blib/lib/App/RecordStream/Aggregator/Internal/Constant.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch			n/a
condition			n/a
subroutine	4	8	50.0
pod	0	4	0.0
total	16	33	48.4

package App::RecordStream::Aggregator::Internal::Constant;

use strict;
use warnings;

use App::RecordStream::Aggregator::Aggregation;
use base 'App::RecordStream::Aggregator::Aggregation';

sub new
{
  my $class = shift;
  my $value = shift;

  my $this =
  {
    'VALUE' => $value,
  };

  bless $this, $class;

  return $this;
}

sub initial
{
  return undef;
}

sub combine
{
  return undef;
}

sub squish
{
  my $this = shift;

  return $this->{'VALUE'};
}

1;