File Coverage

blib/lib/Text/Trac/Hr.pm
Criterion Covered Total %
statement 18 18 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 24 27 88.8


line stmt bran cond sub pod time code
1             package Text::Trac::Hr;
2              
3 8     8   47 use strict;
  8         14  
  8         204  
4 8     8   33 use warnings;
  8         12  
  8         185  
5 8     8   34 use base qw(Text::Trac::BlockNode);
  8         14  
  8         33  
6              
7             our $VERSION = '0.24';
8              
9             sub init {
10 220     220 0 379 my $self = shift;
11 220         3705 $self->pattern(qr/^----$/xms);
12 220         1215 return $self;
13             }
14              
15             sub parse {
16 1     1 0 4 my ( $self, $l ) = @_;
17 1         38 my $c = $self->context;
18 1         18 my $pattern = $self->pattern;
19 1 50       7 $l =~ $pattern or return;
20              
21 1         19 $l =~ s{ $pattern }{
}xmsg;
22              
23 1         3 $c->htmllines($l);
24             }
25              
26             1;