File Coverage

blib/lib/BBCode/Tag/I.pm
Criterion Covered Total %
statement 13 14 92.8
branch n/a
condition n/a
subroutine 5 6 83.3
pod 2 2 100.0
total 20 22 90.9


line stmt bran cond sub pod time code
1             # $Id: I.pm 284 2006-12-01 07:51:49Z chronos $
2             package BBCode::Tag::I;
3 1     1   7 use base qw(BBCode::Tag::Simple BBCode::Tag::Inline);
  1         2  
  1         144  
4 1     1   7 use BBCode::Util qw(multilineText);
  1         1  
  1         97  
5 1     1   5 use strict;
  1         2  
  1         46  
6 1     1   6 use warnings;
  1         2  
  1         135  
7             our $VERSION = '0.34';
8              
9             sub BodyPermitted($):method {
10 5     5 1 21 return 1;
11             }
12              
13             sub toText($):method {
14 0     0 1   return multilineText '/'.shift->bodyText().'/';
15             }
16              
17             1;