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 (file)
--- 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 (file)
--- 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;