-#!/usr/bin/env perl
-
# Re RT#58715 and the claim in the documentation:
# If you have Getopt::Long::Descriptive the usage param is also passed to new.
# This tests the fix (that fulfills the documentation claim).
-use strict; use warnings;
-use Test::More tests => 3;
+use strict;
+use warnings FATAL => 'all';
+use Test::More tests => 4;
+use Test::Warnings;
{
package MyClass;
- use strict; use warnings;
+ use strict; use warnings FATAL => 'all';
use Moose;
with 'MooseX::Getopt';
}