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   55 use strict;
  8         15  
  8         256  
4 8     8   38 use warnings;
  8         19  
  8         225  
5 8     8   39 use base qw(Text::Trac::BlockNode);
  8         19  
  8         41  
6              
7             our $VERSION = '0.23';
8              
9             sub init {
10 220     220 0 418 my $self = shift;
11 220         4345 $self->pattern(qr/^----$/xms);
12 220         1540 return $self;
13             }
14              
15             sub parse {
16 1     1 0 4 my ( $self, $l ) = @_;
17 1         67 my $c = $self->context;
18 1         24 my $pattern = $self->pattern;
19 1 50       9 $l =~ $pattern or return;
20              
21 1         29 $l =~ s{ $pattern }{
}xmsg;
22              
23 1         6 $c->htmllines($l);
24             }
25              
26             1;