RT #110096, attributes in a sub in a class

S12-attributes/instance.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 138;
+plan 139;
 
 =begin pod
 
@@ -672,6 +672,17 @@ eval_dies_ok q[class A { has $!a }; my $a = A.new(a => 42);
     is $c, 3, 'Correct flattening behavior for array attributes';
 }
 
+# RT #110096
+{
+    class AttrInSub {
+        sub f {
+            has $.x;
+        }
+    }
+    is AttrInSub.new(x => 42).x, 42, 'Attribute declaration can be in sub-scope too';
+
+}
+
 done();
 
 # vim: ft=perl6