Locale/Po4a/Xml.pm

58 @EXPORT = qw(new initialize @tag_types);
812 our @tag_types = (
1171     while ( !$found && $i < @tag_types ) {
1172         ( $match1, $match2 ) = ( $tag_types[$i]->{beginning}, $tag_types[$i]->{end} );
1174             if ( !defined( $tag_types[$i]->{f_extract} ) ) {
1219     my ( $match1, $match2 ) = ( $tag_types[$type]->{beginning}, $tag_types[$type]->{end} );
1221     if ( defined( $tag_types[$type]->{f_extract} ) ) {
1224         ( $eof, @tag ) = &{ $tag_types[$type]->{f_extract} }( $self, $remove );
1269     $break = $tag_types[$type]->{breaking};
1274         $break = &{ $tag_types[$type]->{f_breaking} }( $self, @lines );
1296     my ( $match1, $match2 ) = ( $tag_types[$type]->{beginning}, $tag_types[$type]->{end} );
1310     my $line = &{ $tag_types[$type]->{f_translate} }( $self, @lines );
1661         my $f_extract = $tag_types[$type]->{'f_extract'};
1674             if ( $tag_types[$type]->{'beginning'} eq "!--#" ) {
1699             if ( $tag_types[$type]->{'end'} eq "" ) {
1700                 if ( $tag_types[$type]->{'beginning'} eq "" ) {
1766                 } elsif ( $tag_types[$type]->{'beginning'} eq "/" ) {
2224         for ( my $i = 0 ; $i < @tag_types ; $i++ ) {
2225             if ( $tag_types[$i]->{beginning} eq '?' && $tag_types[$i]->{end} eq '?' ) {
2226                 $tag_types[$i]->{breaking} = 1;