Merge pull request #4 from Manwar/fix-cpants-reported-issue

- Add missing 'use warnings;' as reported by CPANTS.
eserte · Jun 7, 2016 · ca73bd2 · ca73bd2
2 parents a071837 + 2525df8
commit ca73bd2
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 8 deletions.
diff --git a/lib/Kwalify.pm b/lib/Kwalify.pm
@@ -14,21 +14,14 @@
 package Kwalify;
 
 use strict;
+use warnings;
 
 use base qw(Exporter);
 use vars qw(@EXPORT_OK $VERSION);
 @EXPORT_OK = qw(validate);
 
 $VERSION = '1.22_90';
 
-BEGIN {
-    if ($] < 5.006) {
-	$INC{"warnings.pm"} = 1;
-	*warnings::import = sub { };
-	*warnings::unimport = sub { };
-    }
-}
-
 sub validate ($$) {
     my($schema, $data) = @_;
     my $self = Kwalify::Validator->new;

diff --git a/lib/Schema/Kwalify.pm b/lib/Schema/Kwalify.pm
@@ -15,6 +15,8 @@
 package Schema::Kwalify;
 
 use strict;
+use warnings;
+
 use vars qw($VERSION);
 $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/);