File Coverage

blib/lib/Crypt/PKCS11/Attribute/Value.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	12	12	100.0
condition	15	15	100.0
subroutine	6	6	100.0
pod	2	2	100.0
total	66	66	100.0

# Copyright (c) 2015 Jerry Lundström
# Copyright (c) 2015 .SE (The Internet Infrastructure Foundation)
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
# HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

package Crypt::PKCS11::Attribute::Value;

use common::sense;
use Carp;

use base qw(Crypt::PKCS11::Attribute);

use Crypt::PKCS11;

sub type () { CKA_VALUE }

sub set {
    my ($self) = shift;

    if (scalar @_ == 1 and defined $_[0] and !Crypt::PKCS11::XS::SvUOK($_[0]) and !Crypt::PKCS11::XS::SvIOK($_[0])) {
        utf8::downgrade($_[0]);
        $self->{pValue} = pack('a*', $_[0]);
    }
    else {
        unless (scalar @_) {
            confess 'No byte values in arguments';
        }

        foreach (@_) {
            unless (defined $_  and Crypt::PKCS11::XS::SvUOK($_) and $_ <= 255) {
                confess 'Value to set is not a valid byte';
            }
        }

        $self->{pValue} = pack('C*', @_);
    }

    return $self;
}

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

    unless (defined $self->{pValue}) {
        return wantarray ? () : undef;
    }

    unless (wantarray) {
        my $string = unpack('a*', $self->{pValue});
        utf8::upgrade($string);

        return $string;
    }

    return unpack('C*', $self->{pValue});
}

1;

__END__