From: gfx <gfuji@cpan.org>
Date: Mon, 15 Mar 2010 03:21:19 +0000 (+0900)
Subject: Resolve a todo to pass pod-coverage-moose
X-Git-Tag: 0.51~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21f7fab953e0db7855980b545f8de0ce1c342525;p=gitmo%2FMouse.git

Resolve a todo to pass pod-coverage-moose
---

diff --git a/xt/external/lib/Foo.pm b/xt/external/lib/Foo.pm
index 3fbedeb..0b721df 100644
--- a/xt/external/lib/Foo.pm
+++ b/xt/external/lib/Foo.pm
@@ -11,6 +11,10 @@ has bar => (
     isa => 'Str',
 );
 
+sub baz { }
+sub qux { }
+
+
 no Mouse;
 __PACKAGE__->meta->make_immutable;
 __END__
@@ -27,4 +31,12 @@ Foo - bar
 
 =back
 
+=head1 METHODS
+
+=over 4
+
+=item baz
+
+=back
+
 =cut
diff --git a/xt/external/pod-coverage-moose.t b/xt/external/pod-coverage-moose.t
index 4818f91..6490599 100644
--- a/xt/external/pod-coverage-moose.t
+++ b/xt/external/pod-coverage-moose.t
@@ -11,8 +11,6 @@ plan tests => 1;
 # support Pod::Coverage::Moose
 #   https://rt.cpan.org/Ticket/Display.html?id=47744
 
-{
-    local $TODO = 'Not supported';
-    my $cov = Pod::Coverage::Moose->new(package => 'Foo');
-    is $cov->coverage, 0.5;
-}
+my $cov = Pod::Coverage::Moose->new(package => 'Foo');
+is $cov->coverage, 0.5
+    or diag "why unrated? - " . $cov->why_unrated;