package HeaderDoc::DocReference;
use strict;
use vars qw($VERSION @ISA);
$HeaderDoc::DocReference::VERSION = '$Revision: 1.4 $';
my $debugging = 0;
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->{OUTPUTFORMAT} = undef;
$self->{UID} = undef;
$self->{NAME} = undef;
$self->{GROUP} = " ";
$self->{TYPE} = undef; $self->{PATH} = undef;
$self->{LANGUAGE} = "";
}
sub path {
my $self = shift;
if (@_) {
$self->{PATH} = shift;
}
return $self->{PATH};
}
sub language {
my $self = shift;
if (@_) {
$self->{LANGUAGE} = shift;
}
return $self->{LANGUAGE};
}
sub outputformat {
my $self = shift;
if (@_) {
$self->{OUTPUTFORMAT} = shift;
}
return $self->{OUTPUTFORMAT};
}
sub uid {
my $self = shift;
if (@_) {
$self->{UID} = shift;
}
return $self->{UID};
}
sub name {
my $self = shift;
if (@_) {
$self->{NAME} = shift;
}
return $self->{NAME};
}
sub group {
my $self = shift;
if (@_) {
my $newgroupname = shift;
if (!length($newgroupname)) { $newgroupname = " "; }
$self->{GROUP} = $newgroupname;
}
return $self->{GROUP};
}
sub shortname {
my $self = shift;
if (@_) {
$self->{SHORTNAME} = shift;
}
return $self->{SHORTNAME};
}
sub type {
my $self = shift;
if (@_) {
$self->{TYPE} = shift;
}
return $self->{TYPE};
}
sub printObject {
my $self = shift;
print STDERR "----- DocReference Object ------\n";
print STDERR "uid: $self->{UID}\n";
print STDERR "name: $self->{NAME}\n";
print STDERR "type: $self->{TYPE}\n";
print STDERR "path: $self->{PATH}\n";
print STDERR "language: $self->{LANGUAGE}\n";
print STDERR "\n";
}
1;