File Coverage

blib/lib/SBOM/CycloneDX/Enum/ImpactAnalysisState.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 27 28 96.4


line stmt bran cond sub pod time code
1             package SBOM::CycloneDX::Enum::ImpactAnalysisState;
2              
3 16     16   279 use 5.010001;
  16         62  
4 16     16   95 use strict;
  16         30  
  16         456  
5 16     16   71 use warnings;
  16         40  
  16         902  
6 16     16   123 use utf8;
  16         60  
  16         124  
7              
8 16     16   783 use Exporter 'import';
  16         42  
  16         3311  
9             our (@EXPORT_OK, %EXPORT_TAGS, %ENUM);
10              
11             BEGIN {
12              
13 16     16   208 %ENUM = (
14             RESOLVED => 'resolved',
15             RESOLVED_WITH_PEDIGREE => 'resolved_with_pedigree',
16             EXPLOITABLE => 'exploitable',
17             IN_TRIAGE => 'in_triage',
18             FALSE_POSITIVE => 'false_positive',
19             NOT_AFFECTED => 'not_affected',
20             );
21              
22 16         103 require constant;
23 16         1418 constant->import(\%ENUM);
24              
25 16         140 @EXPORT_OK = sort keys %ENUM;
26 16         2700 %EXPORT_TAGS = (all => \@EXPORT_OK);
27              
28             }
29              
30 2     2 0 21 sub values { sort values %ENUM }
31              
32             1;
33              
34             =encoding utf-8
35              
36             =head1 NAME
37              
38             SBOM::CycloneDX::Enum::ImpactAnalysisState - Impact Analysis State
39              
40             =head1 SYNOPSIS
41              
42             use SBOM::CycloneDX::Enum qw(IMPACT_ANALYSIS_STATE);
43             say IMPACT_ANALYSIS_STATE->RESOLVED_WITH_PEDIGREE;
44              
45             use SBOM::CycloneDX::Enum::TlpCImpactAnalysisStatelassification qw(:all);
46             say EXPLOITABLE;
47              
48              
49             =head1 DESCRIPTION
50              
51             L is ENUM package used by L.
52              
53             Declares the current state of an occurrence of a vulnerability, after
54             automated or manual analysis.
55              
56             =head1 CONSTANTS
57              
58             =over
59              
60             =item * C, The vulnerability has been remediated.
61              
62             =item * C, The vulnerability has been remediated
63             and evidence of the changes are provided in the affected components
64             pedigree containing verifiable commit history and/or diff(s).
65              
66             =item * C, The vulnerability may be directly or indirectly
67             exploitable.
68              
69             =item * C, The vulnerability is being investigated.
70              
71             =item * C, The vulnerability is not specific to the
72             component or service and was falsely identified or associated.
73              
74             =item * C, The component or service is not affected by the
75             vulnerability. Justification should be specified for all not_affected
76             cases.
77              
78             =back
79              
80             =head1 SUPPORT
81              
82             =head2 Bugs / Feature Requests
83              
84             Please report any bugs or feature requests through the issue tracker
85             at L.
86             You will be notified automatically of any progress on your issue.
87              
88             =head2 Source Code
89              
90             This is open source software. The code repository is available for
91             public review and contribution under the terms of the license.
92              
93             L
94              
95             git clone https://github.com/giterlizzi/perl-SBOM-CycloneDX.git
96              
97              
98             =head1 AUTHOR
99              
100             =over 4
101              
102             =item * Giuseppe Di Terlizzi
103              
104             =back
105              
106              
107             =head1 LICENSE AND COPYRIGHT
108              
109             This software is copyright (c) 2025-2026 by Giuseppe Di Terlizzi.
110              
111             This is free software; you can redistribute it and/or modify it under
112             the same terms as the Perl 5 programming language system itself.
113              
114             =cut