File Coverage

blib/lib/SBOM/CycloneDX/Enum/PatentLegalStatus.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::PatentLegalStatus;
2              
3 16     16   287 use 5.010001;
  16         60  
4 16     16   103 use strict;
  16         36  
  16         468  
5 16     16   93 use warnings;
  16         30  
  16         839  
6 16     16   101 use utf8;
  16         34  
  16         98  
7              
8 16     16   721 use Exporter 'import';
  16         29  
  16         3444  
9             our (@EXPORT_OK, %EXPORT_TAGS, %ENUM);
10              
11             BEGIN {
12              
13 16     16   237 %ENUM = (
14             PENDING => 'pending',
15             GRANTED => 'granted',
16             REVOKED => 'revoked',
17             EXPIRED => 'expired',
18             LAPSED => 'lapsed',
19             WITHDRAWN => 'withdrawn',
20             ABANDONED => 'abandoned',
21             SUSPENDED => 'suspended',
22             REINSTATED => 'reinstated',
23             OPPOSED => 'opposed',
24             TERMINATED => 'terminated',
25             INVALIDATED => 'invalidated',
26             IN_FORCE => 'in-force',
27             );
28              
29 16         93 require constant;
30 16         2544 constant->import(\%ENUM);
31              
32 16         201 @EXPORT_OK = sort keys %ENUM;
33 16         1928 %EXPORT_TAGS = (all => \@EXPORT_OK);
34              
35             }
36              
37 2     2 0 35 sub values { sort values %ENUM }
38              
39              
40             1;
41              
42             =encoding utf-8
43              
44             =head1 NAME
45              
46             SBOM::CycloneDX::Enum::PatentLegalStatus - Assertion Type
47              
48             =head1 SYNOPSIS
49              
50             use SBOM::CycloneDX::Enum qw(PATENT_LEGAL_STATUS);
51              
52             say PATENT_LEGAL_STATUS->GRANTED;
53              
54              
55             use SBOM::CycloneDX::Enum::PatentLegalStatus;
56              
57             say SBOM::CycloneDX::Enum::PatentLegalStatus->REVOKED;
58              
59              
60             use SBOM::CycloneDX::Enum::PatentLegalStatus qw(:all);
61              
62             say INVALIDATED;
63              
64              
65             =head1 DESCRIPTION
66              
67             L is ENUM package used by L.
68              
69             Indicates the current legal status of the patent or patent application,
70             based on the WIPO ST.27 standard. This status reflects administrative,
71             procedural, or legal events. Values include both active and inactive states
72             and are useful for determining enforceability, procedural history, and
73             maintenance status.
74              
75              
76             =head1 CONSTANTS
77              
78             =over
79              
80             =item * C, The patent application has been filed but not yet
81             examined or granted.
82              
83             =item * C, The patent application has been examined and a patent
84             has been issued.
85              
86             =item * C, The patent has been declared invalid through a legal or
87             administrative process.
88              
89             =item * C, The patent has reached the end of its enforceable term.
90              
91             =item * C, The patent is no longer in force due to non-payment of
92             maintenance fees or other requirements.
93              
94             =item * C, The patent application was voluntarily withdrawn by
95             the applicant.
96              
97             =item * C, The patent application was abandoned, often due to
98             lack of action or response.
99              
100             =item * C, Processing of the patent application has been
101             temporarily halted.
102              
103             =item * C, A previously abandoned or lapsed patent has been
104             reinstated.
105              
106             =item * C, The patent application or granted patent is under
107             formal opposition proceedings.
108              
109             =item * C, The patent or application has been officially
110             terminated.
111              
112             =item * C, The patent has been invalidated, either in part or
113             in full.
114              
115             =item * C, The granted patent is active and enforceable.
116              
117             =back
118              
119             =head1 SUPPORT
120              
121             =head2 Bugs / Feature Requests
122              
123             Please report any bugs or feature requests through the issue tracker
124             at L.
125             You will be notified automatically of any progress on your issue.
126              
127             =head2 Source Code
128              
129             This is open source software. The code repository is available for
130             public review and contribution under the terms of the license.
131              
132             L
133              
134             git clone https://github.com/giterlizzi/perl-SBOM-CycloneDX.git
135              
136              
137             =head1 AUTHOR
138              
139             =over 4
140              
141             =item * Giuseppe Di Terlizzi
142              
143             =back
144              
145              
146             =head1 LICENSE AND COPYRIGHT
147              
148             This software is copyright (c) 2025-2026 by Giuseppe Di Terlizzi.
149              
150             This is free software; you can redistribute it and/or modify it under
151             the same terms as the Perl 5 programming language system itself.
152              
153             =cut