1*b8851fccSafresh1package my::pragma; 2*b8851fccSafresh1 3*b8851fccSafresh1require autodie; 4*b8851fccSafresh1use Import::Into qw(into); 5*b8851fccSafresh1 6*b8851fccSafresh1sub import { 7*b8851fccSafresh1 shift(@_); 8*b8851fccSafresh1 autodie->import::into(1, @_); 9*b8851fccSafresh1 return; 10*b8851fccSafresh1} 11*b8851fccSafresh1 12*b8851fccSafresh1sub dont_die { 13*b8851fccSafresh1 open(my $fd, '<', 'random-file'); 14*b8851fccSafresh1 return $fd; 15*b8851fccSafresh1} 16*b8851fccSafresh1 17*b8851fccSafresh11; 18