63 lines
1.9 KiB
Perl
63 lines
1.9 KiB
Perl
# The original code, from the bug report, with variables renamed
|
|
|
|
sub foo {
|
|
# Here we do something like
|
|
# this: $array_comment [ num_things ]->{key_comment}
|
|
}
|
|
|
|
# --------------------------------------------------
|
|
# Comments containing hash and array sigils
|
|
|
|
# This is an @array, and this is a %hash
|
|
# $array_comment[$index] = $hash_comment{key_comment}
|
|
# The last element has the index $#array_comment
|
|
# my @a_slice = @array_comment[1,2,3];
|
|
# my @h_slice = @hash_comment{qw(a b c)};
|
|
# my %a_set = %array_comment[1,2,3];
|
|
# my %h_set = %hash_comment{qw(a b c)};
|
|
|
|
# --------------------------------------------------
|
|
# in POD
|
|
|
|
=head1 NAME
|
|
|
|
cperl-bug-66145 - don't fontify arrays and hashes in POD
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
$array_comment[$index] = $hash_comment{key_comment};
|
|
@array_comment = qw(in pod);
|
|
%hash_comment = key_comment => q(pod);
|
|
@array_comment = @array_comment[1,2,3];
|
|
@array_comment = @hash_comment{qw(a b c)};
|
|
%hash_comment = %array_comment[1,2,3];
|
|
%hash_comment = %hash_comment{qw(a b c)};
|
|
|
|
=cut
|
|
|
|
# --------------------------------------------------
|
|
# in strings
|
|
|
|
my @strings = (
|
|
q/$array_string[$index] = $hash_string{key_string};/,
|
|
q/my @array_string = qw(in unquoted string);/,
|
|
q/my %hash_string = (key_string => q(pod);)/,
|
|
q/@array_string = @array_string[1,2,3];/,
|
|
q/@array_string = @hash_string{qw(a b c)};/,
|
|
q/%hash_string = %array_string[1,2,3];/,
|
|
q/%hash_string = %hash_string{qw(a b c)};/,
|
|
);
|
|
|
|
# --------------------------------------------------
|
|
# in a HERE-document (perl-mode has an extra face for that)
|
|
|
|
my $here = <<DONE;
|
|
$array_here[$index_here] = $hash_here{key_here};
|
|
@array_here = qw(in a hrere-document);
|
|
%hash_here = key_here => q(pod);
|
|
@array_here = @array_here[1,2,3];
|
|
@array_here = @hash_here{qw(a b c)};
|
|
%hash_here = %array_here[1,2,3];
|
|
%hash_here = %hash_here{qw(a b c)};
|
|
DONE
|