summaryrefslogtreecommitdiff
path: root/lib/App/XScreenSaver/DBus.pm
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2021-05-06 15:16:20 +0100
committerdakkar <dakkar@thenautilus.net>2021-05-06 15:16:20 +0100
commita5c49ef9ec2ebf3a00e109d4d3c6418a22d235bd (patch)
tree6ff9f3618b2896c6fc42be1f5e90e2ff817465ac /lib/App/XScreenSaver/DBus.pm
parentv1.0.3 (diff)
parentDzil-build release 1.0.2 (from 9b55673 on master) (diff)
downloadxscreensaver-dbus-a5c49ef9ec2ebf3a00e109d4d3c6418a22d235bd.tar.gz
xscreensaver-dbus-a5c49ef9ec2ebf3a00e109d4d3c6418a22d235bd.tar.bz2
xscreensaver-dbus-a5c49ef9ec2ebf3a00e109d4d3c6418a22d235bd.zip
Dzil-build release 1.0.3 (from 26c0653 on master)v1.0.3
Diffstat (limited to 'lib/App/XScreenSaver/DBus.pm')
-rw-r--r--lib/App/XScreenSaver/DBus.pm91
1 files changed, 59 insertions, 32 deletions
diff --git a/lib/App/XScreenSaver/DBus.pm b/lib/App/XScreenSaver/DBus.pm
index e36d0b6..2a94677 100644
--- a/lib/App/XScreenSaver/DBus.pm
+++ b/lib/App/XScreenSaver/DBus.pm
@@ -6,41 +6,21 @@ use Net::DBus::Reactor;
use Log::Any;
use App::XScreenSaver::DBus::Logind;
use App::XScreenSaver::DBus::Saver;
-# VERSION
+our $VERSION = '1.0.3'; # VERSION
# ABSTRACT: tie xscreensaver into dbus
-=head1 SYNOPSIS
-
- use App::XScreenSaver::DBus;
- App::XScreenSaver::DBus->new->run;
-
-=attr C<reactor>
-
-the event loop
-
-=cut
has reactor => (
is => 'lazy',
builder => sub { Net::DBus::Reactor->main() },
);
-=attr C<logind>
-
-instance of L<< C<App::XScreenSaver::DBus::Logind> >>.
-
-=cut
has logind => (
is => 'lazy',
builder => sub { App::XScreenSaver::DBus::Logind->new() },
);
-=attr C<saver>
-
-instance of L<< C<App::XScreenSaver::DBus::Saver> >>.
-
-=cut
has saver => (
is => 'lazy',
@@ -49,20 +29,9 @@ has saver => (
},
);
-=attr C<log>
-
-a logger
-
-=cut
has log => ( is => 'lazy', builder => sub { Log::Any->get_logger } );
-=method C<run>
-
-registers the DBus services and runs the event loop; this method does
-not return
-
-=cut
sub run($self) {
$self->logind->start();
@@ -71,3 +40,61 @@ sub run($self) {
}
1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+App::XScreenSaver::DBus - tie xscreensaver into dbus
+
+=head1 VERSION
+
+version 1.0.3
+
+=head1 SYNOPSIS
+
+ use App::XScreenSaver::DBus;
+ App::XScreenSaver::DBus->new->run;
+
+=head1 ATTRIBUTES
+
+=head2 C<reactor>
+
+the event loop
+
+=head2 C<logind>
+
+instance of L<< C<App::XScreenSaver::DBus::Logind> >>.
+
+=head2 C<saver>
+
+instance of L<< C<App::XScreenSaver::DBus::Saver> >>.
+
+=head2 C<log>
+
+a logger
+
+=head1 METHODS
+
+=head2 C<run>
+
+registers the DBus services and runs the event loop; this method does
+not return
+
+=head1 AUTHOR
+
+Gianni Ceccarelli <dakkar@thenautilus.net>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2021 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+
+This is free software, licensed under:
+
+ The GNU Affero General Public License, Version 3, November 2007
+
+=cut