Lines Matching refs:Array
27 eval {Readonly::Array @a1 => (1, 2, 3, 4)};
28 is $@ => '', 'Array, with parens';
30 eval {Readonly::Array @a2 => 1, 2, 3, 4};
31 is $@ => '', 'Array, without parens';
33 eval {Readonly::Array @a3 => qw/1 2 3 4/};
34 is $@ => '', 'Array, with qw';
37 eval {Readonly::Array @a4 => @computed_values};
38 is $@ => '', 'Array, with computed values';
40 eval {Readonly::Array @a5 => ()};
42 eval {Readonly::Array @a6};
64 eval {Readonly::Array @deep => (1, 2, {perl=>"Rules", java=>"Bites"}, 4, 5)};