9 use Scalar::Util 'blessed';
20 if ($pkg->can('meta')) {
22 (blessed($meta) && $meta->isa('Class::MOP::Class'))
23 || confess "Whoops, not møøsey enough";
26 $meta = Class::MOP::Class->initialize($pkg);
29 $meta->alias_method('has' => sub {
30 my ($name, %options) = @_;
31 my ($init_arg) = ($name =~ /^[\$\@\%][\.\:](.*)$/);
32 $meta->add_attribute($name => (
33 init_arg => $init_arg,
38 $meta->superclasses('Moose::Object')
39 unless $meta->superclasses();
58 has '$.y' => (is => 'rw');
84 All complex software has bugs lurking in it, and this module is no
85 exception. If you find a bug please either email me, or add the bug
90 I use L<Devel::Cover> to test the code coverage of my tests, below is the
91 L<Devel::Cover> report on this module's test suite.
93 =head1 ACKNOWLEDGEMENTS
97 Stevan Little E<lt>stevan@iinteractive.comE<gt>
99 =head1 COPYRIGHT AND LICENSE
101 Copyright 2006 by Infinity Interactive, Inc.
103 L<http://www.iinteractive.com>
105 This library is free software; you can redistribute it and/or modify
106 it under the same terms as Perl itself.