view release on metacpan or  search on metacpan

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

            for my $i (0 .. 2) {
                $items[$i]->set_label($task->{lines}[$i]);
            }
        }
    );
    $loop->add( $file );

    Gtk3->main if $run;
}

sub get_current_task() {
    my $task = App::TimeTracker::Data::Task->current($TRACKER_HOME);
    if ($task) {
        return {
            status => 'busy',
            lines => [
                $task->project,
                $task->id || 'no id',
                $task->description || 'no description',
            ],
        }