view release on metacpan or  search on metacpan

lib/App/TLSMe.pm  view on Meta::CPAN

sub _drop_privileges {
    my $self = shift;

    if ($self->{user}) {
        $self->_log('Dropping privileges');

        eval { require Privileges::Drop; 1 }
          or do { die "Privileges::Drop is required\n" };

        if ($self->{group}) {
            Privileges::Drop::drop_uidgid($self->{user}, $self->{group});
        }
        else {
            Privileges::Drop::drop_privileges($self->{user});
        }
    }
}

sub _build_http_response {
    my $self = shift;
    my ($status_message, $body) = @_;