Select Code to Download

#!/usr/bin/perl -w

...
OUTPUT

print $styler->text_style($html)."\n";

package Text::Styler;

...
sub left_margin { $_[0]->{__left_margin} = $_[1] if $_[1]; $_[0]->{__l
+eft_margin}; }
sub right_margin { $_[0]->{__right_margin} = $_[1] if $_[1]; $_[0]->{_
+_right_margin}; }
sub width { $_[0]->{__columns} - $_[0]->{__left_margin} - $_[0]->{__ri
+ght_margin}; }

package Text::Styler::Parser;

...
sub current_element { return shift->{_stack}->[-1]->[0] } #if defined.

1;