#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
BEGIN {
eval 'use Import::Into 1.002004';
plan skip_all => 'Test needs Import::Into >= 1.002004' if $@;
}
use FindBin;
use lib "$FindBin::Bin/lib";
use my::pragma qw(open);
plan tests => 1;
my::pragma->dont_die();
eval {
open(my $fd, '<', 'random-file');
};
ok($@, 'my::pragma can use import::into');