pod and pod-coverage tests now pass

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@458 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index c43de77e3f4a0d8faa907dfed082775ec6c58334..4633b1f2a508f114d528d1eb03db3b65dedaa4cb 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -6,7 +6,6 @@ use warnings;
 use Maypole::Config;
 use Maypole::Constants;
 use Maypole::Headers;
-use Maypole::Components;
 use URI();
 use URI::QueryParam;
 use NEXT;
@@ -468,11 +467,9 @@ sub handler : method  {
   return $status;
 }
 
-=back
-
-=head2 component
+=item component
 
-  Run Maypole sub-requests as components using L<Maypole::Components>
+  Run Maypole sub-requests as a component of the request
 
   [% request.component("/beer/view_as_component/20") %]
 

diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm
index 2c79804642773411585ceca3e564bff1966c048d..da6f16224c69b0d4073be5e3be66f38918182640 100644 (file)
--- a/lib/Maypole/Model/CDBI.pm
+++ b/lib/Maypole/Model/CDBI.pm
@@ -142,6 +142,11 @@ sub _do_update_or_create {
 }
 
 
+=head2 delete
+
+Deprecated method that calls do_delete or a given classes delete method, please
+use do_delete instead
+
 =head2 do_delete
 
 Unsuprisingly, this command causes a database record to be forever lost.
@@ -167,6 +172,9 @@ sub do_delete {
   $self->list($r);
 }
 
+=head2 search
+
+Deprecated searching method - use do_search instead.
 
 =head2 do_search
 
@@ -583,6 +591,12 @@ sub class_of {
     return $r->config->loader->_table2class($table); # why not find_class ?
 }
 
+=head2 fetch_objects
+
+Returns 1 or more objects of the given class when provided with the request
+
+=cut
+
 sub fetch_objects {
     my ($class, $r)=@_;
     my @pcs = $class->primary_columns;

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) = @_;

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index b837e529a60d2423eb1377b6017ffe6fdaf0cfb7..7a2ab0307501e6da5fe6281b2c17ece946966b37 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -102,6 +102,10 @@ options.
 
 Processes the template and sets the output. See L<Maypole::View::Base>
 
+=item report_error
+
+Reports the details of an error, current state and parameters
+
 =back
 
 =head1 TEMPLATE TOOLKIT INTRODUCTION