1#!/usr/bin/perl -Tw 2 3use Test::More tests => 10; 4use_ok "UNIVERSAL::require"; 5 6use lib qw(t); 7 8my $Filename = quotemeta $0; 9 10is( Dummy->use, 23 ); 11 12is( Dummy->use("foo", "bar"), 1 ); 13is( foo(), 42 ); 14is( bar(), 23 ); 15 16ok( !Dummy->use(1) ); 17is( $UNIVERSAL::require::ERROR, $@ ); 18 19#line 23 20ok( !Dont::Exist->use ); 21like( $@, qq[/^Can't locate Dont/Exist.pm in .* at $Filename line 23\./] ); 22is( $UNIVERSAL::require::ERROR, $@ ); 23