1package Text::Trac::Hr; 2 3use strict; 4use warnings; 5use base qw(Text::Trac::BlockNode); 6 7our $VERSION = '0.24'; 8 9sub init { 10 my $self = shift; 11 $self->pattern(qr/^----$/xms); 12 return $self; 13} 14 15sub parse { 16 my ( $self, $l ) = @_; 17 my $c = $self->context; 18 my $pattern = $self->pattern; 19 $l =~ $pattern or return; 20 21 $l =~ s{ $pattern }{<hr />}xmsg; 22 23 $c->htmllines($l); 24} 25 261; 27