Fix a shitload "used once, possible typo" warnings.
Florian Ragwitz [Fri, 5 Dec 2008 07:38:02 +0000 (07:38 +0000)]
lib/Catalyst/ClassData.pm

index 154062a..2b00412 100644 (file)
@@ -30,7 +30,7 @@ sub mk_classdata {
       foreach my $super ( $meta->linearized_isa ) {
         # tighter version of same after
         # my $super_meta = Moose::Meta::Class->initialize($super);
-        my $v = *{"${super}::${attribute}"}{SCALAR};
+        my $v = ${"${super}::"}{$attribute} ? *{"${super}::${attribute}"}{SCALAR} : undef;
         if (defined ${$v}) {
           return ${$v};
         }