view release on metacpan or  search on metacpan

xt/author/no-ref-util.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More 0.96;
use Test::Without::Module 'Ref::Util';

use Specio::Library::Builtins;

my @types = qw(
    ArrayRef
    CodeRef
    FileHandle
    GlobRef
    HashRef
    Object
    RegexpRef
    ScalarRef
);

for my $t (@types) {
    my $inline = t($t)->_inline_generator('$_[0]');
    unlike(
        $inline,
        qr/Ref::Util/,
        "inline code for $t does not use Ref::Util when it is not available"
    );
}

open my $fh, '<', 't/builtins-sanity.t' or die $!;
## no critic (BuiltinFunctions::ProhibitStringyEval, ErrorHandling::RequireCheckingReturnValueOfEval)
eval do { local $/ = undef; <$fh> };
die $@ if $@;
close $fh or die $!;