File Coverage

blib/lib/Text/Livedoor/Wiki/Plugin/Inline/Footnote.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition 2 2 100.0
subroutine 4 4 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Text::Livedoor::Wiki::Plugin::Inline::Footnote;
2              
3 10     10   52 use warnings;
  10         19  
  10         308  
4 10     10   51 use strict;
  10         19  
  10         300  
5 10     10   49 use base qw(Text::Livedoor::Wiki::Plugin::Inline);
  10         17  
  10         731  
6              
7             __PACKAGE__->regex(q{\(\(((?:(?
8             __PACKAGE__->n_args(1);
9              
10             sub process {
11 6     6 1 16 my ( $class , $inline , $line ) = @_;
12 6         29 $line = $inline->parse($line);
13 6         14 my $scratchpad = $Text::Livedoor::Wiki::scratchpad ;
14 6   100     67 $scratchpad->{footnotes} ||= [];
15 6         11 push @{$scratchpad->{footnotes}},$line;
  6         19  
16 6         13 my $cnt = scalar @{$scratchpad->{footnotes}};
  6         16  
17 6         37 return qq|*$cnt|;
18             }
19              
20             1;
21              
22             =head1 NAME
23              
24             Text::Livedoor::Wiki::Plugin::Inline::Footnote Footnote Inline Plugin
25              
26             =head1 DESCRIPTION
27              
28             This plugin is implement with really bad manner. Anyway, with this plugin , you can use footnote.
29              
30             =head1 SYNOPSIS
31              
32             ((polocky is a charactor for livedoor wiki))polocky is...
33              
34             =head1 FUNCTION
35              
36             =head2 process
37              
38             =head1 AUTHOR
39              
40             polocky
41              
42             =cut