File Coverage

blib/lib/App/LDAP/LDIF/Host.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package App::LDAP::LDIF::Host;

use Modern::Perl;

use Moose;

extends qw(
    App::LDAP::ObjectClass::IpHost
    App::LDAP::ObjectClass::Device
    App::LDAP::LDIF
);

around BUILDARGS => sub {
    my $orig = shift;
    my $self = shift;
    push @_, ( dn => "cn=" . {@_}->{cn}[0] . "," . {@_}->{base} ) if grep /^base$/, @_;
    $self->$orig(@_);
};

has '+objectClass' => (
    default => sub {
        [
            qw( top
                ipHost
                device )
        ]
    },
);

__PACKAGE__->meta->make_immutable;
no Moose;

1;

=pod

=head1 NAME

App::LDAP::LDIF::Host - the representation of hosts in LDAP

=head1 SYNOPSIS

    my $host = App::LDAP::LDIF::Host->new(
        base         => $base,               # the OU (organization unit) which the host belongs to
        cn           => [$name1, $name2],    # the host name
        ipHostNumber => $ipHostNumber,       # the ip of this host
    );

    my $entry = $host->entry;
    # get the host as a instance of Net::Ldap::Entry

    my $host = App::LDAP::LDIF::Host->new($entry)
    # new from a Net::LDAP::Entry instance

=cut