no warnings; use Demo2b; $x = 1; use Demo2a x => 1; $y = 2; print $x * $y, "\n"; no Demo2a; $x *= 2; print $x * $y, "\n"; no Demo2b; $x = 1; $y = 2; print $x * $y, "\n"; $x *= 2; print $x * $y, "\n";
no warnings; use Demo2b; $x = 1; use Demo2a x => 1; $y = 2; print $x * $y, "\n"; no Demo2a; $x *= 2; print $x * $y, "\n"; no Demo2b; $x = 1; $y = 2; print $x * $y, "\n"; $x *= 2; print $x * $y, "\n";