From e151b99dca9705d77114080a33f6929242872fc6 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Sun, 9 Mar 2008 05:09:32 +0000 Subject: [PATCH] Tweak a little POD. Fix a bad exception message. --- lib/WebGUI/Shop/Ship.pm | 4 ++-- lib/WebGUI/Shop/ShipDriver.pm | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/WebGUI/Shop/Ship.pm b/lib/WebGUI/Shop/Ship.pm index e3bc80841..570a6b10d 100644 --- a/lib/WebGUI/Shop/Ship.pm +++ b/lib/WebGUI/Shop/Ship.pm @@ -54,7 +54,7 @@ sub addShipper { my $options = shift; WebGUI::Error::InvalidParam->throw(error => q{Must provide a class to create an object}) unless defined $requestedClass; - WebGUI::Error::InvalidParam->throw(error => qq{The requested class $requestedClass is not enabled in your WebGUI configuration file}, param => $requestedClass) + WebGUI::Error::InvalidParam->throw(error => q{The requested class is not enabled in your WebGUI configuration file}, param => $requestedClass) unless isIn($requestedClass, (keys %{$self->getDrivers}) ); WebGUI::Error::InvalidParam->throw(error => q{You must pass a hashref of options to create a new ShipDriver object}) unless defined($options) and ref $options eq 'HASH' and scalar keys %{ $options }; @@ -66,7 +66,7 @@ sub addShipper { =head2 getDrivers ( ) -This subroutine returns a hash reference of available shipping driver classes as keys with their human readable names as values, read from the WebGUI config file in the shippingDrivers directive. +This method returns a hash reference of available shipping driver classes as keys with their human readable names as values, read from the WebGUI config file in the shippingDrivers directive. =cut diff --git a/lib/WebGUI/Shop/ShipDriver.pm b/lib/WebGUI/Shop/ShipDriver.pm index 134359dcf..d0d45f842 100644 --- a/lib/WebGUI/Shop/ShipDriver.pm +++ b/lib/WebGUI/Shop/ShipDriver.pm @@ -245,6 +245,8 @@ sub getId { Return a human readable name for this driver. Never overridden in the subclass, instead specified in definition with the name "name". +This is a class method. + =cut sub getName {