11 my $self = $class->meta->new_object(%params);
12 $self->BUILDALL(%params);
17 my ($self, %params) = @_;
18 foreach my $method ($self->meta->find_all_methods_by_name('BUILD')) {
19 $method->{method}->($self, %params);
25 foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
26 $method->{method}->($self);
30 sub DESTROY { goto &DEMOLISHALL }
62 All complex software has bugs lurking in it, and this module is no
63 exception. If you find a bug please either email me, or add the bug
68 I use L<Devel::Cover> to test the code coverage of my tests, below is the
69 L<Devel::Cover> report on this module's test suite.
71 =head1 ACKNOWLEDGEMENTS
75 Stevan Little E<lt>stevan@iinteractive.comE<gt>
77 =head1 COPYRIGHT AND LICENSE
79 Copyright 2006 by Infinity Interactive, Inc.
81 L<http://www.iinteractive.com>
83 This library is free software; you can redistribute it and/or modify
84 it under the same terms as Perl itself.