view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Changes
INSTALL
LICENSE
MANIFEST
META.json
README.md
bin/tracker_gtk3statusicon.pl
cpanfile
dist.ini
lib/App/TimeTracker/Gtk3StatusIcon.pm
share/busy.png
share/lazy.png
t/00-compile.t
t/it_lives.t

lib/App/TimeTracker/Gtk3StatusIcon.pm  view on Meta::CPAN

use IO::Async::File;
use IO::Async::Loop::Glib;
use Lock::File;

use App::TimeTracker::Proto 3.100;
use App::TimeTracker::Data::Task;
use File::Share qw(dist_file);
use Clipboard;

my %ICONS = (
    lazy => dist_file( 'App-TimeTracker-Gtk3StatusIcon', 'lazy.png' ),
    busy => dist_file( 'App-TimeTracker-Gtk3StatusIcon', 'busy.png' ),
);

my $TRACKER_HOME = App::TimeTracker::Proto->new->home;

sub init {
    my ($class, $run) = @_;

    my @caller = caller();
    my $lock;
    if ($caller[1] =~ /tracker_gtk3statusicon.pl$/) {