# IBM_PROLOG_BEGIN_TAG # This is an automatically generated prolog. # # bos720 src/bos/usr/lpp/bosinst/samples/NIM/LPAR/AIX.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 # @(#)59 1.1 src/bos/usr/lpp/bosinst/samples/NIM/LPAR/AIX.pm, bosinst, bos720 3/29/09 15:20:54 package NIM::LPAR::AIX; =head1 NAME NIM::LPAR::AIX =over 2 =item Derived from the NIM::LPAR base class. =back =head1 VARIABLES =head1 FUNCTIONS =cut #------------------------------------------------------------------------------- BEGIN { # print "NIM::LPAR::AIX BEGIN\n"; use base (NIM::LPAR); use Hash::Util; use NIM::Util; } #------------------------------------------------------------------------------- =head2 new =over 2 =item C =back =head3 DESCRIPTION =over 2 =item Instantiates an NIM::LPAR::AIX object. =back =head3 PARAMETERS =over 2 =item * %args (REQUIRED) =begin html A hash of arguments. See parameters for NIM::LPAR::new() =end html =item * $args{'vios'} (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::AIX::new(@_)\n"); if ($args{'type'} eq 'aix') { my $this = new NIM::LPAR(@_); bless $this, $type; $this->{'vios'} = (defined $args{'vios'} ? $args{'vios'} : ''); return $this; } return (); } #------------------------------------------------------------------------------- sub set_vios { my $this = shift; my ($vios) = @_; $this->{'vios'} = $vios; } 1; # __END__ =head1 AUTHOR IBM =head1 BUGS Please report any bugs to the L. =head1 SUPPORT =head1 ACKNOWLEDGEMENTS =head1 SEE ALSO =begin html =end html =cut