Lines Matching +full:sub +full:-
34 sub new {
39 my @kid = $obj->getKids(); # kids of event are entry or allowed_types
52 my $class = $kid->getClass();
53 my $kidId = $kid->getAttr('id');
58 my $internal = $kid->getKid('internal');
60 $tokenId = $internal->getAttr('token');
61 $format = $internal->getAttr('format');
65 my $commentKid = $kid->getKid('comment');
67 $comment = $commentKid->getContent;
69 my $external = $kid->getKid('external');
79 $internalName = $kid->getAttr('id');
86 my $content = $kid->getContent();
103 sub getExternalName {
106 return $pkg->{'id'};
112 sub getInternalName {
115 if ($pkg->{'internalName'}) {
116 return $pkg->{'internalName'};
119 return $pkg->{'id'};
126 sub getNextEntry {
129 unless (@{$pkg->{'entryList'}}) {
130 @{$pkg->{'entryList'}} = @{$pkg->{'entryListCopy'}};
133 my $id = shift @{$pkg->{'entryList'}};
135 return ($pkg->getEntry($id)); # getEntry returns an array
140 sub getEntryIds {
142 return (@{$pkg->{'entryList'}});
147 sub getEntry {
151 my $ref = $pkg->{'entry'};
159 sub getNextInclude {
162 return shift @{$pkg->{'include'}};
167 sub getIncludes {
169 return @{$pkg->{'include'}};
175 sub getAllowedTypes {
178 return $pkg->{'allowed_types'};
185 sub new {
190 my @kid = $obj->getKids(); # kids of event are entry
195 if ($reorder = $obj->getAttr('reorder')) {
200 my $class = $kid->getClass();
201 my $id = $kid->getAttr('id');
204 my $internal = $kid->getKid('internal');
221 sub getEntries {
224 return undef unless @{$pkg->{'entry'}};
226 return @{$pkg->{'entry'}};
229 sub isReorder {
232 return $pkg->{'reorder'};
235 sub getId {
238 return $pkg->{'id'};
247 sub new {
262 $omit = '' unless $omit = $obj->getAttr('omit');
263 $type = '' unless $type = $obj->getAttr('type');
264 $header = 0 unless $header = $obj->getAttr('header');
265 $idNo = '' unless $idNo = $obj->getAttr('idNo');
290 sub putDef {
295 my $id = $pkg->{'id'};
298 $pkg->{$context} = new internalEvent($id, $obj);
301 my $ref = $pkg->{$context} = new externalEvent($id, $obj);
302 return $ref->{'internalName'};
306 sub getId {
309 return $pkg->{'id'};
312 sub getHeader {
315 return $pkg->{'header'};
318 sub getIdNo {
321 return $pkg->{'idNo'};
324 sub getSuperClass {
327 return $pkg->{'super'};
330 sub getOmit {
333 return $pkg->{'omit'};
336 sub getType {
339 return $pkg->{'type'};
342 sub getTitle {
343 return shift->{'title'};
346 sub getProgram {
347 return shift->{'program'};
350 sub getSee {
351 return shift->{'see'};
354 sub getInternal {
357 return $pkg->{'internal'};
360 sub getExternal {
363 return $pkg->{'external'};
372 sub new {
377 $usage = $obj->getAttr('usage');
385 sub getId {
388 return $pkg->{'id'};
391 sub getUsage {
394 return $pkg->{'usage'};
401 sub new {
412 my @kid = $obj->getKids(); # kids of msg_list are msg
415 my $class = $kid->getClass();
417 my $text = $kid->getContent();
419 my $msgId = $kid->getAttr('id');
441 sub getId {
444 return $pkg->{'id'};
447 sub getMsgStart {
450 return $pkg->{'start'};
453 sub getDeprecated {
456 return $pkg->{'deprecated'};
459 sub getMsgPublic {
462 return $pkg->{'public'};
465 sub getHeader {
468 return $pkg->{'header'};
473 sub getNextMsg {
476 my @msg = @{$pkg->{'msg'}};
481 $pkg->{'msg'} = \@msg;
486 sub getMsgs {
489 return @{$pkg->{'msg'}};
510 sub new {
537 # local function -- register both the auditxml function and the
540 sub register {
555 sub completed {
559 my $id = $obj->getAttr('id');
560 my $class = $obj->getClass();
565 my %attributes = $obj->getAttributes();
570 my $content = $obj->getContent();
587 sub getNextEvent {
591 if ($pkg->{'firstEvent'}) {
593 $pkg->{'firstEvent'} = 1;
602 sub getEventIds {
609 sub getEvent {
616 sub getToken {
626 sub getNextToken {
631 if ($pkg->{'firstToken'}) {
633 $pkg->{'firstToken'} = 1;
642 sub getTokenIds {
650 sub getNextMsgId {
660 sub getMsgIds {
666 sub getMsg {
673 sub external {
676 sub internal {
680 sub eventStart {
683 my $id = $obj->getAttr('id');
691 if ($super = $obj->getAttr('instance_of')) {
703 sub eventEnd {
706 my $id = $obj->getAttr('id');
713 foreach my $kid ($obj->getKids) {
714 my $class = $kid->getClass;
716 my $content = $kid->getContent;
718 $event{$id}->{$class} = $content;
720 push @{$event{$id}->{$class}}, $content;
723 $event{$id}->putDef($obj, 'internal');
725 my $internalName = $event{$id}->putDef($obj, 'external');
732 #sub getInternalName {
738 sub entry {
741 #sub include {
744 # my $id = $obj->getAttr('id');
754 sub token {
757 my $id = $obj->getAttr('id');
769 sub msg_list {
772 my $id = $obj->getAttr('id');
773 my $header = $obj->getAttr('header');
774 my $start = $obj->getAttr('start');
775 my $public = $obj->getAttr('public');
776 my $deprecated = $obj->getAttr('deprecated');
795 sub msg {
801 sub service {
804 my $name = $obj->getAttr('name');
805 my $id = $obj->getAttr('id');
822 #sub getServices {
833 sub debugStart {
839 my $state = $obj->getAttr('set');
852 sub debugEnd {