File Coverage

blib/lib/Repl/Spec/Type/ScalarType.pm

Criterion	Covered	Total	%
statement	13	18	72.2
branch	0	2	0.0
condition	1	3	33.3
subroutine	4	6	66.6
pod	0	3	0.0
total	18	32	56.2

package Repl::Spec::Type::ScalarType;

use strict;
use warnings;
use Carp;

# No parameters.
sub new
{
    my $invocant = shift;
    my $class = ref($invocant) || $invocant;
    my $self = {};
    return bless $self, $class;
}

sub guard
{
    my $self = shift;
    my $arg = shift;

    return $arg if !ref($arg);
    croak sprintf("Expected type scalar but received '%s'.", $arg);
}

sub name
{
    return 'scalar';
}

1;