Implement strict constructors, which will warn unkown constructor arguments
[gitmo/Mouse.git] / xt / external / pod-coverage-moose.t
1 use strict;
2 use warnings;
3 use Test::More;
4 use FindBin;
5 use File::Spec;
6 use lib File::Spec->catfile($FindBin::Bin, 'lib');
7
8 plan skip_all => 'This test requires Pod::Coverage::Moose' unless eval "use Pod::Coverage::Moose; 1";
9 plan tests => 1;
10
11 # support Pod::Coverage::Moose
12 #   https://rt.cpan.org/Ticket/Display.html?id=47744
13
14 {
15     local $TODO = 'Not supported';
16     my $cov = Pod::Coverage::Moose->new(package => 'Foo');
17     is $cov->coverage, 0.5;
18 }