File Coverage

File:load-env.pl
Coverage:89.5%

linestmtbrancondsubtimecode
1#!/usr/bin/env perl
2
1
1
1
1051
1
use 5.022;
3
1
1
1
1
170
1
432
use CheckSpelling::LoadEnv;
4
5
1
39182
my $load_config_from_key = 'load-config-from';
6
1
2
my $parsed_inputs = CheckSpelling::LoadEnv::parse_inputs($load_config_from_key);
7
8
1
1
my $event_name = $ENV{GITHUB_EVENT_NAME};
9
10
1
50
2
if ($event_name eq 'pull_request_target') {
11
0
0
    CheckSpelling::LoadEnv::load_untrusted_config($parsed_inputs, $event_name);
12} else {
13
1
2
    CheckSpelling::LoadEnv::load_trusted_config($parsed_inputs);
14}
15
16
1
1
1
11
my %inputs = %{$parsed_inputs->{'inputs'}};
17
1
8
for my $var (sort keys %inputs) {
18
33
26
    CheckSpelling::LoadEnv::print_var_val($var, $inputs{$var});
19}