CPAN::Groonga

s => 'rw', isa => HashRef);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{'bom-ref'}    = $self->bom_ref       if $self->bom_ref;
    $json->{propertyName} = $self->property_n

  if $self->description;
    $json->{data}         = $self->data          if @{$self->data};
    $json->{created}      = $self->created       if $self->created;
    $json->{expires}      = $self->expi

      if $self->expires;
    $json->{author}       = $self->author        if $self->author;
    $json->{reviewer}     = $self->reviewer      if $self->reviewer;
    $json->{signature}    = $self->sign

imestamp->new($_[0]) }
);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{altIds}        = $self->alt_ids        if @{$self->alt_ids};
    $json->{licensor}      = $self->licens

nsor->TO_JSON};
    $json->{licensee}      = $self->licensee       if %{$self->licensee->TO_JSON};
    $json->{purchaser}     = $self->purchaser      if %{$self->purchaser->TO_JSON};
    $json->{purch

purchase_order;
    $json->{licenseTypes}  = $self->license_types  if @{$self->license_types};
    $json->{lastRenewal}   = $self->last_renewal   if $self->last_renewal;
    $json->{expiration}    = $

']]);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{type}     = $self->type     if $self->type;
    $json->{diff}     = $self->diff     if $self->diff;
    $json->{resolves} =

 $self->resolves if @{$self->resolves};

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::Component::Patch - Patch

=head1 SYNOPSIS

    SBOM::CycloneDX::Component::Patch->new(

:CycloneDX::List->new });


sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{mechanism}    = $self->mechanism     if $self->mechanism;
    $json->{algorithmRef} = $self->algorithm

_ref if @{$self->algorithm_ref};

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::CryptoProperties::SecuredBy - The mechanism by which the cryptographic asset is secured by

=

>new });


sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{encr}  = $self->encr  if @{$self->encr};
    $json->{prf}   = $self->prf   if @{$self->prf};
    $json->{integ} = $self

f->integ};
    $json->{ke}    = $self->ke    if @{$self->ke};
    $json->{esn}   = $self->esn   if @{$self->esn};
    $json->{auth}  = $self->auth  if @{$self->auth};

    return $json;

}

1;

=encod

 TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{name}        = $self->name        if $self->name;
    $json->{algorithms}  = $self->algorithms  if @{$self->algorithms};
    $json->{

identifiers} = $self->identifiers if @{$self->identifiers};

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::CryptoProperties::CipherSuite - Object representing
a cipher suite

 (is => 'rw', isa => Str);


sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{lowerBound} = $self->lower_bound if $self->lower_bound;
    $json->{upperBound} = $self->upper_bound 

if $self->upper_bound;

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::Component::ConfidenceInterval - Confidence Interval

=head1 SYNOPSIS

    SBOM::CycloneDX::Component::C

O_JSON {

    my $self = shift;

    my $json = {};

    $json->{type}           = $self->type            if $self->type;
    $json->{id}             = $self->id              if $self->id;
    $json->

 $self->state;
    $json->{algorithmRef}   = $self->algorithm_ref   if $self->algorithm_ref;
    $json->{creationDate}   = $self->creation_date   if $self->creation_date;
    $json->{activationDate} =

tivation_date;
    $json->{updateDate}     = $self->update_date     if $self->update_date;
    $json->{expirationDate} = $self->expiration_date if $self->expiration_date;
    $json->{value}          =

loneDX::List->new });

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{type}                = $self->type                  if $self->type;
    $json->{version}             = $sel

   $json->{cipherSuites}        = $self->cipher_suites         if @{$self->cipher_suites};
    $json->{ikev2TransformTypes} = $self->ikev2_transform_types if $self->ikev2_transform_types;
    $json->{

cryptoRefArray}      = $self->crypto_ref_array      if @{$self->crypto_ref_array};

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::CryptoProperties::ProtocolProperties - Prot

