File Coverage

blib/lib/Require/HookChain/source/test/str.pm

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

## no critic: TestingAndDebugging::RequireUseStrict
package Require::HookChain::source::test::str;

#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, $src) = @_;
    bless { src => $src }, $class;
}

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

    # safety, in case we are not called by Require::HookChain
    return () unless ref $r;

    return if defined $r->src;

    $r->src($self->{src});
    return 1;
}

1;
# ABSTRACT: Use a constant string as source code

__END__