File Coverage

blib/lib/BBCode/Tag/B.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: B.pm 284 2006-12-01 07:51:49Z chronos $
2             package BBCode::Tag::B;
3 2     2   11 use base qw(BBCode::Tag::Simple BBCode::Tag::Inline);
  2         4  
  2         1275  
4 2     2   12 use BBCode::Util qw(multilineText);
  2         5  
  2         97  
5 2     2   12 use strict;
  2         4  
  2         52  
6 2     2   9 use warnings;
  2         5  
  2         202  
7             our $VERSION = '0.34';
8              
9             sub BodyPermitted($):method {
10 9     9 1 39 return 1;
11             }
12              
13             sub toText($):method {
14 0     0 1   return multilineText '*'.shift->bodyText().'*';
15             }
16              
17             1;