1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
#!/usr/bin/env perl use strict; use warnings; use Test::More; my $success = eval <<EOF; no circular::require; { package Foo; sub bar {} } { package Bar; use base 'Foo'; } 1; EOF my $e = $@; ok($success, "no error with use base") || diag($e); done_testing;