File Coverage

blib/lib/Require/HookChain/test/fail.pm

Criterion	Covered	Total	%
statement	0	5	0.0
branch			n/a
condition			n/a
subroutine	0	2	0.0
pod	0	2	0.0
total	0	9	0.0

## no critic: TestingAndDebugging::RequireUseStrict
package Require::HookChain::test::fail;

# IFUNBUILT
# use strict;
# use warnings;
# END IFUNBUILT

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-12-05'; # DATE
our $DIST = 'Require-HookChain'; # DIST
our $VERSION = '0.016'; # VERSION

sub new {
    my ($class) = @_;
    bless {}, $class;
}

sub Require::HookChain::test::fail::INC {
    my ($self, $r) = @_;

    my $filename = $r->filename;
    die "Can't locate $filename: test::fail";
}

1;
# ABSTRACT: Always fail a module loading

__END__