File Coverage

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

Criterion	Covered	Total	%
statement	0	8	0.0
branch	0	4	0.0
condition			n/a
subroutine	0	2	0.0
pod	0	2	0.0
total	0	16	0.0

## no critic: TestingAndDebugging::RequireUseStrict
package Require::HookChain::test::random_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, $probability) = @_;
    $probability = 0.5 unless defined $probability;
    bless {probability=>$probability}, $class;
}

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

    if (rand() < $self->{probability}) {
        my $filename = $r->filename;
        die "Can't locate $filename: test::random_fail";
    }
    ();
}

1;
# ABSTRACT: Fail a module loading randomly

__END__