File Coverage

blib/lib/Test2/Require.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	4	4	100.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	1	0.0
total	31	34	91.1

package Test2::Require;
use strict;
use warnings;

our $VERSION = '0.000155';

use Test2::API qw/context/;
use Carp qw/croak/;

sub skip {
    my $class = shift;
    croak "Class '$class' needs to implement 'skip()'";
}

sub import {
    my $class = shift;
    return if $class eq __PACKAGE__;

    my $skip = $class->skip(@_);
    return unless defined $skip;

    my $ctx = context();
    $ctx->plan(0, SKIP => $skip || "No reason given.");
    $ctx->release;
}

1;

__END__