File Coverage

blib/lib/Repl/Spec/Args/FixedArg.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	3	4	75.0
condition	6	14	42.8
subroutine	5	6	83.3
pod	0	3	0.0
total	41	56	73.2

package Repl::Spec::Args::FixedArg;

use strict;
use warnings;
use Carp;

# Parameters:
# - A typespec.
sub new
{
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;
    my $typespec = shift || die "TypeSpec expected.";

    my $self= {};
    $self->{TYPESPEC} = $typespec;
    $self->{SPECNAME} = sprintf("fixed: %s", $typespec->name());
    return bless $self, $class;
}

sub specname()
{
    my $self = shift;
    return $self->{SPECNAME};
}

# Parameters:
# - An argument list (ref to array).
# - a position.
# - A context!
sub guard
{
    my $self = shift;
    my $args = shift || die "Argument list expected.";
    my $pos = shift || die "Position expected.";
    my $ctx = shift || die "Context expected";

    croak sprintf("The required argument at position %d, type %s missing.", $pos, $self->{SPECNAME}) if($pos < 0 || $pos >= scalar(@$args));
    my $typespec = $self->{TYPESPEC};
    my $result;
    eval {$result = $typespec->guard($args->[$pos], $ctx)};
    croak sprintf("The required argument at position %d: %s", $pos, $@) if $@;
    return $result;
}

1;