File Coverage

blib/lib/App/RecordStream/DomainLanguage/Valuation/KeySpec.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	28	30	93.3

package App::RecordStream::DomainLanguage::Valuation::KeySpec;

use strict;
use warnings;

use App::RecordStream::DomainLanguage::Valuation;

use base ('App::RecordStream::DomainLanguage::Valuation');

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

  my $this =
  {
    'KEYSPEC' => $keyspec,
  };

  bless $this, $class;

  return $this;
}

sub evaluate_record
{
  my $this = shift;
  my $r = shift;

  my $keyspec = $this->{'KEYSPEC'};

  return ${$r->guess_key_from_spec($keyspec)};
}

1;