File Coverage

File:load-env.pl
Coverage:89.5%

linestmtbrancondsubtimecode
1#!/usr/bin/env perl
2
1
1
1
1182
1
use 5.022;
3
1
1
1
1
162
1
551
use CheckSpelling::LoadEnv;
4
5
1
40683
my $load_config_from_key = 'load-config-from';
6
1
4
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
12
my %inputs = %{$parsed_inputs->{'inputs'}};
17
1
10
for my $var (sort keys %inputs) {
18
33
27
    CheckSpelling::LoadEnv::print_var_val($var, $inputs{$var});
19}