Rename generic $name variable to $class-name

samuraisam · Nov 23, 2013 · f0f3e45 · f0f3e45
1 parent 593e24f
commit f0f3e45
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/PB/Model/Generator.pm b/lib/PB/Model/Generator.pm
@@ -73,8 +73,8 @@ class PB::Model::Generator {
             }
         }
 
-        my $name  := $.gen-class-name($msg);
-        my $class := PB::MessageClassHOW.new_type(:$name);
+        my $class-name := $.gen-class-name($msg);
+        my $class      := PB::MessageClassHOW.new_type(:name($class-name));
         $class.HOW.add_parent($class, PB::Message);
 
         for $msg.fields -> $field {
@@ -109,7 +109,7 @@ class PB::Model::Generator {
         }
         $class.^compose;
         # say $class.^perl;
-        take $name, $class;
+        take $class-name, $class;
     }
 }