shipping is closer
This commit is contained in:
parent
14ffef86c1
commit
a535104d7a
5 changed files with 103 additions and 81 deletions
|
|
@ -240,7 +240,7 @@ sub getId {
|
|||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 getName ( )
|
||||
=head2 getName ( $session )
|
||||
|
||||
Return a human readable name for this driver. Never overridden in the
|
||||
subclass, instead specified in definition with the name "name".
|
||||
|
|
@ -248,8 +248,8 @@ subclass, instead specified in definition with the name "name".
|
|||
=cut
|
||||
|
||||
sub getName {
|
||||
my $self = shift;
|
||||
my $definition = $self->definition($self->session);
|
||||
my ($class, $session) = @_;
|
||||
my $definition = $class->definition($session);
|
||||
return $definition->[0]->{name};
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue