oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add the get tests and method

Browse source
This commit is contained in:
Colin Kuskie 2008-02-23 06:30:55 +00:00
parent 39aa431e2c
commit 95b8244ce0
2 changed files with 39 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lib/WebGUI/Shop/ShipDriver.pm
View file

@ -156,6 +156,34 @@ sub delete {
#-------------------------------------------------------------------
=head2 get ( [ $param ] )
This is an enhanced accessor for the options property. By default,
it returns all the options as a hashref. If the name of a key
in the hash is passed, it will only return that value from the
options hash.
=head3 $param
An optional parameter. If it matches the key of a hash, it will
return the value from the options hash.
=cut
sub get {
my $self = shift;
my $param = shift;
my $options = $self->options;
if (defined $param) {
return $options->{$param};
}
else {
return $options;
}
}
#-------------------------------------------------------------------
=head2 getID ( )
Returns the shipperId. This is an alias for shipperId provided