1#!/usr/bin/perl 2 3# Copyright 2004-2019, Paul Johnson (paul@pjcj.net) 4 5# This software is free. It is licensed under the same terms as Perl itself. 6 7# The latest version of this software should be available from my homepage: 8# http://www.pjcj.net 9 10use lib "tests"; 11 12$x = shift || 0; 13print "1 - $x\n"; 14if ($x) { eval 'use E2' } 15print "3 - $x\n"; 16if ($x < 4) { eval 'use E3' } 17print "4 - $x\n"; 18if ($x < 6) { eval 'use E4' } 19print "5 - $x\n"; 20