Lines Matching defs:msg
417 my @msg = ();
419 my @kid = $obj->getKids(); # kids of msg_list are msg
423 if ($class eq 'msg') {
428 push(@msg, join('::', $msgId, $text));
431 print STDERR "missing id for $class <msg>\n";
443 'msg' => \@msg,
480 # destructive read of @msg...
485 my @msg = @{$pkg->{'msg'}};
487 return undef unless @msg;
489 my $text = pop(@msg);
490 $pkg->{'msg'} = \@msg;
498 return @{$pkg->{'msg'}};
582 register('msg', 0, \&msg);
881 sub msg {