From 33928cba064685a88348171f9c870d40fcc2c895 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 21 Feb 2008 04:12:26 +0000
Subject: [PATCH] Stubbing for ShipDriver.pm

---
 lib/WebGUI/Shop/ShipDriver.pm | 49 ++++++++++++++++++++++++++++++++---
 1 file changed, 45 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Shop/ShipDriver.pm b/lib/WebGUI/Shop/ShipDriver.pm
index 00e0e2e3c..38bd9b376 100644
--- a/lib/WebGUI/Shop/ShipDriver.pm
+++ b/lib/WebGUI/Shop/ShipDriver.pm
@@ -27,17 +27,31 @@ These subroutines are available from this package:
 
 =cut
 
-readonly session => my %session;
+readonly session   => my %session;
+readonly className => my %className;
+readonly shipperId => my %shipperId;
+readonly label     => my %label;
+readonly options   => my %options;
 
 #-------------------------------------------------------------------
 
-=head2 new ( $session )
+=head2 className (  )
 
-Constructor for the WebGUI::Shop::Tax.  Returns a WebGUI::Shop::Tax object.
+Accessor for the className of the object.  This is the name of the driver that is used
+to do calculations.
 
 =cut
 
-sub new {
+#-------------------------------------------------------------------
+
+=head2 create ( $session )
+
+Constructor for new WebGUI::Shop::ShipperDriver objects.  Returns a WebGUI::Shop::ShipperDriver object.
+To access driver objects that have already been configured, use C<new>.
+
+=cut
+
+sub create {
     my $class   = shift;
     my $session = shift;
     my $self    = {};
@@ -49,10 +63,37 @@ sub new {
 
 #-------------------------------------------------------------------
 
+=head2 label (  )
+
+Accessor for the label property.  This is the name assigned to this
+driver, something like "Slow and dangerous".
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 options (  )
+
+Accessor for the driver properties.  This returns a JSON string of
+any driver specific properties.  Driver properties have a
+
+=cut
+
+#-------------------------------------------------------------------
+
 =head2 session (  )
 
 Accessor for the session object.  Returns the session object.
 
 =cut
 
+#-------------------------------------------------------------------
+
+=head2 shipperId (  )
+
+Accessor for the unique identifier for this shipperDriver.  The shipperId is 
+a GUID.
+
+=cut
+
 1;