12 lines
212 B
Perl
12 lines
212 B
Perl
|
use Readonly;
|
||
|
|
|
||
|
|
Readonly::Scalar my $pi => 3.14159;
|
||
|
|
Readonly::Scalar my $msg => "Hello World";
|
||
|
|
|
||
|
|
Readonly::Array my @arr => (1, 2, 3, 4, 5);
|
||
|
|
Readonly::Hash my %hash => (
|
||
|
|
"a" => 1,
|
||
|
|
"b" => 2,
|
||
|
|
"c" => 3
|
||
|
|
);
|