File Coverage

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

Criterion	Covered	Total	%
statement	22	24	91.6
branch	4	4	100.0
condition			n/a
subroutine	6	8	75.0
pod	0	3	0.0
total	32	39	82.0

package App::RecordStream::Aggregator::Maximum;

our $VERSION = "4.0.25";

use strict;
use warnings;

use App::RecordStream::Aggregator::InjectInto::Field;
use App::RecordStream::DomainLanguage::Registry;

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

#sub new -- passed through

#sub new_from_valuation -- passed through

sub combine_field
{
  my $this   = shift;
  my $cookie = shift;
  my $value  = shift;

  return $value unless ( defined $cookie );

  if ( $cookie < $value )
  {
    return $value;
  }

  return $cookie;
}

sub short_usage
{
  return "maximum value for a field";
}

sub long_usage
{
  return <
Usage: max,
   Maximum value of specified field.
EOF
}

App::RecordStream::Aggregator->register_implementation('maximum', __PACKAGE__);
App::RecordStream::Aggregator->register_implementation('max', __PACKAGE__);

App::RecordStream::DomainLanguage::Registry::register_vfn(__PACKAGE__, 'new_from_valuation', 'maximum', 'VALUATION');
App::RecordStream::DomainLanguage::Registry::register_vfn(__PACKAGE__, 'new_from_valuation', 'max', 'VALUATION');

1;