view release on metacpan or  search on metacpan

script/tt  view on Meta::CPAN

sub _fill_event {
  my ($self, $event) = @_;

  my $project = $self->project;
  $project ||= App::tt::file->new->basename if -d '.git';
  $project ||= $self->config('project');

  $event->{__CLASS__}   ||= 'App::TimeTracker::Data::Task';
  $event->{project}     ||= $project;
  $event->{seconds}     ||= 0;
  $event->{user}        ||= scalar(getpwuid $<);
  $event->{tags}        ||= [$self->_tags];
  $event->{description} ||= $self->description // '';

  return $event;
}

sub _print {
  my ($self, $data, @args) = @_;

  if (ref $data eq 'ARRAY') {