use if ( not our $__mx_is_compiled ), 'Moose::Meta::Class';
use if ( not our $__mx_is_compiled ), metaclass => 'Moose::Meta::Class';
-our $VERSION = '0.66';
+our $VERSION = '0.72';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub DEMOLISHALL {
my $self = shift;
+ # NOTE: we ask Perl if we even
+ # need to do this first, to avoid
+ # extra meta level calls
+ return unless $self->can('DEMOLISH');
foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
$method->{code}->execute($self);
}
}
sub DESTROY {
- # NOTE: we ask Perl if we even
- # need to do this first, to avoid
- # extra meta level calls
- return unless $_[0]->can('DEMOLISH');
# if we have an exception here ...
if ($@) {
# localize the $@ ...
return 0;
}
-# RANT:
-# Cmon, how many times have you written
-# the following code while debugging:
-#
-# use Data::Dumper;
-# warn Dumper \%thing;
-#
-# It can get seriously annoying, so why
-# not just do this ...
sub dump {
my $self = shift;
require Data::Dumper;
=item B<dump ($maxdepth)>
-Cmon, how many times have you written the following code while debugging:
+C'mon, how many times have you written the following code while debugging:
use Data::Dumper;
warn Dumper $obj;