pod and pod-coverage tests now pass

[maypole.git] / lib / Maypole / Model / CDBI / AsForm.pm

diff --git a/lib/Maypole/Model/CDBI/AsForm.pm b/lib/Maypole/Model/CDBI/AsForm.pm
index e0cd7f21c7919388d7b42a67a3700fc5f23d7873..023f88d8bda9258d7dc4e77b3f9f2894a7cd432f 100644 (file)
--- a/lib/Maypole/Model/CDBI/AsForm.pm
+++ b/lib/Maypole/Model/CDBI/AsForm.pm
@@ -53,7 +53,7 @@ Maypole::Model:CDBI::AsForm - Produce HTML form elements for database columns
        __PACKAGE__->has_a('beer',    'BeerDB::Beer');
        package BeerDB::Drinker;
        __PACKAGE__->has_many('pints', 'BeerDB::Pint');
-       
+
        # NEED to do mapping 
        my $sel = BeerDB::Drinker->to_field('pints', 'select') # multiple
        my $sel = $Drunk->to_field('pints', 'select'); # Already had beers selected
@@ -90,8 +90,7 @@ __PACKAGE__->has_many('contacts'  => 'Contact',
 
 
 
-       # Random uses 
-       
+  # Random uses
 
 
 =head1 DESCRIPTION
@@ -117,7 +116,8 @@ Uses fields specified in search_fields, makes foreign inputs if necessary.
 
 =cut
 
-# TODO -- use search_columns 
+# TODO -- use search_columns
+
 sub search_inputs {
   my ($class, $r) = @_;
   warn "In model search_inputs " if $class->model_debug;
@@ -169,6 +169,12 @@ sub unselect_element {
 }
 
 
+=head2 a_select_box
+
+  Returns a HTML::Element representing a select box, based on the arguments
+
+=cut
+
 # make a select box from args
 sub a_select_box {
        my ($self, $name, $vals, $selected_val, $contents) = @_;