File Coverage

blib/lib/Geoffrey/Action/Function.pm

Criterion	Covered	Total	%
statement	27	39	69.2
branch	5	10	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	41	58	70.6

package Geoffrey::Action::Function;

use utf8;
use 5.016;
use strict;
use warnings;

$Geoffrey::Action::Function::VERSION = '0.000204';

use parent 'Geoffrey::Role::Action';

sub add {
    my ( $self, $hr_params ) = @_;
    my $function = $self->converter->function;
    if ( !$function ) {
        require Geoffrey::Exception::NotSupportedException;
        Geoffrey::Exception::NotSupportedException::throw_converter_type();
    }
    if ( !$function->add ) {
        require Geoffrey::Exception::NotSupportedException;
        Geoffrey::Exception::NotSupportedException::throw_action();
    }
    require Ref::Util;
    if ( !Ref::Util::is_hashref($hr_params) ) {
        require Geoffrey::Exception::General;
        Geoffrey::Exception::General::throw_wrong_ref( __PACKAGE__ . '::add', 'hash' );
    }
    my $args = join q/,/, @{ $hr_params->{args} };
    require Geoffrey::Utils;
    return $self->do(
        Geoffrey::Utils::replace_spare(
            $function->add,
            [
                $hr_params->{name},             $args,
                $hr_params->{result_data_type}, $hr_params->{prosrc},
                $hr_params->{language},         $hr_params->{cost},
            ]
        )
    );
}

sub list {
    my ( $self, $schema ) = @_;
    my $function = $self->converter->function;
    if ( !$function ) {
        require Geoffrey::Exception::NotSupportedException;
        Geoffrey::Exception::NotSupportedException::throw_converter_type();
    }
    if ( !$function->list ) {
        require Geoffrey::Exception::NotSupportedException;
        Geoffrey::Exception::NotSupportedException::throw_action();
    }
    return $function->information( $self->do_arrayref( $function->list($schema) ) );
}

1;

__END__