Lines Matching refs:me
22 my $me = bless {
33 $me->prepare;
35 return $me;
40 my $me = shift;
45 return unless $me->{_pretty};
47 $me->{_writer}->characters($NL_CHAR x $cnt);
51 my $me = shift;
54 if ($me->{_pretty}) {
55 if ($me->{_lastTag} eq $START_PREFIX_NAME and ($type eq $START_PREFIX_NAME or $type eq $EMPTY_PREFIX_NAME)) {
56 $me->{_indent}++;
57 } elsif ($me->{_lastTag} ne $START_PREFIX_NAME and $type eq $END_PREFIX_NAME) {
58 $me->{_indent}--;
61 $me->{_lastTag} = $type;
63 $me->{_writer}->characters($INDENT_CHAR x $me->{_indent});
67 $me->{_writer}->$type(@_);
69 $me->wrNewLine;
73 my $me = shift;
75 return unless $me->{_withDocumentation};
93 $me->{_writer}->characters($INDENT_CHAR x ($me->{_indent} + ($me->{_lastTag} eq $START_PREFIX_NAME ? 1 : 0))) if $me->{_pretty};
96 $me->{_writer}->startTag("annotation") ;
97 $me->wrNewLine;
98 $me->{_indent}++;
99 $me->{_writer}->characters($INDENT_CHAR x ($me->{_indent} + ($me->{_lastTag} eq $START_PREFIX_NAME ? 1 : 0))) if $me->{_pretty};
102 $me->{_writer}->startTag($docTagName);
103 $me->{_writer}->characters($txt);
104 $me->{_writer}->endTag($docTagName);
107 $me->wrNewLine;
108 $me->{_indent}--;
109 $me->{_writer}->characters($INDENT_CHAR x ($me->{_indent} + ($me->{_lastTag} eq $START_PREFIX_NAME ? 1 : 0))) if $me->{_pretty};
110 $me->{_writer}->endTag("annotation");
113 $me->wrNewLine;
117 my $me = shift;
118 return ${$me->{_outStr}};
122 my $me = shift;
123 ${$me->{_outStr}} = "";
124 $me->{_emptyMessageWritten} = 0;
125 $me->{_writer} = new XML::Writer(OUTPUT => $me->{_outStr});
126 $me->{_writer}->xmlDecl("UTF-8");
130 my $me = shift;
134 $me->{_withDocumentation} = $arg;
135 return $me;
137 return $me->{_withDocumentation};
142 my $me = shift;
146 $me->{_pretty} = $arg;
147 return $me;
149 return $me->{_pretty};
154 my $me = shift;
157 return $me->{_faultMessageWritten}->{$arg} = 1;
161 my $me = shift;
164 return $me->{_faultMessageWritten}->{$arg};
168 my $me = shift;
170 return $me->{_emptyMessageWritten} = 1;
174 my $me = shift;
176 return $me->{_emptyMessageWritten};
180 my $me = shift;
189 $me->{_writer}->$method(@_);