Lines Matching refs:my

7 my $VERSION = '2012-01-06 07:23'; # UTC
34 (my $ME = $0) =~ s|.*/||;
46   my ($exit_code) = @_;
47   my $STREAM = ($exit_code == 0 ? *STDOUT : *STDERR);
91   my ($expr) = @_;
99   my $err = EXIT_NO_MATCH;
101   my $list;
102   my @name = qw(free);
116   my $or = join '|', @name;
117   my $regexp = qr/(?:$or)/;
123   my $found_match = 0;
125   foreach my $file (@ARGV)
130       while (defined (my $line = <FH>))
138               my $all = $1;
139               my ($lhs, $rhs) = ($2, $3);
140               my ($free_opnd, $braced_free_opnd) = ($4, $5);
141               my $non_NULL;
150               my $e2 = defined $free_opnd ? $free_opnd : $braced_free_opnd;
173 my $foo = <<'EOF';
203 ## time-stamp-start: "my $VERSION = '"