another update

This commit is contained in:
JT Smith 2005-12-07 03:22:51 +00:00
parent 6bda7a623d
commit 9e17031f84
2 changed files with 39 additions and 4 deletions

View file

@ -107,7 +107,12 @@ If specified, the value of an individual property is returned.
=cut
sub get {
my $self = shift;
my $propertyName = shift;
if (defined $propertyName) {
return $self->{_properties}{$propertyName};
}
return $self->{_properties};
}
#-------------------------------------------------------------------