1package Text::Trac::Text; 2use strict; 3use warnings; 4 5our $VERSION = '0.24'; 6 7sub new { 8 my $class = shift; 9 my %args = @_; 10 my $self = { 11 context => $args{context}, 12 html => '', 13 }; 14 bless $self, $class; 15} 16 17sub parse { 18 my $self = shift; 19 $self->{html} = ''; 20 my $text = shift or return; 21 $self->{html} = $text; 22} 23 24sub html { $_[0]->{html}; } 25 261; 27