File Coverage

blib/lib/App/RecordStream/Clumper/CubeKeyPerfect.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	0	3	0.0
total	24	31	77.4

package App::RecordStream::Clumper::CubeKeyPerfect;

use strict;
use warnings;

use App::RecordStream::Clumper::KeyPerfect;
use App::RecordStream::DomainLanguage::Registry;

use base 'App::RecordStream::Clumper::KeyPerfect';

sub long_usage
{
  return <
Usage: cubekeyperfect,
   Clump records by the value for a key and additionally produce an "ALL" slice.
EOF
}

sub short_usage
{
  return "clump records by the value for a key, additionally cubing them";
}

sub get_values
{
  my $this = shift;
  my $value = shift;

  return ($value, "ALL");
}

App::RecordStream::Clumper->register_implementation('cubekeyperfect', __PACKAGE__);

App::RecordStream::DomainLanguage::Registry::register_vfn(__PACKAGE__, 'new_from_valuation', 'cubekeyperfect', 'VALUATION');
App::RecordStream::DomainLanguage::Registry::register_vfn(__PACKAGE__, 'new_from_valuation', 'cubekey', 'VALUATION');

1;