Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Make all warnings fatal

  • Loading branch information...
commit ff3bafe31e614f1b6818300c9d83611b4fa2cdc5 1 parent a22b28a
Hinrik Örn Sigurðsson authored
1  Changes
... ... @@ -1,5 +1,6 @@
1 1 {{$NEXT}}
2 2 - Use Dist::Zilla
  3 + - Make all warnings fatal
3 4
4 5 0.21 Wed Jun 16 19:36:56 GMT 2010
5 6 - Add -U/--update to download latest versions of documents from the web
2  bin/grok
@@ -2,7 +2,7 @@
2 2
3 3 package grok;
4 4 use strict;
5   -use warnings;
  5 +use warnings FATAL => 'all';
6 6
7 7 use App::Grok;
8 8 my $grok = App::Grok->new();
2  lib/App/Grok.pm
... ... @@ -1,7 +1,7 @@
1 1 package App::Grok;
2 2
3 3 use strict;
4   -use warnings;
  4 +use warnings FATAL => 'all';
5 5 use App::Grok::Resource::File qw<:ALL>;
6 6 use App::Grok::Resource::Functions qw<:ALL>;
7 7 use App::Grok::Resource::Spec qw<:ALL>;
2  lib/App/Grok/Common.pm
... ... @@ -1,7 +1,7 @@
1 1 package App::Grok::Common;
2 2
3 3 use strict;
4   -use warnings;
  4 +use warnings FATAL => 'all';
5 5 use File::HomeDir qw<my_data>;
6 6 use File::Spec::Functions qw<catdir>;
7 7
2  lib/App/Grok/Parser/Pod5.pm
... ... @@ -1,7 +1,7 @@
1 1 package App::Grok::Parser::Pod5;
2 2
3 3 use strict;
4   -use warnings;
  4 +use warnings FATAL => 'all';
5 5 use File::Temp qw<tempfile>;
6 6
7 7 my %formatter = (
2  lib/App/Grok/Parser/Pod6.pm
@@ -4,7 +4,7 @@ package App::Grok::Parser::Pod6;
4 4 use Perl6::Perldoc::Parser;
5 5
6 6 use strict;
7   -use warnings;
  7 +use warnings FATAL => 'all';
8 8
9 9 sub new {
10 10 my ($package, %self) = @_;
2  lib/App/Grok/Resource/File.pm
... ... @@ -1,7 +1,7 @@
1 1 package App::Grok::Resource::File;
2 2
3 3 use strict;
4   -use warnings;
  4 +use warnings FATAL => 'all';
5 5
6 6 use base qw(Exporter);
7 7 our @EXPORT_OK = qw(file_index file_fetch file_locate);
2  lib/App/Grok/Resource/Functions.pm
... ... @@ -1,7 +1,7 @@
1 1 package App::Grok::Resource::Functions;
2 2
3 3 use strict;
4   -use warnings;
  4 +use warnings FATAL => 'all';
5 5 use File::ShareDir qw<dist_dir>;
6 6 use File::Spec::Functions qw<catdir catfile splitpath>;
7 7
2  lib/App/Grok/Resource/Spec.pm
... ... @@ -1,7 +1,7 @@
1 1 package App::Grok::Resource::Spec;
2 2
3 3 use strict;
4   -use warnings;
  4 +use warnings FATAL => 'all';
5 5 use App::Grok::Common qw<data_dir download>;
6 6 use File::ShareDir qw<dist_dir>;
7 7 use File::Spec::Functions qw<catdir catfile splitpath>;
2  lib/App/Grok/Resource/Tablet.pm
... ... @@ -1,7 +1,7 @@
1 1 package App::Grok::Resource::Tablet;
2 2
3 3 use strict;
4   -use warnings;
  4 +use warnings FATAL => 'all';
5 5 use App::Grok::Common qw<data_dir download>;
6 6 use File::ShareDir qw<dist_dir>;
7 7 use File::Spec::Functions qw<catdir catfile>;
2  lib/App/Grok/Resource/u4x.pm
... ... @@ -1,7 +1,7 @@
1 1 package App::Grok::Resource::u4x;
2 2
3 3 use strict;
4   -use warnings;
  4 +use warnings FATAL => 'all';
5 5
6 6 use base qw(Exporter);
7 7 our @EXPORT_OK = qw(u4x_index u4x_fetch u4x_locate);
2  t/01_compile.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use Test::More tests => 4;
4 4 use Test::Script;
5 5 use Pod::Simple ();
2  t/02_source/01_pod5.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 4;
5 5 use App::Grok::Parser::Pod5;
2  t/02_source/02_pod6.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 4;
5 5 use App::Grok::Parser::Pod6;
2  t/03_opts/01_file.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 6;
5 5
2  t/03_opts/02_output.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 14;
5 5
2  t/03_opts/03_help.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 2;
5 5
2  t/03_opts/04_version.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 2;
5 5
2  t/03_opts/05_no_pager.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 2;
5 5
2  t/03_opts/06_index.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 6;
5 5
2  t/03_opts/07_locate.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 2;
5 5
2  t/04_targets/01_file.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 1;
5 5
2  t/04_targets/02_synopsis.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 4;
5 5
2  t/04_targets/03_function.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 2;
5 5
2  t/04_targets/04_tablet.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 2;
5 5
2  t/04_targets/05_failure.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 1;
5 5
2  t/04_targets/06_man_page.t
... ... @@ -1,5 +1,5 @@
1 1 use strict;
2   -use warnings;
  2 +use warnings FATAL => 'all';
3 3 use File::Spec::Functions 'catfile';
4 4 use Test::More tests => 2;
5 5

0 comments on commit ff3bafe

Please sign in to comment.
Something went wrong with that request. Please try again.