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);
$VERSION = '1.20';
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->{POSITION} = undef;
$self->{TYPE} = undef;
$self->{USERDICTARRAY} = ();
}
sub position {
my $self = shift;
if (@_) {
$self->{POSITION} = shift;
}
return $self->{POSITION};
}
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();
print "position: $self->{POSITION}\n";
print "type: $self->{TYPE}\n";
}
1;