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;

lib/WebGUI/Commerce/Shipping/ByPrice.pm

@@ -1,10 +1,27 @@
 package WebGUI::Commerce::Shipping::ByPrice;
 
+=head1 NAME
+
+Package WebGUI::Commerce::Shipping::ByPrice
+
+=head1 DESCRIPTION
+
+Shipping plugin for determining shipping cost by a percentage of total price.
+
+=cut
+
 our @ISA = qw(WebGUI::Commerce::Shipping);
 
 use strict;
 
 #-------------------------------------------------------------------
+
+=head2 calc ( $session )
+
+Calculate the shipping price for this plugin.
+
+=cut
+
 sub calc {
 	my ($self, $items, $price);
 	$self = shift;
@@ -19,6 +36,13 @@ sub calc {
 };
 
 #-------------------------------------------------------------------
+
+=head2 configurationForm ( $session )
+
+Configuration form for this shipping method.
+
+=cut
+
 sub configurationForm {
 	my ($self, $f);
 	$self = shift;
@@ -45,6 +69,13 @@ sub init {
 }
 
 #-------------------------------------------------------------------
+
+=head2 name ( $session )
+
+Returns the internationalized name for this shipping plugin.
+
+=cut
+
 sub name {
 	my ($session) = @_;
 	my $i18n = WebGUI::International->new($session, 'CommerceShippingByPrice');

lib/WebGUI/Commerce/Shipping/ByWeight.pm

@@ -1,10 +1,28 @@
 package WebGUI::Commerce::Shipping::ByWeight;
 
+=head1 NAME
+
+Package WebGUI::Commerce::Item::ByWeight
+
+=head1 DESCRIPTION
+
+Shipping plugin for determining shipping cost as a function of the total weight
+or products being purchased.
+
+=cut
+
 our @ISA = qw(WebGUI::Commerce::Shipping);
 
 use strict;
 
 #-------------------------------------------------------------------
+
+=head2 calc ( $session )
+
+Calculate the shipping price for this plugin.
+
+=cut
+
 sub calc {
 	my ($self, $items, $weight);
 	$self = shift;
@@ -19,6 +37,13 @@ sub calc {
 };
 
 #-------------------------------------------------------------------
+
+=head2 configurationForm ( $session )
+
+Configuration form for this shipping method.
+
+=cut
+
 sub configurationForm {
 	my ($self, $f);
 	$self = shift;
@@ -35,6 +60,13 @@ sub configurationForm {
 }
 
 #-------------------------------------------------------------------
+
+=head2 init ( $session )
+
+Constructor
+
+=cut
+
 sub init {
 	my ($class, $self);
 	$class = shift;
@@ -45,6 +77,13 @@ sub init {
 }
 
 #-------------------------------------------------------------------
+
+=head2 name ( $session )
+
+Returns the internationalized name for this shipping plugin.
+
+=cut
+
 sub name {
 	my ($session) = @_;
 	my $i18n = WebGUI::International->new($session, 'CommerceShippingByWeight');

lib/WebGUI/Commerce/Shipping/PerTransaction.pm

@@ -1,10 +1,27 @@
 package WebGUI::Commerce::Shipping::PerTransaction;
 
+=head1 NAME
+
+Package WebGUI::Commerce::Item::PerTransaction
+
+=head1 DESCRIPTION
+
+Shipping plugin for a fixed shipping costs per transaction.
+
+=cut
+
 our @ISA = qw(WebGUI::Commerce::Shipping);
 
 use strict;
 
 #-------------------------------------------------------------------
+
+=head2 calc ( $session )
+
+Calculate the shipping price for this plugin.
+
+=cut
+
 sub calc {
 	my ($self);
 	$self = shift;
@@ -15,6 +32,13 @@ sub calc {
 };
 
 #-------------------------------------------------------------------
+
+=head2 configurationForm ( $session )
+
+Configuration form for this shipping method.
+
+=cut
+
 sub configurationForm {
 	my ($self, $f);
 	$self = shift;
@@ -31,6 +55,13 @@ sub configurationForm {
 }
 
 #-------------------------------------------------------------------
+
+=head2 init ( $session )
+
+Constructor
+
+=cut
+
 sub init {
 	my ($class, $self);
 	$class = shift;
@@ -41,6 +72,13 @@ sub init {
 }
 
 #-------------------------------------------------------------------
+
+=head2 name ( $session )
+
+Returns the internationalized name for this shipping plugin.
+
+=cut
+
 sub name {
 	my ($session) = @_;
 	my $i18n = WebGUI::International->new($session, 'CommerceShippingPerTransaction');