GitLab::API: Add a RAII-style guard for sudo()

use URI::QueryParam;

use GitLab::API::Cache;

use GitLab::API::Guard;

use GitLab::API::Iterator;

use parent "Exporter";

}

sub sudo {

    my ($self, $who) = @_;

    my ($self, $who, $code) = @_;

    carp "Using sudo() without administrator privileges"

        if defined $who && !$self->is_admin;

    $self->http->default_header(Sudo => $who);

    $self->{impersonate} = $who;

    return; # don't return default_header's output

    return if !defined $who || (!defined wantarray && !defined $code);

    my $guard = GitLab::API::Guard->new(sub { $self->sudo(undef); });

    return $code->() if defined $code;

    return $guard;

}

sub http     { return shift->{http};     }

package GitLab::API::Guard;

sub new {

    my ($class, $clean) = @_;

    bless { _clean => $clean }, $class;

}

sub DESTROY {

    my ($self) = @_;

    $self->{_clean}->() if defined $self->{_clean};

}

1;