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