MinorAPIElement.pm [plain text]
package HeaderDoc::MinorAPIElement;
use HeaderDoc::Utilities qw(findRelativePath safeName getAPINameAndDisc convertCharsForFileMaker printArray printHash);
use HeaderDoc::HeaderElement;
@ISA = qw( HeaderDoc::HeaderElement );
use strict;
use vars qw($VERSION @ISA);
$HeaderDoc::MinorAPIElement::VERSION = '$Revision: 1.9 $';
sub new {
my($param) = shift;
my($class) = ref($param) || $param;
my $self = {};
bless($self, $class);
$self->_initialize();
return ($self);
}
sub _initialize {
my($self) = shift;
$self->SUPER::_initialize();
$self->{USERDICTARRAY} = ();
$self->{CLASS} = "HeaderDoc::MinorAPIElement";
}
sub clone {
my $self = shift;
my $clone = undef;
if (@_) {
$clone = shift;
} else {
$clone = HeaderDoc::MinorAPIElement->new();
}
$self->SUPER::clone($clone);
$clone->{POSITION} = $self->{POSITION};
$clone->{TYPE} = $self->{TYPE};
$clone->{HIDDEN} = $self->{HIDDEN};
$clone->{USERDICTARRAY} = $self->{USERDICTARRAY};
return $clone;
}
sub tagname {
my $self = shift;
if (@_) {
$self->{TAGNAME} = shift;
}
return $self->{TAGNAME};
}
sub position {
my $self = shift;
if (@_) {
$self->{POSITION} = shift;
}
return $self->{POSITION};
}
sub hidden {
my $self = shift;
if (@_) {
$self->{HIDDEN} = shift;
}
return $self->{HIDDEN};
}
sub type {
my $self = shift;
if (@_) {
$self->{TYPE} = shift;
}
return $self->{TYPE};
}
sub userDictArray {
my $self = shift;
if (@_) {
@{ $self->{USERDICTARRAY} } = @_;
}
($self->{USERDICTARRAY}) ? return @{ $self->{USERDICTARRAY} } : return ();
}
sub addToUserDictArray {
my $self = shift;
if (@_) {
foreach my $item (@_) {
push (@{ $self->{USERDICTARRAY} }, $item);
}
}
return @{ $self->{USERDICTARRAY} };
}
sub addKeyAndValueInUserDict {
my $self = shift;
if (@_) {
my $key = shift;
my $value = shift;
$self->{USERDICT}{$key} = $value;
}
return %{ $self->{USERDICT} };
}
sub printObject {
my $self = shift;
my $dec = $self->declaration();
$self->SUPER::printObject();
print STDERR "position: $self->{POSITION}\n";
print STDERR "type: $self->{TYPE}\n";
}
sub appleRefIsDoc
{
my $self = shift;
if (@_) {
my $value = shift;
$self->{APPLEREFISDOC} = $value;
}
if ($self->{APPLEREFISDOC}) {
return $self->{APPLEREFISDOC};
} elsif ($self->apiOwner()) {
my $apio = $self->apiOwner();
bless($apio, "HeaderDoc::HeaderElement");
bless($apio, $apio->class());
my $apioval = $apio->appleRefIsDoc();
if ($apioval) { return $apioval; }
}
return $self->{APPLEREFISDOC};
}
1;