use Class::MethodMaker
    new_hash_init => 'new',
    object        => [ HTML::Mason::Lexer => 'lexer' ];

##</code><code>##

package CGI::Simple;

use Class::MethodMaker
    new_hash_init => 'new',
    object        => [ CGI => {
                                 slot       => 'query',
                                 comp_mthds => [ 'new',
                                                 'param' ],
                               }
                      ];