File Coverage

blib/lib/Text/Livedoor/Wiki/Plugin/Inline/Underbar.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package Text::Livedoor::Wiki::Plugin::Inline::Underbar;
2              
3 10     10   54 use warnings;
  10         18  
  10         299  
4 10     10   50 use strict;
  10         17  
  10         297  
5 10     10   46 use base qw(Text::Livedoor::Wiki::Plugin::Inline);
  10         20  
  10         505  
6              
7             __PACKAGE__->regex(q{%%%([^%]*)%%%});
8             __PACKAGE__->n_args(1);
9              
10             sub process {
11 1     1 1 4 my ( $class , $inline , $line ) = @_;
12 1         7 $line = $inline->parse($line);
13 1         5 return ("$line");
14             }
15              
16              
17             1;
18              
19              
20             =head1 NAME
21              
22             Text::Livedoor::Wiki::Plugin::Inline::Underbar - Underbar Inline Plugin
23              
24             =head1 DESCRIPTION
25              
26             underbar is not for a person's name.
27              
28             =head1 SYNOPSIS
29              
30             %%%underbar%%%
31              
32             =head1 FUNCTION
33              
34             =head2 process
35              
36             =head1 AUTHOR
37              
38             polocky
39              
40             =cut