File Coverage

blib/lib/Email/MIME/RFC2047/Parser.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	6	8	75.0
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	24	26	92.3

package Email::MIME::RFC2047::Parser;
$Email::MIME::RFC2047::Parser::VERSION = '0.96';
use strict;
use warnings;

# ABSTRACT: Base class for parsers

sub _parse_error {
    my ($class, $string_ref, $what) = @_;

    my $text;
    my $pos = pos($$string_ref);
    $pos = 0 if !defined($pos);

    if ($pos < length($$string_ref)) {
        my $char = substr($$string_ref, $pos, 1);
        $text = defined($what) ?
            "invalid $what at character '$char', pos $pos in string" :
            "unexpected character '$char' at pos $pos in string";
    }
    else {
        $text = defined($what) ?
            "incomplete or missing $what at end of string" :
            "unexpected end of string";
    }

    die("Parse error in MIME header: $text $$string_ref\n");
}

1;

__END__