use strict;
use warnings;
-use Syntax::Highlight::Perl;
+use Syntax::Highlight::Perl::Improved ':FULL';
my $color_table = {
'Variable_Scalar' => 'color:#080;',
'Line' => 'color:#000;',
};
-my $formatter = Syntax::Highlight::Perl->new();
+my $formatter = Syntax::Highlight::Perl::Improved->new();
$formatter->define_substitution(
'<' => '<',
<span style="color:#000;">sub</span> <span style="color:#980;">clear</span> <span style="color:#000;">{</span>
<span style="color:#000;">my</span> <span style="color:#080;">$self</span> <span style="color:#000;">=</span> <span style="color:#300;">shift</span><span style="color:#000;">;</span>
<span style="color:#080;">$self</span><span style="color:#000;">-></span><span style="color:#980;">x</span><span style="color:#000;">(</span><span style="color:#f0f;">0</span><span style="color:#000;">)</span><span style="color:#000;">;</span>
- <span style="color:#080;">$self</span><span style="color:#000;">-></span><span style="color:#00a;">y(</span><span style="color:#00a;">0</span><span style="color:#00a;">)</span><span style="color:#000;">;</span>
+ <span style="color:#080;">$self</span><span style="color:#000;">-></span><span style="color:#980;">y</span><span style="color:#000;">(</span><span style="color:#f0f;">0</span><span style="color:#000;">)</span><span style="color:#000;">;</span>
<span style="color:#000;">}</span>
<span style="color:#000;">package</span> <span style="color:#900;">Point3D</span><span style="color:#000;">;</span>