# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
# bos720 src/bos/usr/lpp/bosinst/samples/NIM/LPAR/VIOS.pm 1.1 
#  
# Licensed Materials - Property of IBM 
#  
# COPYRIGHT International Business Machines Corp. 2008,2009 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 

# @(#)61        1.1  src/bos/usr/lpp/bosinst/samples/NIM/LPAR/VIOS.pm, bosinst, bos720 3/29/09 15:20:57

package NIM::LPAR::VIOS;

=head1 NAME

NIM::LPAR::VIOS

=over 2

=item

Derived from the NIM::LPAR base class.

=back

=head1 VARIABLES

=head1 FUNCTIONS

=cut

#-------------------------------------------------------------------------------
BEGIN
{
  # print "NIM::LPAR::VIOS BEGIN\n";

  use base (NIM::LPAR);

  use Hash::Util;
  use NIM::Util;
}

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

=head2 new

=over 2

=item

C<new NIM::LPAR::VIOS(%args)>

=back

=head3 DESCRIPTION

=over 2

=item

Instantiates an NIM::LPAR::VIOS object.

=back

=head3 PARAMETERS

=over 2

=item * %args (REQUIRED)

=begin html

A hash of arguments. See <a href="../LPAR.html#parameters">parameters for NIM::LPAR::new()</a>

=end html

=item * $args{'lpars'} (OPTIONAL)

=back

=head3 RETURNS

=over 2

=item * Reference to the newly created object.

=back

=head3 EXCEPTIONS

=cut

#-------------------------------------------------------------------------------
sub new
{
  my $type = shift;
  my %args = @_;

  log_print("NIM::LPAR::VIOS::new(@_)\n");
  
  if ($args{'type'} eq 'vios')
  {
    my $this = new NIM::LPAR(@_);
    bless $this, $type;
    
    $this->{'lpars'} = (defined $args{'lpars'} ? $args{'lpars'} : ());
    return $this;
  }
  return ();
}

#-------------------------------------------------------------------------------
sub add_lpar
{
  my $this = shift;
  my ($lpar) = @_;
  
  push @{$this->{'lpars'}}, ($lpar);
}

1;

# __END__

=head1 AUTHOR

IBM

=head1 BUGS

Please report any bugs to the L</"AUTHOR">.

=head1 SUPPORT

=head1 ACKNOWLEDGEMENTS

=head1 SEE ALSO

=begin html

<ul>
<li><a href="../LPAR.html">NIM::LPAR</a>
</ul>

=end html

=cut