File Coverage

blib/lib/App/RecordStream/Deaggregator/Field.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	3	0.0
total	36	39	92.3

package App::RecordStream::Deaggregator::Field;

use strict;
use warnings;

use App::RecordStream::Deaggregator::Base;
use App::RecordStream::DomainLanguage::Valuation::KeySpec;

use base 'App::RecordStream::Deaggregator::Base';

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

  return new_from_valuation($class, App::RecordStream::DomainLanguage::Valuation::KeySpec->new($field));
}

sub new_from_valuation
{
  my $class = shift;
  my $valuation = shift;

  my $this =
  {
    'valuation' => $valuation,
  };
  bless $this, $class;

  return $this;
}

sub deaggregate
{
  my $this = shift;
  my $record = shift;

  my $valuation = $this->{'valuation'};

  my $value = $valuation->evaluate_record($record);

  return $this->deaggregate_field($value);
}

1;