blib/lib/AUBBC.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 11 | 100 | 11.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
101 | 1 | 0 | 0 | defined $tag and $do_f[10] |
110 | 0 | 0 | 1 | $MEMOIZE and not $do_f[7] |
284 | 0 | 0 | 0 | $_ and $_ =~ s/\A(\d+)\|(?s)(.+?)/$2/ |
0 | 0 | 0 | $_ and not $_ =~ /\A\s+|\d+\|\r?\n?\z/ | |
420 | 0 | 0 | 0 | defined $name && exists &{$name;} && (ref $name eq 'CODE' || ref $name eq '') |
437 | 0 | 0 | 0 | $NewTag{'type'} and $NewTag{'name'} =~ /\A[\w\-]+\z/ |
0 | 0 | 0 | $NewTag{'type'} and $NewTag{'name'} =~ /\A[\w\-]+\z/ and $NewTag{'pattern'} =~ /\A[lns_:\-,]+|all\z/ | |
455 | 0 | 0 | 0 | $DEBUG_AUBBC and $Build_AUBBC{$NewTag{'name'}} |
466 | 0 | 0 | 0 | exists $Build_AUBBC{$name} and not $type |
467 | 0 | 0 | 0 | $type and not $name |
499 | 0 | 1 | 0 | not $AUBBC{'no_bypass'} and $msg =~ /\A\#no/ |
507 | 0 | 0 | 0 | $DEBUG_AUBBC and not $do_f[4] |
512 | 0 | 0 | 1 | $do_f[0] and $AUBBC{'aubbc'} |
513 | 1 | 0 | 0 | $do_f[5] and $do_f[1] |
515 | 0 | 0 | 1 | $do_f[2] and $AUBBC{'utf'} |
516 | 1 | 0 | 0 | $do_f[6] and $do_f[3] |
0 | 0 | 0 | $do_f[6] and $do_f[3] and $AUBBC{'smileys'} | |
553 | 0 | 1 | 0 | !$option && $AUBBC{'line_break'} eq '2' |
0 | 0 | 1 | not $option and $AUBBC{'line_break'} eq '1' | |
591 | 0 | 0 | 0 | defined $error && $error |
line | l | !l | condition |
---|---|---|---|
327 | 0 | 0 | int rand 64 || 0 |
412 | 0 | 0 | &$fun($key, $term) || '' |
428 | 0 | 0 | $NewTag{'function'} || 'undefined!' |
447 | 0 | 0 | $is_pat{$_} || '' |
451 | 0 | 0 | $NewTag{'level'} ||= 0 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
113 | 0 | 0 | 1 | $@ or not defined $Memoize::VERSION |
134 | 1 | 0 | 0 | $AUBBC{'html_type'} eq 'xhtml' || $AUBBC{'html_type'} eq ' /' |
298 | 0 | 0 | 0 | not $tmp =~ m[\A\w+://|/] or $tmp =~ /\?|\#|\.\bjs\b\z/i |
322 | 0 | 0 | 0 | $AUBBC{'protect_email'} eq 3 or $AUBBC{'protect_email'} eq 4 |
325 | 0 | 0 | 0 | $AUBBC{'protect_email'} eq 1 or $AUBBC{'protect_email'} eq 2 |
337 | 0 | 0 | 0 | $AUBBC{'protect_email'} eq 3 or $AUBBC{'protect_email'} eq 4 |
339 | 0 | 0 | 0 | $AUBBC{'protect_email'} eq '2' or $AUBBC{'protect_email'} eq '3' |
0 | 0 | 0 | $AUBBC{'protect_email'} eq '2' or $AUBBC{'protect_email'} eq '3' or $AUBBC{'protect_email'} eq '4' | |
436 | 0 | 0 | 0 | $NewTag{'type'} eq '3' or $NewTag{'type'} eq '4' |
452 | 0 | 0 | 0 | $NewTag{'error'} ||= $BAD_MESSAGE |