Lines Matching full:my

13 my $opt_all;
14 my @opt_include;
15 my $opt_graph;
28 my %deps = ();
29 my %linenos = ();
31 my @headers = grep { strip($_) } @ARGV;
63 	my $filename = shift;
65 	for my $i (@opt_include) {
66 		my $stripped = $filename;
77 	my $filename = shift;
80 	for my $i (@opt_include) {
81 		my $path = "$i/$filename";
89 	my @queue = @_;
91 		my $header = pop @queue;
96 		my $path = search($header);
99 		open(my $file, '<', $path) or die($!);
100 		chomp(my @lines = <$file>);
103 		for my $i (0 .. $#lines) {
104 			my $line = $lines[$i];
105 			if(my($dep) = ($line =~ m/^#\s*include\s*<(.*?)>/)) {
116 	my $cycle = shift;
119 	for my $i (0 .. $#$cycle - 1) {
124 	my $first = shift @$cycle;
125 	my $last = pop @$cycle;
127 	my $msg = "In file included";
130 	for my $header (reverse @$cycle) {
143 	my @queue = map { [[0, $_]] } @_;
145 		my $top = pop @queue;
146 		my $name = $top->[-1]->[1];
148 		for my $dep (@{$deps{$name}}) {
149 			my $chain = [@$top, [$dep->[0], $dep->[1]]];
177 	for my $header (keys %deps) {
185 	for my $header (keys %deps) {
186 		for my $dep (@{$deps{$header}}) {