File Coverage

blib/lib/Acme/Onion.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	4	50.0
condition	4	6	66.6
subroutine	3	3	100.0
pod			n/a
total	25	29	86.2

package Acme::Onion;
use strict;
use warnings;

our $VERSION = "0.04";

BEGIN {
    push @INC, sub {
        my ($coderef, $file) = @_;

        (my $onion = $file) =~ s/\.pm$/.🧅/;

        for my $dir (@INC) {
            my $filepath = $dir . '/' . $onion;

            next if ! -e $filepath || -d _ || -b _;

            if (open my $fh, '<', $filepath) {
                $INC{$file} = $filepath;
                return $fh;
            }
        }
        return;
    }
};

1;
__END__