The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package syntaxhighlighter::xml;
$VERSION = '0.02';

sub load{
use Wx qw(wxSTC_LEX_XML wxSTC_H_TAG);

 $_[0]->SetLexer( wxSTC_LEX_XML );            # Set Lexers to use

 $_[0]->SetKeyWords(1,"");  # Add new keyword.
 $_[0]->StyleSetSpec( wxSTC_H_TAG, "fore:#000055" ); # Apply tag style for selected lexer (blue)


 $_[0]->StyleSetSpec(0,"fore:#995544,bold");				# Text
 $_[0]->StyleSetSpec(1,"fore:#222288");                        # Tags
 $_[0]->StyleSetSpec(2,"fore:#222288,back:#FFFFFF");           # Unknown TagsFFE0E0
 $_[0]->StyleSetSpec(3,"fore:#008800");                        # Attributes
 $_[0]->StyleSetSpec(4,"fore:#004040,back:#FFFFFF");           # Unknown Attributes#FFE0E0
 $_[0]->StyleSetSpec(5,"fore:#007f7f,bold");                   # Numbers
 $_[0]->StyleSetSpec(6,"fore:#dd5544");					# Double quoted strings
 $_[0]->StyleSetSpec(7,"fore:#dd5544");					# Single quoted string
 $_[0]->StyleSetSpec(8,"fore:#bbbb44");					# Other inside tag
 $_[0]->StyleSetSpec(9,"fore:#bbbbbb");                        # Comment
 $_[0]->StyleSetSpec(10,"fore:#004000,bold");                  # Entities
 $_[0]->StyleSetSpec(11,"fore:#000000,bold");                  # XML style tag ends '/>'
 $_[0]->StyleSetSpec(12,"fore:#228822");                       # XML identifier start '<?'
 $_[0]->StyleSetSpec(13,"fore:#339933");                       # XML identifier end '?>'
 $_[0]->StyleSetSpec(14,"fore:#44aa44");                       #  SCRIPT
 $_[0]->StyleSetSpec(15,"fore:#55bb55");
 $_[0]->StyleSetSpec(17,"fore:#000000,back:#A0FFA0");          # CDATA
 $_[0]->StyleSetSpec(18,"fore:#000000,back:#F0E080");          # Question
 $_[0]->StyleSetSpec(19,"fore:#FFFF00,back:#8080A0");          # Unquoted Value
 $_[0]->StyleSetSpec(20,"fore:#FFFF00,back:#A08080");
 $_[0]->StyleSetSpec(21,"fore:#600000,back:#FFF0D8");
 $_[0]->StyleSetSpec(22,"fore:#000000,back:#DDD0DD");
 $_[0]->StyleSetSpec(23,"fore:#7F007F,back:#DDD0DD,notbold");
 $_[0]->StyleSetSpec(24,"fore:#7F007F,back:#DDD0DD,bold");
 $_[0]->StyleSetSpec(25,"fore:#7F007F,back:#DDD0DD,italics");
 $_[0]->StyleSetSpec(26,"fore:#7F007F,notbold");
 $_[0]->StyleSetSpec(27,"fore:#000000");
 $_[0]->StyleSetSpec(28,"fore:#000000");
 $_[0]->StyleSetSpec(29,"fore:#000000");
 $_[0]->StyleSetSpec(30,"fore:#000000");
 $_[0]->StyleSetSpec(31,"fore:#000000");                       # No brace matching in XML
}

1;