<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package GLPI::Agent::SOAP::WsMan::Attribute;

use strict;
use warnings;

## no critic (ProhibitMultiplePackages)
package
    Attribute;

sub new {
    my ($class, %params) = @_;

    my $self = \%params;

    bless $self, $class;
    return $self;
}

sub get {
    my ($self, $key) = @_;

    return $self-&gt;{$key} if $key;

    my @attributes;
    foreach my $key (keys(%{$self})) {
        push @attributes, "-$key", $self-&gt;{$key};
    }

    return \@attributes;
}

sub must_understand {
    my ($class, $bool) = @_;

    return $class-&gt;new("s:mustUnderstand" =&gt; $bool // "true");
}

1;
</pre></body></html>