diff options
author | dakkar <dakkar@thenautilus.net> | 2021-05-01 11:47:39 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2021-05-01 11:47:39 +0100 |
commit | 331ec8d9908d1eb60ab9651319e3815d20951019 (patch) | |
tree | 6e5f7815c97898804be906c2e96adb082aeb9205 /lib/App/XScreenSaver/DBus.pm | |
parent | v1.0.2 (diff) | |
parent | Dzil-build release 1.0.1 (from 1cf4211 on master) (diff) | |
download | xscreensaver-dbus-57a322fb381a87827480d63963eb6e6ad6c15d7c.tar.gz xscreensaver-dbus-57a322fb381a87827480d63963eb6e6ad6c15d7c.tar.bz2 xscreensaver-dbus-57a322fb381a87827480d63963eb6e6ad6c15d7c.zip |
Dzil-build release 1.0.2 (from 9b55673 on master)v1.0.2
Diffstat (limited to 'lib/App/XScreenSaver/DBus.pm')
-rw-r--r-- | lib/App/XScreenSaver/DBus.pm | 91 |
1 files changed, 59 insertions, 32 deletions
diff --git a/lib/App/XScreenSaver/DBus.pm b/lib/App/XScreenSaver/DBus.pm index 2ab384a..86a6368 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::InhibitSleep; use App::XScreenSaver::DBus::Saver; -# VERSION +our $VERSION = '1.0.2'; # VERSION # ABSTRACT: main application class -=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<inhibit_sleep> - -instance of L<< C<App::XScreenSaver::DBus::InhibitSleep> >>. - -=cut has inhibit_sleep => ( is => 'lazy', builder => sub { App::XScreenSaver::DBus::InhibitSleep->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->inhibit_sleep->start(); @@ -71,3 +40,61 @@ sub run($self) { } 1; + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +App::XScreenSaver::DBus - main application class + +=head1 VERSION + +version 1.0.2 + +=head1 SYNOPSIS + + use App::XScreenSaver::DBus; + App::XScreenSaver::DBus->new->run; + +=head1 ATTRIBUTES + +=head2 C<reactor> + +the event loop + +=head2 C<inhibit_sleep> + +instance of L<< C<App::XScreenSaver::DBus::InhibitSleep> >>. + +=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 |