File Coverage

blib/lib/Regexp/Parser/Diagnostics.pm

Criterion	Covered	Total	%
statement	91	91	100.0
branch			n/a
condition			n/a
subroutine	31	31	100.0
pod			n/a
total	122	122	100.0

package Regexp::Parser;

use strict;
use warnings;

my $ENUM;
BEGIN { $ENUM = 0 }

use constant RPe_ZQUANT => --$ENUM, 'Quantifier unexpected on zero-length expression';
use constant RPe_NOTIMP => --$ENUM, 'Sequence (?%.*s...) not implemented';
use constant RPe_NOTERM => --$ENUM, 'Sequence (?#... not terminated';
use constant RPe_LOGDEP => --$ENUM, '(?p{}) is deprecated -- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not terminated or not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Switch condition not recognized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too many branches';
use constant RPe_SWUNKN => --$ENUM, 'Unknown switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
use constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOTREC => --$ENUM, 'Sequence (?%.*s...) not recognized';
use constant RPe_LPAREN => --$ENUM, 'Unmatched (';
use constant RPe_RPAREN => --$ENUM, 'Unmatched )';
use constant RPe_BCURLY => --$ENUM, 'Can\'t do {n,m} with n > m';
use constant RPe_NULNUL => --$ENUM, '%s matches null string many times';
use constant RPe_NESTED => --$ENUM, 'Nested quantifiers';
use constant RPe_LBRACK => --$ENUM, 'Unmatched [';
use constant RPe_EQUANT => --$ENUM, 'Quantifier follows nothing';
use constant RPe_BRACES => --$ENUM, 'Missing braces on \%s{}';
use constant RPe_RBRACE => --$ENUM, 'Missing right brace on \%s{}';
use constant RPe_BGROUP => --$ENUM, 'Reference to nonexistent group';
use constant RPe_ESLASH => --$ENUM, 'Trailing \\';
use constant RPe_BADESC => --$ENUM, 'Unrecognized escape \\%s%s passed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] belongs inside character classes';
use constant RPe_EMPTYB => --$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE => --$ENUM, 'False [] range "%s-%s"';
use constant RPe_IRANGE => --$ENUM, 'Invalid [] range "%s-%s"';

1;