2 package Moose::Compiler::Perl6;
7 with 'Moose::Compiler::Engine';
10 my ($self, $meta) = @_;
12 $o .= ('class ' . $meta->name . "-" . $meta->version . " {\n");
14 foreach my $attr_name ($meta->get_attribute_list) {
15 my $attr = $meta->get_attribute($attr_name);
17 push @options => ("is " . $attr->_is_metadata . "")
18 if $attr->_is_metadata;
19 push @options => ("does " . $attr->_does_metadata . "")
20 if $attr->_does_metadata;
21 $o .= (" has " . ($attr->_isa_metadata ? ($attr->_isa_metadata . " ") : '')
22 . "\$" . $attr->name . " " . (join " " => @options) . ";\n");
37 Moose::Compiler::Perl6 - A Moose compiler engine for compiling to Perl 6
47 This will return the metaclass associated with the given role.
49 =item B<compile_class>
55 All complex software has bugs lurking in it, and this module is no
56 exception. If you find a bug please either email me, or add the bug
61 Stevan Little E<lt>stevan@iinteractive.comE<gt>
63 =head1 COPYRIGHT AND LICENSE
65 Copyright 2006 by Infinity Interactive, Inc.
67 L<http://www.iinteractive.com>
69 This library is free software; you can redistribute it and/or modify
70 it under the same terms as Perl itself.