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

use Wx qw(wxSTC_LEX_DIFF);

sub load{
 $_[0]->SetLexer( wxSTC_LEX_DIFF );
 $_[0]->SetKeyWords(0,'');

 $_[0]->StyleSetSpec( 0,"fore:#000000");	# Default
 $_[0]->StyleSetSpec( 1,"fore:#007F00");	# Comment (part before "diff ..." or "--- ..." and , Only in ..., Binary file...)
 $_[0]->StyleSetSpec( 2,"fore:#7F7F00");	# Command (diff ...)
 $_[0]->StyleSetSpec( 3,"fore:#7F0000");	# Source file (--- ...) and Destination file (+++ ...)
 $_[0]->StyleSetSpec( 4,"fore:#7F007F");	# Position setting (@@ ...)
 $_[0]->StyleSetSpec( 5,"fore:#007F7F");	# Line removal (-...)
 $_[0]->StyleSetSpec( 6,"fore:#00007F");	# Line addition (+...)

}

1;