1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use Test::More; 7 8BEGIN { 9 eval 'use Import::Into 1.002004'; 10 plan skip_all => 'Test needs Import::Into >= 1.002004' if $@; 11} 12 13use FindBin; 14use lib "$FindBin::Bin/lib"; 15 16use my::pragma qw(open); 17 18plan tests => 1; 19 20my::pragma->dont_die(); 21 22eval { 23 open(my $fd, '<', 'random-file'); 24}; 25ok($@, 'my::pragma can use import::into'); 26 27