File Coverage

inc/Test2/Event/Skip.pm

Criterion	Covered	Total	%
statement	11	21	52.3
branch	0	2	0.0
condition			n/a
subroutine	4	7	57.1
pod	2	3	66.6
total	17	33	51.5

#line 1
package Test2::Event::Skip;
use strict;
use warnings;

our $VERSION = '1.302073';


BEGIN { require Test2::Event::Ok; our @ISA = qw(Test2::Event::Ok) }
use Test2::Util::HashBase qw{reason};

sub init {
    my $self = shift;
    $self->SUPER::init;
    $self->{+EFFECTIVE_PASS} = 1;
}

sub causes_fail { 0 }

sub summary {
    my $self = shift;
    my $out = $self->SUPER::summary(@_);

    if (my $reason = $self->reason) {
        $out .= " (SKIP: $reason)";
    }
    else {
        $out .= " (SKIP)";
    }

    return $out;
}

1;

__END__