another update
This commit is contained in:
parent
6bda7a623d
commit
9e17031f84
2 changed files with 39 additions and 4 deletions
|
|
@ -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};
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue