File Coverage

blib/lib/Perl/Lexer/Token.pm

Criterion	Covered	Total	%
statement	20	30	66.6
branch	1	4	25.0
condition	0	2	0.0
subroutine	8	10	80.0
pod	6	6	100.0
total	35	52	67.3

package Perl::Lexer::Token;
use strict;
use warnings;
use utf8;
use 5.010000;

sub inspect {
    my $self = shift;
    my $ret = '
    $ret .= $self->name . ' ' . lc($self->type_str);
    if (UNIVERSAL::isa($self->yylval, 'B::SVOP')) {
        $ret .= ' ' . $self->yylval_svop;
    } else {
        $ret .= ' ' . ($self->yylval || '-');
    }
    $ret .= '>';
    return $ret;
}

sub name {
    my $self = shift;
    _name($self->[0]);
}

sub type {
    my $self = shift;
    _type($self->[0]);
}

sub type_str {
    my $type = shift->type;
    +{
        Perl::Lexer::TOKENTYPE_NONE()  => 'NONE',
        Perl::Lexer::TOKENTYPE_IVAL()  => 'IVAL',
        Perl::Lexer::TOKENTYPE_OPNUM() => 'OPNUM',
        Perl::Lexer::TOKENTYPE_PVAL()  => 'PVAL',
        Perl::Lexer::TOKENTYPE_OPVAL() => 'OPVAL',
    }->{$type};
}

sub yylval {
    my $self = shift;
    return $self->[1];
}

sub yylval_svop {
    my $self = shift;
    Carp::croak("It's not SVOP") unless UNIVERSAL::isa($self->[1], 'B::SVOP');
    return _yylval_svop($self->[1]);
}


1;
__END__