File Coverage

blib/lib/TAP/Formatter/GitHubActions/Utils.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	20	21	95.2

package TAP::Formatter::GitHubActions::Utils;

use strict;
use warnings;
use v5.16;

our @EXPORT_OK = qw(log_annotation_line);

sub log_annotation_line {
  my (%args) = @_;

  my $body = $args{body};
  my $title = $args{title};

  # If title is given, write it, else just keep body
  my $line = $title ? (
    "::%s file=%s,line=%s,title=${title}::%s"
  ) : (
    "::%s file=%s,line=%s::%s"
  );

  $body =~ s/\n/%0A/mg;

  return sprintf(
    $line,
    $args{type}, $args{filename}, $args{line}, $body
  );
}

1;
__END__