Fixed all POD errors and a few of pod coverage, but still a lot of po…

…d coverage left TOFIX

lib/MojoMojo/Controller/Admin.pm

@@ -34,13 +34,12 @@ sub auto : Private {
     return 1;
 }
 
-=item  default ( /.admin )
+=item settings ( /.admin )
 
 Show settings screen.
 
 =cut
 
-
 sub settings : Path FormConfig Args(0) {
     my ( $self, $c ) = @_;
 

lib/MojoMojo/Controller/Comment.pm

@@ -18,7 +18,7 @@ Controller for Page comments.
 
 =over 4
 
-=item default
+=item comment
 
 display comments for embedding in a page
 

lib/MojoMojo/Controller/JSON.pm

@@ -20,10 +20,12 @@ These methods will be called indirectly through javascript functions.
 
 =over 4
 
-=item tag search (json/tagsearch)
+=item tagsearch (json/tagsearch)
 
 Backend which handles jQuery autocomplete requests for tag.
 
+=back
+
 =cut
 
 sub tagsearch : Local {

lib/MojoMojo/Controller/PageAdmin.pm

@@ -203,6 +203,8 @@ sub permissions : Global {
 
 =head2 rollback
 
+This action will revert a page to a older revision.
+
 =cut
 
 sub rollback : Global {
@@ -215,6 +217,12 @@ sub rollback : Global {
     }
 }
 
+=head2 delete
+
+This action will delete a page.
+
+=cut
+
 sub delete : Global {
     my ( $self, $c, $page ) = @_;
     $c->stash->{page}->delete;

lib/MojoMojo/Controller/Root.pm

@@ -4,6 +4,14 @@ use base 'Catalyst::Controller';
 
 __PACKAGE__->config->{namespace} = '';
 
+=head1 NAME
+
+MojoMojo::Controller::Root
+
+=head1 ACTIONS
+
+=over 4
+
 =item begin (builtin)
 
 =cut
@@ -39,17 +47,21 @@ sub default : Path {
     $c->stash->{template} = 'message.tt';
 }
 
+=item set_lang
+
+(Re)set language of current session.
+
+=cut
+
 sub set_lang :Global {
     my ($self,$c) = @_;
     $c->session->{lang}=$c->req->params->{lang};
     $c->res->redirect($c->req->params->{redir});
 }
 
-=item end (builtin)
+=item render
 
-At the end of any request, forward to view unless there is a template
-or response. then render the template. If param 'die' is passed, 
-show a debug screen.
+Finally use ActionClass RenderView to render the content.
 
 =cut
 
@@ -59,6 +71,14 @@ sub render : ActionClass('RenderView') {
     $c->stash->{path} ||= '/';
 }
 
+=item end (builtin)
+
+At the end of any request, forward to view unless there is a template
+or response. then render the template. If param 'die' is passed, 
+show a debug screen.
+
+=cut
+
 sub end : Private {
     my ( $self, $c ) = @_;
     $c->req->uri->path( $c->stash->{pre_hacked_uri}->path )
@@ -94,4 +114,13 @@ sub auto : Private {
     $c->stash->{template} = 'user/validate.tt';
 }
 
+=back
+
+=head1 LICENSE
+
+This library is free software . You can redistribute it and/or modify 
+it under the same terms as perl itself.
+
+=cut
+
 1;

lib/MojoMojo/Formatter/Markdown.pm

@@ -14,8 +14,6 @@ unless ($@) {
     );
 }
 
-sub primary_formatter { 1; }
-
 =head1 NAME
 
 MojoMojo::Formatter::MarkDown - Texile formatting for your content
@@ -29,6 +27,14 @@ syntax for writing human-friendly formatted text.
 
 =over 4
 
+=item primary_formatter
+
+See also L<MojoMojo::Formatter/primary_formatter>.
+
+=cut
+
+sub primary_formatter { 1; }
+
 =item format_content_order
 
 Format order can be 1-99. The Markdown formatter runs on 15

lib/MojoMojo/Formatter/Textile.pm

@@ -6,8 +6,6 @@ use Text::Textile2;
 use Text::SmartyPants;
 my $textile = Text::Textile2->new( flavor => "xhtml1", charset => 'utf-8' );
 
-sub primary_formatter { 1; }
-
 =head1 NAME
 
 MojoMojo::Formatter::Textile - Texile formatting for your content
@@ -21,6 +19,14 @@ syntax for writing human-friendly formatted text.
 
 =over 4
 
+=item primary_formatter
+
+See also L<MojoMojo::Formatter/primary_formatter>.
+
+=cut
+
+sub primary_formatter { 1; }
+
 =item format_content_order
 
 Format order can be 1-99. The Textile formatter runs on 15

lib/MojoMojo/Model/Search.pm

@@ -13,6 +13,16 @@ use KinoSearch::QueryParser::QueryParser;
 
 __PACKAGE__->config->{index_dir} ||= MojoMojo->path_to('/index');
 
+=head1 NAME
+
+MojoMojo::Controller::Search
+
+=head1 ACTIONS
+
+=over 4
+
+=cut
+
 my $invindexer;
 my $analyzer
     = KinoSearch::Analysis::PolyAnalyzer->new( language => 'en');

lib/MojoMojo/Schema.pm

@@ -11,6 +11,20 @@ use base 'DBIx::Class::Schema';
 
 __PACKAGE__->load_namespaces( default_resultset_class => '+MojoMojo::Schema::Base::ResultSet' );
 
+=head1 NAME
+
+MojoMojo::Schema
+
+=head1 METHODS
+
+=over 4
+
+=item create_initial_data
+
+Creates initial set of data in the database which is necessary to run MojoMojo.
+
+=cut
+
 sub create_initial_data {
     my $schema = shift;
     print "Creating initial data\n";
@@ -135,4 +149,13 @@ This is the default home node for the admin user. You can change this text by pr
     print "Success!\n";
 }
 
+=back
+
+=head1 LICENSE
+
+This library is free software . You can redistribute it and/or modify 
+it under the same terms as perl itself.
+
+=cut
+
 1;

lib/MojoMojo/Schema/Base/Result.pm

@@ -4,4 +4,19 @@ use strict;
 use warnings;
 use base qw/DBIx::Class/;
 
+=head1 NAME
+
+MojoMojo::Schema::Base::Result
+
+=head1 DESCRIPTION
+
+Base class for all result classes below MojoMojo::Schema::Result::* namespace.
+
+=head1 LICENSE
+
+This library is free software . You can redistribute it and/or modify 
+it under the same terms as perl itself.
+
+=cut
+
 1;

lib/MojoMojo/Schema/Base/ResultSet.pm

@@ -4,4 +4,19 @@ use strict;
 use warnings;
 use base qw/DBIx::Class::ResultSet/;
 
+=head1 NAME
+
+MojoMojo::Schema::Base::ResultSet
+
+=head1 DESCRIPTION
+
+Base class for all resultsets below MojoMojo::Schema::ResultSet::* namespace.
+
+=head1 LICENSE
+
+This library is free software . You can redistribute it and/or modify 
+it under the same terms as perl itself.
+
+=cut
+
 1;