Lines Matching refs:pr
223 my %pr;
230 $pr{$pid_fqname}{start} = $time;
244 my $seq = $pr{$pid_fqname}{seq};
249 $pr{$pid_fqname}{seq} = $seq;
253 my $seq = $pr{$pid_fqname}{seq};
257 $pr{$pid_fqname}{seq} = $seq;
258 $pr{$result_fqname}{start} = $time;
259 $pr{$result_fqname}{parent} = $pid_fqname;
260 $pr{$result_fqname}{seq} = [];
263 $pr{$running_fqname{$pid}}{end} = $time if defined $time and not defined $pr{$running_fqname{$pid}}{end};
270 $pr{$pid}{end} = $time if defined $time and not defined $pr{$pid}{end};
275 my $seq = $pr{$pid}{seq};
291 my $seq = $pr{$pid}{seq};
304 my @seq = @{$pr{$pid}{seq}};
311 if (defined $pr{$pid}{start} and defined $pr{$pid}{end}) {
312 $elapsed = $pr{$pid}{end} - $pr{$pid}{start};
355 $startpid = (keys %pr)[0];
356 while ($pr{$startpid}{parent}) {
357 $startpid = $pr{$startpid}{parent};