cloneDX::Property']]);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{bom}                  = $self->bom                  if $self->bom;
    $json->{modelParameters}      = $se

    $json->{quantitativeAnalysis} = $self->quantitativeAnalysis if $self->quantitative_analysis;
    $json->{considerations}       = $self->considerations       if $self->considerations;
    $json->{p

roperties}           = $self->properties           if @{$self->properties};

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::Component::ModelCard - Model Card

=head1 SYNOPSIS

=> Str);

sub TO_JSON {

    my $self = shift;

    my $json = {tagId => $self->tag_id, name => $self->name};

    $json->{version}    = $self->version     if $self->version;
    $json->{tagVersion} =

  $json->{patch}      = $self->patch       if $self->patch;
    $json->{text}       = $self->text        if $self->text;
    $json->{url}        = $self->url         if $self->url;

    return $json;

', isa => Str);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{subjectName}           = $self->subject_name            if $self->subject_name;
    $json->{issuerName}          

  $json->{notValidBefore}        = $self->not_valid_before        if $self->not_valid_before;
    $json->{notValidAfter}         = $self->not_valid_after         if $self->not_valid_after;
    $json->

hm_ref if $self->signature_algorithm_ref;
    $json->{subjectPublicKeyRef}   = $self->subject_public_key_ref  if $self->subject_public_key_ref;
    $json->{certificateFormat}     = $self->certificate_

a => Str);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{text} = $self->text if $self->text;
    $json->{url}  = $self->url  if $self->url;

    return $json;

}

1;

=encodin

ollection']);


sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{performanceMetrics} = $self->performance_metrics if @{$self->performance_metrics};
    $json->{graphics}          

 = $self->graphics            if %{$self->graphics->TO_JSON};

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::Component::QuantitativeAnalysis - Quantitative Analysis

=head1 

 => 'rw', isa => Str);


sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{type}               = $self->type                if $self->type;
    $json->{value}              = $self-

ue;
    $json->{slice}              = $self->slice               if $self->slice;
    $json->{confidenceInterval} = $self->confidence_interval if $self->confidence_interval;

    return $json;

}

1;

tr);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{uid}       = $self->uid       if $self->uid;
    $json->{url}       = $self->url       if $self->url;
    $json->{author}   

uthor    if $self->author;
    $json->{committer} = $self->committer if $self->committer;
    $json->{message}   = $self->message   if $self->message;

    return $json;

}

1;

=encoding utf-8

=head

:CycloneDX::List->new }
);


sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{description} = $self->description if $self->description;
    $json->{collection}  = $self->collection

  if @{$self->collection};

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::Component::GraphicsCollection - Graphics Collection

=head1 SYNOPSIS

    SBOM::CycloneDX::Componen

ent']);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{name}  = $self->name  if $self->name;
    $json->{image} = $self->image if $self->image;

    return $json;

}

1;

=enco

 (is => 'rw', isa => Str);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{ancestors}   = $self->ancestors   if @{$self->ancestors};
    $json->{descendants} = $self->descendant

  if @{$self->variants};
    $json->{commits}     = $self->commits     if @{$self->commits};
    $json->{patches}     = $self->patches     if @{$self->patches};
    $json->{notes}       = $self->notes

       if $self->notes;

    return $json;

}

1;

=encoding utf-8

=head1 NAME

SBOM::CycloneDX::Component::Pedigree - Component Pedigree

=head1 SYNOPSIS

    SBOM::CycloneDX::Component::Pedigree->n

 isa => Num);

sub TO_JSON {

    my $self = shift;

    my $json = {};

    $json->{primitive}                = $self->primitive                   if $self->primitive;
    $json->{parameterSetIdentif

ntifier    if $self->parameter_set_identifier;
    $json->{curve}                    = $self->curve                       if $self->curve;
    $json->{executionEnvironment}     = $self->execution_envi

     if $self->execution_environment;
    $json->{implementationPlatform}   = $self->implementation_platform     if $self->implementation_platform;
    $json->{certificationLevel}       = $self->certi