package HeaderDoc::HeaderElement;
use HeaderDoc::Utilities qw(findRelativePath safeName getAPINameAndDisc convertCharsForFileMaker printArray printHash);
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();
my (%attributeHash) = @_;
foreach my $key (keys(%attributeHash)) {
my $ucKey = uc($key);
$self->{$ucKey} = $attributeHash{$key};
}
return ($self);
}
sub _initialize {
my($self) = shift;
$self->{ABSTRACT} = undef;
$self->{DISCUSSION} = undef;
$self->{DECLARATION} = undef;
$self->{DECLARATIONINHTML} = undef;
$self->{NAME} = undef;
$self->{LINKAGESTATE} = undef;
$self->{ACCESSCONTROL} = undef;
}
sub name {
my $self = shift;
if (@_) {
$self->{NAME} = shift;
}
return $self->{NAME};
}
sub abstract {
my $self = shift;
if (@_) {
$self->{ABSTRACT} = shift;
}
return $self->{ABSTRACT};
}
sub discussion {
my $self = shift;
if (@_) {
my $discussion = "";
$discussion = shift;
$discussion =~ s/\n\n/<br>\n/g;
$self->{DISCUSSION} = $discussion;
}
return $self->{DISCUSSION};
}
sub declaration {
my $self = shift;
my $dec = $self->declarationInHTML();
$dec =~s/<br>/\n/g;
$dec =~s{(^|[^<])<(?!<)(?:[^>'"]+|".*?"|'.*?')+>}{}gsx;
$self->{DECLARATION} = $dec; # don't really have to have this ivar
return $dec;
}
sub declarationInHTML {
my $self = shift;
if (@_) {
$self->{DECLARATIONINHTML} = shift;
}
return $self->{DECLARATIONINHTML};
}
sub linkageState {
my $self = shift;
if (@_) {
$self->{LINKAGESTATE} = shift;
}
return $self->{LINKAGESTATE};
}
sub accessControl {
my $self = shift;
if (@_) {
$self->{ACCESSCONTROL} = shift;
}
return $self->{ACCESSCONTROL};
}
sub printObject {
my $self = shift;
my $dec = $self->declaration();
print "name: $self->{NAME}\n";
print "abstract: $self->{ABSTRACT}\n";
print "declaration: $dec\n";
print "declaration in HTML: $self->{DECLARATIONINHTML}\n";
print "discussion: $self->{DISCUSSION}\n";
print "linkageState: $self->{LINKAGESTATE}\n";
print "accessControl: $self->{ACCESSCONTROL}\n";
}
1;