diff --git a/Parser.pm b/Parser.pm index c938e8c..29fbb75 100644 --- a/Parser.pm +++ b/Parser.pm @@ -9,6 +9,7 @@ package XML::Parser; use strict; +use warnings; our ( $VERSION, $LWP_load_failed ); diff --git a/Parser/Style/Debug.pm b/Parser/Style/Debug.pm index bc2b654..ce385a1 100644 --- a/Parser/Style/Debug.pm +++ b/Parser/Style/Debug.pm @@ -2,6 +2,7 @@ package XML::Parser::Style::Debug; use strict; +use warnings; sub Start { my $expat = shift; diff --git a/Parser/Style/Objects.pm b/Parser/Style/Objects.pm index 2412ccb..a6563b7 100644 --- a/Parser/Style/Objects.pm +++ b/Parser/Style/Objects.pm @@ -2,6 +2,7 @@ package XML::Parser::Style::Objects; use strict; +use warnings; sub Init { my $expat = shift; diff --git a/Parser/Style/Stream.pm b/Parser/Style/Stream.pm index b0e67fd..60f6612 100644 --- a/Parser/Style/Stream.pm +++ b/Parser/Style/Stream.pm @@ -2,6 +2,7 @@ package XML::Parser::Style::Stream; use strict; +use warnings; # This style invented by Tim Bray diff --git a/Parser/Style/Subs.pm b/Parser/Style/Subs.pm index f529810..d545b7b 100644 --- a/Parser/Style/Subs.pm +++ b/Parser/Style/Subs.pm @@ -2,6 +2,7 @@ package XML::Parser::Style::Subs; use strict; +use warnings; sub Start { no strict 'refs'; diff --git a/Parser/Style/Tree.pm b/Parser/Style/Tree.pm index 05901ec..fef3b8b 100644 --- a/Parser/Style/Tree.pm +++ b/Parser/Style/Tree.pm @@ -2,6 +2,7 @@ package XML::Parser::Style::Tree; use strict; +use warnings; sub Init { my $expat = shift;