File Coverage

blib/lib/BBCode/Tag/BR.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 6 7 85.7
pod 4 4 100.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             # $Id: BR.pm 284 2006-12-01 07:51:49Z chronos $
2             package BBCode::Tag::BR;
3 2     2   13 use base qw(BBCode::Tag);
  2         12  
  2         194  
4 2     2   12 use strict;
  2         6  
  2         72  
5 2     2   13 use warnings;
  2         5  
  2         325  
6             our $VERSION = '0.34';
7              
8             sub Class($):method {
9 3     3 1 10 return qw(TEXT INLINE);
10             }
11              
12             sub toBBCode($):method {
13 1     1 1 3 return "[BR]";
14             }
15              
16             sub toHTML($):method {
17 1     1 1 4 return "
";
18             }
19              
20             sub toText($):method {
21 0     0 1   return "\n";
22             }
23              
24             1;