diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-01-20 00:00:25 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-01-20 00:00:25 -0600 |
| commit | 768fb16513a43afb422698ad4726a447669f8bfc (patch) | |
| tree | 3790052e878567fc5ba7dcf9584aa44a5976099d /lib | |
| parent | 3e269be59e146b4cd2da89f01195c81e82de31e1 (diff) | |
| download | moosex-mangle-768fb16513a43afb422698ad4726a447669f8bfc.tar.gz moosex-mangle-768fb16513a43afb422698ad4726a447669f8bfc.zip | |
propagate void context correctly
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/MooseX/Mangle.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/MooseX/Mangle.pm b/lib/MooseX/Mangle.pm index 51531e6..57c7dd6 100644 --- a/lib/MooseX/Mangle.pm +++ b/lib/MooseX/Mangle.pm @@ -86,10 +86,15 @@ sub mangle_return { my @ret = $self->$orig(@_); return $self->$code(@ret); } - else { + elsif (defined(wantarray)) { my $ret = $self->$orig(@_); return $self->$code($ret); } + else { + $self->$orig(@_); + $self->$code(); + return; + } }); } |