Injecting Sub::StrictSubs into 'use strict'

strict_subs.pm

package strict_subs;

use strict;
use warnings;
use Sub::StrictDecl;

sub DB{}

sub import
{
    my $orig = \&strict::import;
    no warnings 'redefine';
    *strict::import = sub {
      Sub::StrictDecl->import;
      goto &$orig
    }
}

1;

strict_subs.t

# Test from https://metacpan.org/source/ZEFRAM/Sub-StrictDecl-0.004/t/check.t

use warnings;
use strict;

use Test::More;

BEGIN { $^H |= 0x20000; }

my $r;

$r = eval(q{
        #use Sub::StrictDecl;
	use strict;
        # sub call
        if(0) { foo0(); }
        1;
});
is $r, undef;
like $@, qr/\AUndeclared subroutine &main::foo0/;

done_testing;