From 68dd8561d3330ca8e98c166a59d330bb2fa19e6e Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 6 Jun 2016 20:50:20 +0100
Subject: [PATCH 1/2] - Add missing 'use warnings;' as reported by CPANTS.

---
 lib/Kwalify.pm        | 1 +
 lib/Schema/Kwalify.pm | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/lib/Kwalify.pm b/lib/Kwalify.pm
index b06aebe..04149cb 100644
--- a/lib/Kwalify.pm
+++ b/lib/Kwalify.pm
@@ -14,6 +14,7 @@
 package Kwalify;
 
 use strict;
+use warnings;
 
 use base qw(Exporter);
 use vars qw(@EXPORT_OK $VERSION);
diff --git a/lib/Schema/Kwalify.pm b/lib/Schema/Kwalify.pm
index 4f47a53..b25f9c1 100644
--- 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+)/);
 

From 2525df87f06f38d11e45d0995cc3366b80323f44 Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 7 Jun 2016 19:31:43 +0100
Subject: [PATCH 2/2] Removed BEGIN {} as suggested by the author ESERTE.

---
 lib/Kwalify.pm | 8 --------
 1 file changed, 8 deletions(-)

diff --git a/lib/Kwalify.pm b/lib/Kwalify.pm
index 04149cb..73965c1 100644
--- a/lib/Kwalify.pm
+++ b/lib/Kwalify.pm
@@ -22,14 +22,6 @@ use vars qw(@EXPORT_OK $VERSION);
 
 $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;