File Coverage

File:generate-apply.pl
Coverage:100.0%

linestmtbrancondsubtimecode
1#!/usr/bin/env perl
2
1
1
1
1
1433
6792
485
use JSON::PP;
3
1
38759
my @expect_files = split /\n/, $ENV{expect_files};
4
1
2
my @excludes_files = split /\n/, $ENV{excludes_files};
5
1
1
my $new_expect_file = $ENV{new_expect_file};
6
1
1
my $excludes_file = $ENV{excludes_file};
7
1
0
my $spelling_config = $ENV{spelling_config};
8
1
2
my $job = $ENV{THIS_GITHUB_JOB_ID};
9
1
1
$config{"excludes_file"} = $excludes_file;
10
1
1
$config{"new_expect_file"} = $new_expect_file;
11
1
1
$config{"spelling_config"} = $spelling_config;
12
1
1
$config{"expect_files"} = \@expect_files;
13
1
0
$config{"excludes_files"} = \@excludes_files;
14
1
2
$config{"job"} = $job;
15
1
0
$config{"only_check_changed_files"} = $ENV{INPUT_ONLY_CHECK_CHANGED_FILES};
16
1
2
my $json_canonical = JSON::PP->new->canonical([1]);
17
1
18
print $json_canonical->utf8->encode(\%config);