blob: 68c54ca995b14fc79eaf457c81bafe4a27ca5eaf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
package Multi;
use strict;
use warnings;
use 5.010;
our $Multi = 2;
our @Multi = (3, 4, 5);
our %Multi = (6 => 7, 8 => 9);
open Multi, "<", "does not exist";
sub Multi { }
1;
|