view release on metacpan or  search on metacpan

lib/App/XScreenSaver/DBus/Logind.pm  view on Meta::CPAN

    # handle without opening extra descriptors
    open my $fh, '+<&=', $self->inhibit_fd;
    close $fh;
    $self->_set_inhibit_fd(undef);
}

sub _going_to_sleep($self,$before) {
    if ($before) {
        $self->log->debug('locking');
        $self->_xscreensaver_command('-suspend');
        $self->log->debug('locked');
        $self->_uninhibit();
    }
    else {
        $self->log->debug('woken up');
        $self->_xscreensaver_command('-deactivate');
        $self->_inhibit();
    }
    return;
}