Defining a Class

Create and register the class

.local pmc  grunt_class
newclass    grunt_class, 'Alien::Grunt'

Declare its attributes

adattribute grunt_class, 'name'
adattribute grunt_class, 'rank'
adattribute grunt_class, 'serial_number'

Register the initializer

.local pmc  initializer
new initializer, .PerlString
initializer = '_new'
setprop     grunt_class, 'BUILD', initializer

Methods? Namespaces? Hang on...