POD docs

lib/WebGUI/Commerce/Item/Event.pm

@@ -1,5 +1,16 @@
 package WebGUI::Commerce::Item::Event;
 
+=head1 NAME
+
+Package WebGUI::Commerce::Item::Event
+
+=head1 DESCRIPTION
+
+Item plugin for events in the EventManagement system.  Allows events entered there
+to be part of the Commerce system.
+
+=cut
+
 use strict;
 
 our @ISA = qw(WebGUI::Commerce::Item);
@@ -30,6 +41,13 @@ sub name {
 }
 
 #-------------------------------------------------------------------
+
+=head2 new ( $session )
+
+Overload default constructor to glue in information from the EMS.
+
+=cut
+
 sub new {
 	my ($class, $session, $eventId, $eventData);
 	$class = shift;

lib/WebGUI/Commerce/Item/Product.pm

@@ -1,5 +1,15 @@
 package WebGUI::Commerce::Item::Product;
 
+=head1 NAME
+
+Package WebGUI::Commerce::Item::Product
+
+=head1 DESCRIPTION
+
+Item plugin for products in the Commerce system.
+
+=cut
+
 use strict;
 #use WebGUI::SQL;
 use WebGUI::Product;
@@ -40,6 +50,13 @@ sub name {
 }
 
 #-------------------------------------------------------------------
+
+=head2 new ( $session )
+
+Overload default constructor to glue in a WebGUI::Product object.
+
+=cut
+
 sub new {
 	my ($class, $session, $sku, $product, $variantId);
 	$class = shift;

lib/WebGUI/Commerce/Item/Subscription.pm

@@ -1,5 +1,15 @@
 package WebGUI::Commerce::Item::Subscription;
 
+=head1 NAME
+
+Package WebGUI::Commerce::Item::Subscription
+
+=head1 DESCRIPTION
+
+Item plugin for subscriptions.
+
+=cut
+
 use strict;
 #use WebGUI::SQL;
 use WebGUI::Subscription;
@@ -37,6 +47,13 @@ sub name {
 }
 
 #-------------------------------------------------------------------
+
+=head2 new ( $session , $subscriptionId, $type )
+
+Overload default constructor to glue in a WebGUI::Subscription object.
+
+=cut
+
 sub new {
 	my ($class, $session, $subscriptionId, $type, $subscription);
 	$class = shift;