File Coverage

blib/lib/SBOM/CycloneDX/Enum/LicenseType.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::LicenseType;
2              
3 16     16   338 use 5.010001;
  16         62  
4 16     16   126 use strict;
  16         29  
  16         587  
5 16     16   82 use warnings;
  16         31  
  16         956  
6 16     16   125 use utf8;
  16         51  
  16         134  
7              
8 16     16   767 use Exporter 'import';
  16         33  
  16         3647  
9             our (@EXPORT_OK, %EXPORT_TAGS, %ENUM);
10              
11             BEGIN {
12              
13 16     16   289 %ENUM = (
14             ACADEMIC => 'academic',
15             APPLIANCE => 'appliance',
16             CLIENT_ACCESS => 'client-access',
17             CONCURRENT_USER => 'concurrent-user',
18             CORE_POINTS => 'core-points',
19             CUSTOM_METRIC => 'custom-metric',
20             DEVICE => 'device',
21             EVALUATION => 'evaluation',
22             NAMED_USER => 'named-user',
23             NODE_LOCKED => 'node-locked',
24             OEM => 'oem',
25             PERPETUAL => 'perpetual',
26             PROCESSOR_POINTS => 'processor-points',
27             SUBSCRIPTION => 'subscription',
28             USER => 'user',
29             OTHER => 'other',
30             );
31              
32 16         107 require constant;
33 16         2548 constant->import(\%ENUM);
34              
35 16         289 @EXPORT_OK = sort keys %ENUM;
36 16         1816 %EXPORT_TAGS = (all => \@EXPORT_OK);
37              
38             }
39              
40 17     17 0 265 sub values { sort values %ENUM }
41              
42              
43             1;
44              
45             =encoding utf-8
46              
47             =head1 NAME
48              
49             SBOM::CycloneDX::Enum::LicenseType - License Type
50              
51             =head1 SYNOPSIS
52              
53             use SBOM::CycloneDX::Enum qw(LICENSE_TYPE);
54              
55             say LICENSE_TYPE->APPLIANCE;
56              
57              
58             use SBOM::CycloneDX::Enum::LicenseType;
59              
60             say SBOM::CycloneDX::Enum::LicenseType->CAL;
61              
62              
63             use SBOM::CycloneDX::Enum::LicenseType qw(:all);
64              
65             say PERPETUAL;
66              
67              
68             =head1 DESCRIPTION
69              
70             L is ENUM package used by L.
71              
72              
73             =head1 CONSTANTS
74              
75             =over
76              
77             =item * C, A license that grants use of software solely for the
78             purpose of education or research.
79              
80             =item * C, A license covering use of software embedded in a
81             specific piece of hardware.
82              
83             =item * C, A Client Access License (CAL) allows client
84             computers to access services provided by server software.
85              
86             =item * C, A Concurrent User license (aka floating
87             license) limits the number of licenses for a software application and
88             licenses are shared among a larger number of users.
89              
90             =item * C, A license where the core of a computer's processor
91             is assigned a specific number of points.
92              
93             =item * C, A license for which consumption is measured by
94             non-standard metrics.
95              
96             =item * C, A license that covers a defined number of installations
97             on computers and other types of devices.
98              
99             =item * C, A license that grants permission to install and use
100             software for trial purposes.
101              
102             =item * C, A license that grants access to the software to one
103             or more pre-defined users.
104              
105             =item * C, A license that grants access to the software on one
106             or more pre-defined computers or devices.
107              
108             =item * C, An Original Equipment Manufacturer license that is
109             delivered with hardware, cannot be transferred to other hardware, and is
110             valid for the life of the hardware.
111              
112             =item * C, A license where the software is sold on a one-time
113             basis and the licensee can use a copy of the software indefinitely.
114              
115             =item * C, A license where each installation consumes
116             points per processor.
117              
118             =item * C, A license where the licensee pays a fee to use the
119             software or service.
120              
121             =item * C, A license that grants access to the software or service by
122             a specified number of users.
123              
124             =item * C, Another license type.
125              
126             =back
127              
128             =head1 SUPPORT
129              
130             =head2 Bugs / Feature Requests
131              
132             Please report any bugs or feature requests through the issue tracker
133             at L.
134             You will be notified automatically of any progress on your issue.
135              
136             =head2 Source Code
137              
138             This is open source software. The code repository is available for
139             public review and contribution under the terms of the license.
140              
141             L
142              
143             git clone https://github.com/giterlizzi/perl-SBOM-CycloneDX.git
144              
145              
146             =head1 AUTHOR
147              
148             =over 4
149              
150             =item * Giuseppe Di Terlizzi
151              
152             =back
153              
154              
155             =head1 LICENSE AND COPYRIGHT
156              
157             This software is copyright (c) 2025-2026 by Giuseppe Di Terlizzi.
158              
159             This is free software; you can redistribute it and/or modify it under
160             the same terms as the Perl 5 programming language system itself.
161              
162             =cut