File Coverage

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

Criterion	Covered	Total	%
statement	21	23	91.3
branch	2	2	100.0
condition			n/a
subroutine	7	9	77.7
pod	0	4	0.0
total	30	38	78.9

package App::RecordStream::Aggregator::FirstRecord;

our $VERSION = "4.0.24";

use strict;
use warnings;

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

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

sub combine
{
  my $this   = shift;
  my $cookie = shift;
  my $record  = shift;

  return $record unless ( defined $cookie );

  return $cookie;
}

sub short_usage
{
  return "first record";
}

sub long_usage
{
  return <
Usage: first
   Returns the first record.
EOF
}

sub argct
{
  return 0;
}

App::RecordStream::Aggregator->register_implementation('firstrecord', __PACKAGE__);
App::RecordStream::Aggregator->register_implementation('firstrec', __PACKAGE__);

App::RecordStream::DomainLanguage::Registry::register_ctor(__PACKAGE__, 'firstrecord');
App::RecordStream::DomainLanguage::Registry::register_ctor(__PACKAGE__, 'firstrec');

1;