File Coverage

blib/lib/Tiny/OpenSSL/Subject.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	31	31	100.0

use strict;
use warnings;

package Tiny::OpenSSL::Subject;

# ABSTRACT: X509 Subject object.
our $VERSION = '0.1.3'; # VERSION

use Moo;
use Types::Standard qw( Str InstanceOf Int );
use Tiny::OpenSSL::Config qw($CONFIG);

has [ keys %{ $CONFIG->{san} } ] => ( is => 'rw', isa => Str );

sub dn {
    my $self = shift;

    my @subject;

    my @methods =
        qw( country state locality organization organizational_unit commonname );

    for my $method (@methods) {

        if ( $self->$method ) {
            push @subject,
                sprintf( '%s=%s', $CONFIG->{san}{$method}, $self->$method );
        }
    }

    return sprintf( '/%s', join( '/', @subject ) );
}

1;

__END__