File Coverage

blib/lib/Text/Trac/Text.pm
Criterion Covered Total %
statement 6 15 40.0
branch 0 2 0.0
condition n/a
subroutine 2 5 40.0
pod 0 3 0.0
total 8 25 32.0


line stmt bran cond sub pod time code
1             package Text::Trac::Text;
2 8     8   55 use strict;
  8         15  
  8         220  
3 8     8   41 use warnings;
  8         16  
  8         1358  
4              
5             our $VERSION = '0.22';
6              
7             sub new {
8 0     0 0   my $class = shift;
9 0           my %args = @_;
10             my $self = {
11             context => $args{context},
12 0           html => '',
13             };
14 0           bless $self, $class;
15             }
16              
17             sub parse {
18 0     0 0   my $self = shift;
19 0           $self->{html} = '';
20 0 0         my $text = shift or return;
21 0           $self->{html} = $text;
22             }
23              
24 0     0 0   sub html { $_[0]->{html}; }
25              
26             1;