File Coverage

blib/lib/Dallycot/AST/Reciprocal.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch			n/a
condition			n/a
subroutine	5	9	55.5
pod	0	3	0.0
total	20	34	58.8

package Dallycot::AST::Reciprocal;
our $AUTHORITY = 'cpan:JSMITH';

# ABSTRACT: Calculates the reciprocal of a numeric value

use strict;
use warnings;

use utf8;
use parent 'Dallycot::AST';

use Readonly;

Readonly my $NUMERIC => ['Numeric'];

sub to_string {
  my ($self) = @_;

  return "1/(" . $self->[0]->to_string . ")";
}

sub to_rdf {
  my($self, $model) = @_;

  return $model -> apply(
    $model -> meta_uri('loc:reciprocal'),
    [ $self->[0] ],
    {}
  );
  # my $bnode = $model -> bnode;
  # $model -> add_type($bnode, 'loc:Reciprocal');
  # $model -> add_expression($self -> [0]);
  # return $bnode;
}

sub execute {
  my ( $self, $engine ) = @_;

  return $engine->execute( $self->[0], $NUMERIC )->then(
    sub {
      Dallycot::Value::Numeric->new( 1 / ( $_[0]->value ) );
    }
  );
}

1;