Lines Matching refs:pkg
35 my $pkg = shift;
98 'xmlObj' => $obj}, $pkg;
104 my $pkg = shift;
106 return $pkg->{'id'};
113 $pkg = shift;
115 if ($pkg->{'internalName'}) {
116 return $pkg->{'internalName'};
119 return $pkg->{'id'};
127 my $pkg = shift;
129 unless (@{$pkg->{'entryList'}}) {
130 @{$pkg->{'entryList'}} = @{$pkg->{'entryListCopy'}};
133 my $id = shift @{$pkg->{'entryList'}};
135 return ($pkg->getEntry($id)); # getEntry returns an array
141 my $pkg = shift;
142 return (@{$pkg->{'entryList'}});
148 my $pkg = shift;
151 my $ref = $pkg->{'entry'};
160 my $pkg = shift;
162 return shift @{$pkg->{'include'}};
168 my $pkg = shift;
169 return @{$pkg->{'include'}};
176 my $pkg = shift;
178 return $pkg->{'allowed_types'};
186 my $pkg = shift;
216 'xmlObj' => $obj}, $pkg;
222 my $pkg = shift;
224 return undef unless @{$pkg->{'entry'}};
226 return @{$pkg->{'entry'}};
230 my $pkg = shift;
232 return $pkg->{'reorder'};
236 my $pkg = shift;
238 return $pkg->{'id'};
248 my $pkg = shift;
284 'internal' => 0}, $pkg;
291 my $pkg = shift;
295 my $id = $pkg->{'id'};
298 $pkg->{$context} = new internalEvent($id, $obj);
301 my $ref = $pkg->{$context} = new externalEvent($id, $obj);
307 my $pkg = shift;
309 return $pkg->{'id'};
313 my $pkg = shift;
315 return $pkg->{'header'};
319 my $pkg = shift;
321 return $pkg->{'idNo'};
325 my $pkg = shift;
327 return $pkg->{'super'};
331 my $pkg = shift;
333 return $pkg->{'omit'};
337 my $pkg = shift;
339 return $pkg->{'type'};
355 my $pkg = shift;
357 return $pkg->{'internal'};
361 my $pkg = shift;
363 return $pkg->{'external'};
373 my $pkg = shift;
382 }, $pkg;
386 my $pkg = shift;
388 return $pkg->{'id'};
392 my $pkg = shift;
394 return $pkg->{'usage'};
402 my $pkg = shift;
438 }, $pkg;
442 my $pkg = shift;
444 return $pkg->{'id'};
448 my $pkg = shift;
450 return $pkg->{'start'};
454 my $pkg = shift;
456 return $pkg->{'deprecated'};
460 my $pkg = shift;
462 return $pkg->{'public'};
466 my $pkg = shift;
468 return $pkg->{'header'};
474 my $pkg = shift;
476 my @msg = @{$pkg->{'msg'}};
481 $pkg->{'msg'} = \@msg;
487 my $pkg = shift;
489 return @{$pkg->{'msg'}};
511 my $pkg = shift;
534 'firstEvent' => 1}, $pkg;
588 my $pkg = shift;
591 if ($pkg->{'firstEvent'}) {
593 $pkg->{'firstEvent'} = 1;
603 my $pkg = shift;
610 my $pkg = shift;
617 my $pkg = shift;
627 my $pkg = shift;
631 if ($pkg->{'firstToken'}) {
633 $pkg->{'firstToken'} = 1;
643 my $pkg = shift;
651 my $pkg = shift;
661 my $pkg = shift;
667 my $pkg = shift;