File Coverage

blib/lib/X500/DN/Marpa/RDN.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	38	38	100.0

package X500::DN::Marpa::RDN;

use parent 'X500::DN::Marpa';
use strict;
use warnings;
use warnings qw(FATAL utf8); # Fatalize encoding glitches.

use Moo;

use Want;

our $VERSION = '1.00';

# ------------------------------------------------

sub getAttributeTypes
{
	my($self) = @_;
	my(@type) = $self -> rdn_types(1);

	return want('LIST') ? @type : scalar @type;

} # End of getAttributeTypes.

# ------------------------------------------------

sub getAttributeValue
{
	my($self, $type) = @_;
	my(@value) = $self -> rdn_values($type);

	return want('LIST') ? @value : $value[0];

} # End of getAttributeValue.

# ------------------------------------------------

1;

=pod

=encoding utf8

=head1 NAME

C - Backcompat module to emulate the RDN part of C

=head1 Synopsis

See L.

=head1 Description

C provides a L-based parser for parsing X.500 Relative
Distinguished Names.

This module emulates the RDN parts of L.

Actually, objects of type C are returned by
L, so you may not need to use this module directly at all.

But if you do create such an object directly, you I call C<< $rdn -> parse($an_rdn) >>
before calling any other methods.

See also L and L.

=head1 Distributions

This module is available as a Unix-style distro (*.tgz).

See L
for help on unpacking and installing distros.

=head1 Installation

Install C as you would any C module:

Run:

	cpanm X500::DN::Marpa

or run:

	sudo cpan X500::DN::Marpa

or unpack the distro, and then either:

	perl Build.PL
	./Build
	./Build test
	sudo ./Build install

or:

	perl Makefile.PL
	make (or dmake or nmake)
	make test
	make install

=head1 Constructor and Initialization

C is called as C<< my($parser) = X500::DN::Marpa::RDN -> new(k1 => v1, k2 => v2, ...) >>.

It returns a new object of type C.

Key-value pairs accepted in the parameter list (see corresponding methods for details:

=over 4

=item o (None)

=back

=head1 Methods

This module is a subclass of L and shares all its options to new(), and all its
methods. See L and L.

Further, it has these methods:

=head2 getAttributeTypes()

In scalar context, returns the number of types in the RDN passed in to
L.

In list context, returns all those types.

=head2 getAttributeValue($key)

In scalar context, returns the number of values in the RDN passed in to
L, whose type matches $key.

In list context, returns all those values.

=head2 new()

See L for details on the parameters accepted by L.

=head1 FAQ

See L and L.

=head1 References

See L.

=head1 See Also

L.

L.

L.

=head1 Machine-Readable Change Log

The file Changes was converted into Changelog.ini by L.

=head1 Version Numbers

Version numbers < 1.00 represent development versions. From 1.00 up, they are production versions.

=head1 Repository

L

=head1 Support

Email the author, or log a bug on RT:

L.

=head1 Author

L was written by Ron Savage [e-mail]> in 2015.

Marpa's homepage: L.

My homepage: L.

=head1 Copyright

Australian copyright (c) 2015, Ron Savage.

	All Programs of mine are 'OSI Certified Open Source Software';
	you can redistribute them and/or modify them under the terms of
	The Artistic License 2.0, a copy of which is available at:
	http://opensource.org/licenses/alphabetical.

=cut