File Coverage

blib/lib/SBOM/CycloneDX/Advisory.pm

Criterion	Covered	Total	%
statement	20	24	83.3
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod	1	1	100.0
total	28	35	80.0

line	stmt	bran	sub	pod	time	code
1						package SBOM::CycloneDX::Advisory;
2
3	1		1		1392	use 5.010001;
	1				6
4	1		1		7	use strict;
	1				2
	1				43
5	1		1		7	use warnings;
	1				2
	1				66
6	1		1		6	use utf8;
	1				2
	1				9
7
8	1		1		58	use Types::Standard qw(Str);
	1				7
	1				12
9
10	1		1		3467	use Moo;
	1				3
	1				38
11	1		1		504	use namespace::autoclean;
	1				2
	1				13
12
13						extends 'SBOM::CycloneDX::Base';
14
15						has title => (is => 'rw', isa => Str);
16						has url => (is => 'rw', isa => Str, required => 1);
17
18						sub TO_JSON {
19
20	0		0	1		my $self = shift;
21
22	0					my $json = {url => $self->url};
23
24	0	0				$json->{title} = $self->title if $self->title;
25
26	0					return $json;
27
28						}
29
30						1;
31
32						=encoding utf-8
33
34						=head1 NAME
35
36						SBOM::CycloneDX::Advisory - Advisory
37
38						=head1 SYNOPSIS
39
40						SBOM::CycloneDX::Advisory->new();
41
42
43						=head1 DESCRIPTION
44
45						L provide the title and location where advisory information
46						can be obtained. An advisory is a notification of a threat to a component,
47						service, or system.
48
49						=head2 METHODS
50
51						L inherits all methods from L
52						and implements the following new ones.
53
54						=over
55
56						=item SBOM::CycloneDX::Advisory->new( %PARAMS )
57
58						Properties:
59
60						=over
61
62						=item * C, A name of the advisory. </td> </tr> <tr> <td class="h" > <a name="63">63</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="64">64</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * C<url>, Location where the advisory can be obtained. </td> </tr> <tr> <td class="h" > <a name="65">65</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="66">66</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="67">67</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="68">68</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item $advisory->title </td> </tr> <tr> <td class="h" > <a name="69">69</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="70">70</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item $advisory->url </td> </tr> <tr> <td class="h" > <a name="71">71</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="72">72</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="73">73</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="74">74</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="75">75</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 SUPPORT </td> </tr> <tr> <td class="h" > <a name="76">76</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="77">77</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 Bugs / Feature Requests </td> </tr> <tr> <td class="h" > <a name="78">78</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="79">79</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Please report any bugs or feature requests through the issue tracker </td> </tr> <tr> <td class="h" > <a name="80">80</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> at L<https://github.com/giterlizzi/perl-SBOM-CycloneDX/issues>. </td> </tr> <tr> <td class="h" > <a name="81">81</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> You will be notified automatically of any progress on your issue. </td> </tr> <tr> <td class="h" > <a name="82">82</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="83">83</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 Source Code </td> </tr> <tr> <td class="h" > <a name="84">84</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="85">85</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> This is open source software. The code repository is available for </td> </tr> <tr> <td class="h" > <a name="86">86</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> public review and contribution under the terms of the license. </td> </tr> <tr> <td class="h" > <a name="87">87</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="88">88</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> L<https://github.com/giterlizzi/perl-SBOM-CycloneDX> </td> </tr> <tr> <td class="h" > <a name="89">89</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="90">90</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> git clone https://github.com/giterlizzi/perl-SBOM-CycloneDX.git </td> </tr> <tr> <td class="h" > <a name="91">91</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="92">92</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="93">93</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 AUTHOR </td> </tr> <tr> <td class="h" > <a name="94">94</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="95">95</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="96">96</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="97">97</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item * Giuseppe Di Terlizzi <gdt@cpan.org> </td> </tr> <tr> <td class="h" > <a name="98">98</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="99">99</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="100">100</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="101">101</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="102">102</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 LICENSE AND COPYRIGHT </td> </tr> <tr> <td class="h" > <a name="103">103</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="104">104</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> This software is copyright (c) 2025-2026 by Giuseppe Di Terlizzi. </td> </tr> <tr> <td class="h" > <a name="105">105</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="106">106</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> This is free software; you can redistribute it and/or modify it under </td> </tr> <tr> <td class="h" > <a name="107">107</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> the same terms as the Perl 5 programming language system itself. </td> </tr> <tr> <td class="h" > <a name="108">108</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="109">109</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> </table> </body> </html>