=cut
-use 5.005_64;
+use 5.006_001;
use strict;
no strict 'refs';
use warnings::register;
our(%attr, $VERSION);
-$VERSION = "1.01";
+$VERSION = "1.02";
# some constants
sub _PUBLIC () { 1 }
if ($fno and $fno != $next) {
require Carp;
if ($fno < $fattr->[0]) {
- warnings::warn("Hides field '$f' in base class")
- if warnings::enabled();
+ warnings::warnif("Hides field '$f' in base class") ;
} else {
Carp::croak("Field name '$f' already in use");
}