# This is a prototype.	It needs documentation.

#
# Copyright (c) 2001-2012 NetApp, Inc., All Rights Reserved
#   Any use, modification, or distribution is prohibited
#   without prior written consent from NetApp, Inc.
#

## @summary SystemServicesDns ComponentState Module
## @author Rupamjyoti.Baruah@netapp.com, dl-nacl-dev@netapp.com
## @status shared
## @pod here

=head1 NAME

NACL::CS::SystemServicesDns

=head1 DESCRIPTION

C<NACL::CS::> is a derived class of

L<NACL::CS::ComponentState::ONTAP|lib-NACL-CS-ComponentState-ONTAP-pm>.  It represents the

state of System Services Dns.  A related class is

L<NACL::C::SystemServicesDns|lib-NACL-C-SystemServicesDns-pm>, which represents access to

ONTAP SystemServiceDns.



=head1 ATTRIBUTES

The individual pieces of data that are part of the  state of the

element are the attributes of the  ComponentState.

=over


=item C<< node >>

Filled in for CMode CLI.

=item C<< domains >>

Filled in for CMode CLI.

=item C<< ns1 >>

Filled in for CMode CLI.

=item C<< ns2 >>

Filled in for CMode CLI.

=item C<< ns3 >>

Filled in for CMode CLI.

=item C<< state >>

Filled in for CMode CLI.

=item C<< timeout >>

Filled in for CMode CLI.

=item C<< attempts >>

Filled in for CMode CLI.

=back


=cut



package NACL::CS::SystemServicesDns;

use strict;
use warnings;
use Params::Validate qw(validate);
use NACL::ComponentUtils qw(_dump_one);

use NACL::Exceptions::NoElementsFound qw(:try);

use NATE::Log qw(log_global);
my $Log = log_global();
my $may_enter = $Log->may_enter();
my $may_exit  = $Log->may_exit();
use base 'NACL::CS::ComponentState::ONTAP';

use Class::MethodMaker [

    # These fields are from the C Mode "system service dns show"
    scalar => 'node',
    scalar => 'domains',
    scalar => 'ns1',
    scalar => 'ns2',
    scalar => 'ns3',
    scalar => 'state',
    scalar => 'timeout',
    scalar => 'attempts',
];

=head1 METHODS

=head2 fetch

    my $node_state  = NACL::CS::SystemServicesDns->fetch(command_interface=>$ci,...);
    my @node_states = NACL::CS::SystemServicesDns->fetch(command_interface=>$ci,...);

see L<NACL::CS::ComponentState::ONTAP|lib-NACL-CS-ComponentState-ONTAP-pm>

Supports CMode CLI.

=over

=item Exceptions

=over

=item C<NACL::Exceptions::NoElementsFound>

When there are no elements matching the query specified or elements of that type
doesn't exist, then this exception will be thrown.

=back

=back

=cut



sub fetch {
    $Log->enter() if $may_enter;
    my $pkg = shift;
    my @state_objs = $pkg->SUPER::fetch(
        @_,
        choices => [
            {   method    => "_fetch_cmode_cli",
                interface => "CLI",
                set       => "CMode",
            },
        ],
        exception_text => 'No matching system services dns(s) found'
    );

    $Log->exit() if $may_exit;
    return wantarray ? @state_objs : $state_objs[0];
}

sub _fetch_cmode_cli {
    my $pkg = shift;
    return $pkg->SUPER::_fetch_cmode_cli( @_,
        api => "system_services_dns_show" );
} ## end sub _fetch_cmode_cli

1;