From 15be5213c8cedc3cefc7f1682e752ff5483d287e Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Thu, 6 May 2021 15:04:16 +0100
Subject: lock the screen when logind says so

---
 lib/App/XScreenSaver/DBus.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'lib/App/XScreenSaver/DBus.pm')

diff --git a/lib/App/XScreenSaver/DBus.pm b/lib/App/XScreenSaver/DBus.pm
index 2ab384a..db9355f 100644
--- a/lib/App/XScreenSaver/DBus.pm
+++ b/lib/App/XScreenSaver/DBus.pm
@@ -6,6 +6,7 @@ use Net::DBus::Reactor;
 use Log::Any;
 use App::XScreenSaver::DBus::InhibitSleep;
 use App::XScreenSaver::DBus::Saver;
+use App::XScreenSaver::DBus::Lock;
 # VERSION
 # ABSTRACT: main application class
 
@@ -49,6 +50,17 @@ has saver => (
     },
 );
 
+=attr C<lock>
+
+instance of L<< C<App::XScreenSaver::DBus::Lock> >>.
+
+=cut
+
+has lock => (
+    is => 'lazy',
+    builder => sub { App::XScreenSaver::DBus::Lock->new() },
+);
+
 =attr C<log>
 
 a logger
@@ -67,6 +79,7 @@ not return
 sub run($self) {
     $self->inhibit_sleep->start();
     $self->saver->start();
+    $self->lock->start();
     $self->reactor->run;
 }
 
-- 
cgit v1.2.3