base exception system

lib/WebGUI/Exception/Shop.pm

@@ -0,0 +1,63 @@
+package WebGUI::Exception::Shop;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2008 Plain Black Corporation.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use strict;
+use WebGUI::Exception;
+use Exception::Class (
+
+    'WebGUI::Error::Shop::MaxOfItemInCartReached' => {
+        description     => "Some items restrict how many you can put into your cart.",
+        },
+);
+
+
+=head1 NAME
+
+Package WebGUI::Exception::Shop
+
+=head1 DESCRIPTION
+
+Exceptions which apply only to the WebGUI commerce system.
+
+=head1 SYNOPSIS
+
+ use WebGUI::Exception::Shop;
+
+ # throw
+ WebGUI::Error::Shop::MaxOfItemInCartReached->throw(error=>"Too many in cart.");
+
+ # try
+ eval { $cart->addItem($ku) };
+
+ # catch
+ if (my $e = WebGUI::Error->caught("WebGUI::Error::Shop::MaxOfItemInCartReached")) {
+    # do something
+ }
+
+=head1 EXCEPTION TYPES
+
+These exception classes are defined in this class:
+
+
+=head2 WebGUI::Error::Shop::MaxOfItemInCartReached
+
+Throw this when there are too many items of a given type added to the cart so that the user can be notified. ISA WebGUI::Error.
+
+=cut
+
+
+1;
+