Lines Matching refs:entry
36 my @kid = $obj->getKids(); # kids of event are entry or allowed_types
41 my %entry = ();
42 my @entry = ();
52 if ($class eq 'entry') {
68 $entry{$kidId} = [$external, $kid, $tokenId, $format, $comment];
69 push (@entry, $kidId);
89 my @entryCopy = @entry;
93 'entry' => \%entry,
94 'entryList' => \@entry,
144 # getEntry returns a selected entry for the current event
148 my $id = shift; #entry id
150 my $ref = $pkg->{'entry'};
189 my @kid = $obj->getKids(); # kids of event are entry
191 my @entry = ();
202 if ($class eq 'entry') {
205 push (@entry, [$internal, $kid]);
215 'entry' => \@entry,
219 # getEntries returns a list of all entry references
224 return undef unless @{$pkg->{'entry'}};
226 return @{$pkg->{'entry'}};
574 register('entry', 0, \&entry);
821 sub entry {
927 print STDERR "missing both name and id for a service entry\n";