File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch	6	6	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	2	50.0
total	39	40	97.5

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

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

use base 'Test::Stream::Event';
use Test::Stream::HashBase 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__