File Coverage

File:lib/CheckSpelling/CheckPattern.pm
Coverage:92.6%

linestmtbrancondsubtimecode
1#! -*-perl-*-
2
3package CheckSpelling::CheckPattern;
4
5
2
2
2
2
107199
2
209
use CheckSpelling::Util;
6
7sub process_line {
8
3
3
601
    my ($line) = @_;
9
3
4
    chomp $line;
10
3
50
5
    return ($line, '') if $line =~ /^#/;
11
3
50
7
    return ($line, '') unless $line =~ /./;
12
3
3
100
1
22
    if (eval {qr/$line/}) {
13
2
4
        return ($line, '')
14    }
15
1
3
    $@ =~ s/(.*?)\n.*/$1/m;
16
1
0
    my $err = $@;
17
1
1
    chomp $err;
18
1
2
    $err =~ s{^(.*?) in regex; marked by <-- HERE in m/(.*) <-- HERE.*$}{$2};
19
1
1
    my $code = $1;
20
1
2
    my $start = $+[2] - $-[2];
21
1
1
    my $end = $start + 1;
22
1
1
    my $wrapped = CheckSpelling::Util::wrap_in_backticks($err);
23
1
4
    return ("^\$\n", "$start ... $end, Warning - $code: $wrapped. (bad-regex)\n");
24}
25
261;