1N/A# Copyright (c) 2002, 2008, Oracle and/or its affiliates. All rights reserved. 1N/A# Object.pm contains perl code for exacct object manipulation. 1N/A# Dump an exacct object to the specified filehandle, or STDOUT by default. 1N/A # Fettle parameters. 1N/A # Check for undef values. 1N/A printf $
fh (
"%sITEM\n%s Catalog = %s|%s|%s\n",
1N/A # Recursively dump nested objects. 1N/A # Just print out items. 1N/A printf $
fh (
"%sGROUP\n%s Catalog = %s|%s|%s\n",
1N/A# Item subclass - establish inheritance. 1N/A# Group subclass - establish inheritance. 1N/A# Tied array used for holding a group's items. 1N/A# Check the passed list of arguments are derived from ::Object 1N/A foreach my $i (@_) {
1N/A croak(
'"',
join(
'", "', @
duff), @
duff ==
1 ?
'" is' :
'" are',
1N/A ' not of type Sun::Solaris::Exacct::Object');
1N/A# Tied hash access methods 1N/A return(
bless([], $_[
0]));
1N/A return(
scalar(@{$_[
0]}));
1N/A $
#{$_[0]} = $_[1] - 1; 1N/A return($_[
0]->[$_[
1]]);
1N/A return(
pop(@{$_[
0]}));
1N/A return(
shift(@{$_[
0]}));
1N/A return(
exists($_[
0]->[$_[
1]]));
1N/A return(
delete($_[
0]->[$_[
1]]));