Fix a shitload "used once, possible typo" warnings.

[catagits/Catalyst-Runtime.git] / lib / Catalyst / ClassData.pm

diff --git a/lib/Catalyst/ClassData.pm b/lib/Catalyst/ClassData.pm
index 154062a..2b00412 100644 (file)
--- a/lib/Catalyst/ClassData.pm
+++ b/lib/Catalyst/ClassData.pm
@@ -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};
         }