}
sub BUILDALL {
- # NOTE: we ask Perl if we even
+ # NOTE: we ask Perl if we even
# need to do this first, to avoid
# extra meta level calls
- return unless $_[0]->can('BUILD');
+ return unless $_[0]->can('BUILD');
my ($self, $params) = @_;
foreach my $method (reverse Class::MOP::class_of($self)->find_all_methods_by_name('BUILD')) {
$method->{code}->execute($self, $params);
}
}
-sub DESTROY {
+sub DESTROY {
# if we have an exception here ...
if ($@) {
# localize the $@ ...
}';
}
-# new does() methods will be created
+# new does() methods will be created
# as appropiate see Moose::Meta::Role
sub does {
my ($self, $role_name) = @_;
|| $meta->throw_error("You much supply a role name to does()");
foreach my $class ($meta->class_precedence_list) {
my $m = $meta->initialize($class);
- return 1
- if $m->can('does_role') && $m->does_role($role_name);
+ return 1
+ if $m->can('does_role') && $m->does_role($role_name);
}
- return 0;
+ return 0;
}
-sub dump {
+sub dump {
my $self = shift;
require Data::Dumper;
local $Data::Dumper::Maxdepth = shift if @_;
=head1 BUGS
-All complex software has bugs lurking in it, and this module is no
+All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.
L<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
+it under the same terms as Perl itself.
=cut