view release on metacpan or  search on metacpan

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

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$/) {
        $lock = Lock::File->new($TRACKER_HOME.'/tracker_gtk3statusicon.lock', { blocking=>0 });
        unless ($lock) {
            say "tracker_gtk3statusicon.pl seems to be running already...";
            exit 0;
        }
    }

    Gtk3->init;