Permalink
Browse files

Don't use an array ref with around, which Moo doesn't seem to like

  • Loading branch information...
1 parent d93f1af commit 14be98906db9d9de4adf07166aa2b44106502ead @leto leto committed May 26, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 lib/Net/OpenStack/Compute.pm
@@ -244,14 +244,19 @@ sub _check_res {
return 1;
}
-around [qw( _get _post _delete )] => sub {
+my $around_sub = sub {
my $orig = shift;
my $self = shift;
my $res = $self->$orig(@_);
_check_res($res);
return $res;
};
+
+for my $s (qw( _get _post _delete )) {
+ around $s => $around_sub;
+}
+
# ABSTRACT: Bindings for the OpenStack Compute API.
=head1 SYNOPSIS

0 comments on commit 14be989

Please sign in to comment.