Permalink
Browse files

Test:: fixes

  • Loading branch information...
1 parent 5588bed commit 1c18a6a28437818a53a3fe7002caba1ccc22b734 @pfischermx committed Aug 13, 2012
Showing with 25 additions and 5 deletions.
  1. +7 −1 Changes
  2. +2 −2 lib/App/Foca/Server.pm
  3. +8 −1 lib/App/Foca/Server/HTTP.pm
  4. +8 −1 t/pod-coverage.t
View
@@ -1,6 +1,12 @@
Revision history for App-Foca
-0.03 06-Aug-2012
+0.05 13-Aug-2012
+ POD tests fixes
+
+0.04 10-Aug-2012
+ Minor fixes.
+
+0.03 01-Aug-2012
Add missing dependency HTTP::Daemon
0.02 01-Aug-2012
View
@@ -114,11 +114,11 @@ use App::Foca::Tools::Logger;
=head1 VERSION
-Version 0.04
+Version 0.05
=cut
-our $VERSION = '0.04';
+our $VERSION = '0.05';
# Some constants
use constant {
@@ -21,7 +21,14 @@ use warnings;
use HTTP::Daemon;
use base qw(HTTP::Daemon);
-# This is the only method we need!
+=head1 Methods
+
+=head2 B<product_tokens()>
+
+Overrides C<product_tokens()> of L<HTTP::Daemon> by making clear this web
+server is 'Foca'.
+
+=cut
sub product_tokens {
my ($self) = @_;
my $parent_token = $self->SUPER::product_tokens();
View
@@ -15,4 +15,11 @@ eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
-all_pod_coverage_ok();
+plan tests => 3;
+# Who the hell documents private methods or BUILD/new (in Moose)?!
+my $trustme = { also_private => [qr/^(new|BUILD)$/] };
+
+
+pod_coverage_ok('App::Foca::Server', $trustme);
+pod_coverage_ok('App::Foca::Server::HTTP', $trustme);
+pod_coverage_ok('App::Foca::Client', $trustme);

0 comments on commit 1c18a6a

Please sign in to comment.