File Coverage

blib/lib/SBOM/CycloneDX/Component/Diff.pm
Criterion Covered Total %
statement 20 25 80.0
branch 0 4 0.0
condition n/a
subroutine 7 8 87.5
pod 1 1 100.0
total 28 38 73.6


line stmt bran cond sub pod time code
1             package SBOM::CycloneDX::Component::Diff;
2              
3 1     1   1577 use 5.010001;
  1         6  
4 1     1   6 use strict;
  1         2  
  1         48  
5 1     1   7 use warnings;
  1         2  
  1         54  
6 1     1   5 use utf8;
  1         2  
  1         9  
7              
8 1     1   61 use Types::Standard qw(Str);
  1         2  
  1         8  
9              
10 1     1   2055 use Moo;
  1         2  
  1         7  
11 1     1   315 use namespace::autoclean;
  1         2  
  1         7  
12              
13             extends 'SBOM::CycloneDX::Base';
14              
15             has text => (is => 'rw', isa => Str);
16             has url => (is => 'rw', isa => Str);
17              
18             sub TO_JSON {
19              
20 0     0 1   my $self = shift;
21              
22 0           my $json = {};
23              
24 0 0         $json->{text} = $self->text if $self->text;
25 0 0         $json->{url} = $self->url if $self->url;
26              
27 0           return $json;
28              
29             }
30              
31             1;
32              
33             =encoding utf-8
34              
35             =head1 NAME
36              
37             SBOM::CycloneDX::Component::Diff - Diff
38              
39             =head1 SYNOPSIS
40              
41             SBOM::CycloneDX::Component::Diff->new();
42              
43              
44             =head1 DESCRIPTION
45              
46             L provides the patch file (or diff) that shows
47             changes. Refer to L
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::Component::Diff->new( %PARAMS )
57              
58             Properties:
59              
60             =over
61              
62             =item * C, Specifies the text of the diff
63              
64             =item * C, Specifies the URL to the diff
65              
66             =back
67              
68             =item $diff->text
69              
70             =item $diff->url
71              
72             =back
73              
74              
75             =head1 SUPPORT
76              
77             =head2 Bugs / Feature Requests
78              
79             Please report any bugs or feature requests through the issue tracker
80             at L.
81             You will be notified automatically of any progress on your issue.
82              
83             =head2 Source Code
84              
85             This is open source software. The code repository is available for
86             public review and contribution under the terms of the license.
87              
88             L
89              
90             git clone https://github.com/giterlizzi/perl-SBOM-CycloneDX.git
91              
92              
93             =head1 AUTHOR
94              
95             =over 4
96              
97             =item * Giuseppe Di Terlizzi
98              
99             =back
100              
101              
102             =head1 LICENSE AND COPYRIGHT
103              
104             This software is copyright (c) 2025-2026 by Giuseppe Di Terlizzi.
105              
106             This is free software; you can redistribute it and/or modify it under
107             the same terms as the Perl 5 programming language system itself.
108              
109             =cut