Commits

Anonymous committed 5b18aa0

Added the pod-coverage test and added Pod coverage.

Comments (0)

Files changed (4)

modules/Mail-LMLM/MANIFEST

 examples/Iglu/Iglu/LMLM/Types/Hamakor.pm
 t/use.t
 t/pod.t
+t/pod-coverage.t
 META.yml                                 Module meta-data (added by MakeMaker)

modules/Mail-LMLM/lib/Mail/LMLM.pm

     },
 );
 
-sub do_nothing
+sub _do_nothing
 {
 }
 
     my ($key, $value);
     $self->{'title'} = "List of Mailing Lists";
     $self->{'headline'} = "List of Mailing Lists";
-    $self->{'prolog'} = $self->{'epilog'} = \&do_nothing;
+    $self->{'prolog'} = $self->{'epilog'} = \&_do_nothing;
     $self->{'extra_classes'} = {};
     while(scalar(@_))
     {
 
 =back
 
+=head1 FUNCTIONS
+
+=head2 initialize()
+
+Called on behalf of the constructor to initialize the module. For internal
+use only.
+
+=head2 my $lmlm = Mail::LMLM->new(%params)
+
+Initializes a new module with %params.
+
+=head2 $lmlm->render()
+
+Renders the pages.
+
 =head1 SEE ALSO
 
 L<Mail::LMLM::Render,1>
 
 =head1 AUTHOR
 
-Shlomi Fish E<lt>shlomif@vipe.technion.ac.ilE<gt>
+Shlomi Fish, L<http://www.shlomifish.org/>
 
 =head1 LICENSE
 

modules/Mail-LMLM/lib/Mail/LMLM/Object.pm

 }
 
 1;
+
+__END__
+
+=head1 Mail::LMLM::Object
+
+Warning! This is an internal Mail::LMLM class. It is used as the base class
+for all LMLM objects.
+
+=head1 FUNCTIONS
+
+=head2 new
+
+The default constructor.
+
+=head2 $self->initialize(@args)
+
+Should be over-rided to initialize the object.
+
+=head2 $self->destroy_()
+
+Destroys the object.
+
+=head2 DESTROY
+
+the default destructor.
+
+=head1 AUTHOR
+
+Shlomi Fish, L<http://www.shlomifish.org/>.

modules/Mail-LMLM/t/pod-coverage.t

+#!perl -T
+
+use Test::More;
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+all_pod_coverage_ok();