projects
/
gitmo/Mouse.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Fix Makefile.PL to remove old xt/compatibility/* tests, and organize Mouse::Util
[gitmo/Mouse.git]
/
lib
/
Mouse
/
Meta
/
Method
/
Destructor.pm
diff --git
a/lib/Mouse/Meta/Method/Destructor.pm
b/lib/Mouse/Meta/Method/Destructor.pm
index
623e7d7
..
904b413
100644
(file)
--- a/
lib/Mouse/Meta/Method/Destructor.pm
+++ b/
lib/Mouse/Meta/Method/Destructor.pm
@@
-16,7
+16,7
@@
sub generate_destructor_method_inline {
}
join "\n", @code;
} else {
- ''; # no demolish =)
+ return sub { }; # no demolish =)
}
};
@@
-26,12
+26,11
@@
sub generate_destructor_method_inline {
$demolishall;
}
...
- warn $code if $ENV{DEBUG};
local $@;
my $res = eval $code;
die $@ if $@;
- $res;
+ return $res;
}
1;