File Coverage

blib/lib/CBOR/Free/Decoder/Base.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	3	3	100.0
pod	0	1	0.0
total	26	27	96.3

package CBOR::Free::Decoder::Base;

use strict;
use warnings;

sub set_tag_handlers {
    my ($self, @tag_kv) = @_;

    die "Uneven tag handlers list given!" if @tag_kv % 2;

    my @tag_kv_copy = @tag_kv;

    while ( my ($tag, $cr) = splice @tag_kv ) {
        die "Invalid tag: $tag" if $tag !~ m<\A[0-9]+\z>;
        die "Invalid tag $tag handler: $cr" if defined($cr) && !UNIVERSAL::isa($cr, 'CODE');
    }

    $self->_set_tag_handlers_backend(@tag_kv_copy);

    return $self;
}

1;