diff --git a/lib/Kwalify.pm b/lib/Kwalify.pm index b06aebe..73965c1 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); @@ -21,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; 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+)/);