[libclass-virtual-perl] 01/06: Use strict & warnings pragmas

[dom at earth.li]

This is an automated email from the git hooks/post-receive script.

dom pushed a commit to tag v0.08
in repository libclass-virtual-perl.

commit cd4618a2db6c487b524c4ff8645fa5a6ad0cce4e
Author: Denis Ibaev <dionys at gmail.com>
Date:   Thu Jun 9 22:40:23 2016 +0400

    Use strict & warnings pragmas
---
 lib/Class/Virtual.pm            |  1 +
 lib/Class/Virtually/Abstract.pm | 10 ++++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/lib/Class/Virtual.pm b/lib/Class/Virtual.pm
index 8a55119..2c9272e 100644
--- a/lib/Class/Virtual.pm
+++ b/lib/Class/Virtual.pm
@@ -1,6 +1,7 @@
 package Class::Virtual;
 
 use strict;
+use warnings;
 use vars qw($VERSION @ISA);
 $VERSION = '0.07';
 
diff --git a/lib/Class/Virtually/Abstract.pm b/lib/Class/Virtually/Abstract.pm
index 1b8b30e..2b6baca 100644
--- a/lib/Class/Virtually/Abstract.pm
+++ b/lib/Class/Virtually/Abstract.pm
@@ -1,11 +1,11 @@
 package Class::Virtually::Abstract;
 
-require Class::Virtual;
- at ISA = qw(Class::Virtual);
-
 use strict;
+use warnings;
+use vars qw(%Registered $VERSION @ISA);
 
-use vars qw(%Registered $VERSION);
+require Class::Virtual;
+ at ISA = qw(Class::Virtual);
 $VERSION = '0.07';
 
 {
@@ -32,6 +32,8 @@ $VERSION = '0.07';
             eval <<"IMPORT";
             package $base_class;
 
+            no warnings 'redefine';
+
             sub import {
                 my \$class = shift;
                 return if \$class eq '$base_class';

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libclass-virtual-perl.git