File Coverage

File:check-pattern-file.pl
Coverage:100.0%

linestmtbrancondsubtimecode
1#!/usr/bin/env perl
2
3
2
2
2
2
2624
2
1011
use CheckSpelling::CheckPattern;
4
5
2
83449
my $file = $ENV{file};
6
2
2
2
2
2
26
520
13
4
open WARNINGS, ">>:encoding(UTF-8)", $ENV{early_warnings};
7
2
770
$extension = '.orig';
8
2
38
LINE: while (<>) {
9
3
100
6
  if ($ARGV ne $oldargv) {
10
2
2
    $backup = $ARGV . $extension;
11
2
76
    rename($ARGV, $backup);
12
2
73
    open(ARGVOUT, ">$ARGV");
13
2
4
    select(ARGVOUT);
14
2
5
    $oldargv = $ARGV;
15  }
16
17
3
4
  my ($line, $warning) = CheckSpelling::CheckPattern::process_line($_);
18
3
9
  print "$line\n";
19
3
100
14
  if ($warning) {
20
1
8
    print WARNINGS "$file:$.:$warning";
21  }
22}
23
2
2
select(STDOUT);
24
25
2
0
close(WARNINGS);