File Coverage

blib/lib/Test/Stream/Event/Note.pm

Criterion	Covered	Total	%
statement	22	22	100.0
branch	6	6	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	35	36	97.2

package Test::Stream::Event::Note;
use strict;
use warnings;

use Test::Stream::Formatter::TAP qw/OUT_STD/;

use Test::Stream::Event(
    accessors  => [qw/message/],
);

sub init {
    $_[0]->SUPER::init();
    if (defined $_[0]->{+MESSAGE}) {
        $_[0]->{+MESSAGE} .= "";
    }
    else {
        $_[0]->{+MESSAGE} = 'undef';
    }
}

sub to_tap {
    my $self = shift;

    chomp(my $msg = $self->{+MESSAGE});
    return unless $msg;
    $msg = "# $msg" unless $msg =~ m/^\n/;
    $msg =~ s/\n/\n# /g;

    return [OUT_STD, "$msg\n"];
}

1;

__END__