Index: /lang/perl/Shika/trunk/lib/Shika.pm
===================================================================
--- /lang/perl/Shika/trunk/lib/Shika.pm (revision 25099)
+++ /lang/perl/Shika/trunk/lib/Shika.pm (revision 25100)
@@ -77,5 +77,9 @@
     my $has = \%attr;
     no strict 'refs';
+
+    # header
     my $code = qq!sub {!;
+
+    # construct getter
     $code .= qq!  if (\@_ == 1) {!;
     if ($attr{lazy}) {
@@ -96,6 +100,12 @@
     }
     $code .= qq!  }!;
+
+    # setter
     $code .= qq!  return \$_[0]->{$n} = \$_[1] if \@_ == 2;!;
+
+    # setter multi
     $code .= qq!  shift->{$n} = \\\@_;!;
+
+    # footer
     $code .= qq!}!;
     *{"$pkg\::$n"} = eval $code; ## no critic.