File Coverage

blib/lib/JSV/Keyword.pm

Criterion	Covered	Total	%
statement	16	19	84.2
branch			n/a
condition	2	3	66.6
subroutine	6	9	66.6
pod	0	5	0.0
total	24	36	66.6

package JSV::Keyword;

use strict;
use warnings;

use Carp;
use Exporter qw(import);

our @EXPORT_OK = qw(
    INSTANCE_TYPE_NUMERIC
    INSTANCE_TYPE_STRING
    INSTANCE_TYPE_ARRAY
    INSTANCE_TYPE_OBJECT
    INSTANCE_TYPE_ANY
);

our %EXPORT_TAGS = (
    constants => [qw(
        INSTANCE_TYPE_NUMERIC
        INSTANCE_TYPE_STRING
        INSTANCE_TYPE_ARRAY
        INSTANCE_TYPE_OBJECT
        INSTANCE_TYPE_ANY
    )]
);

sub INSTANCE_TYPE_NUMERIC () { 1; }
sub INSTANCE_TYPE_STRING () { 2; }
sub INSTANCE_TYPE_ARRAY () { 3; }
sub INSTANCE_TYPE_OBJECT () { 4; }
sub INSTANCE_TYPE_ANY () { 5; }

sub instance_type {
    croak "instance_type method is abstract method";
}

sub keyword {
    croak "keyword method is abstract method";
}

sub additional_keywords { return []; }

sub keyword_priority {
    croak "keyword_priority method is abstract method";
}

sub keyword_value {
    my ($class, $schema, $keyword) = @_;
    $keyword ||= $class->keyword;
    return $schema->{$keyword};
}

1;