Lines Matching defs:entry
39 my @kid = $obj->getKids(); # kids of event are entry or allowed_types
44 my %entry = ();
45 my @entry = ();
55 if ($class eq 'entry') {
71 $entry{$kidId} = [$external, $kid, $tokenId, $format, $comment];
72 push (@entry, $kidId);
90 my @entryCopy = @entry;
94 'entry' => \%entry,
95 'entryList' => \@entry,
145 # getEntry returns a selected entry for the current event
149 my $id = shift; #entry id
151 my $ref = $pkg->{'entry'};
190 my @kid = $obj->getKids(); # kids of event are entry
192 my @entry = ();
203 if ($class eq 'entry') {
206 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'}};
515 register('entry', 0, \&entry);
738 sub entry {
818 print STDERR "missing both name and id for a service entry\n";