File Coverage

blib/lib/Text/Md2Inao/TestHelper.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 2 0.0
total 32 34 94.1


line stmt bran cond sub pod time code
1             package Text::Md2Inao::TestHelper;
2 17     17   1529500 use strict;
  17         44  
  17         575  
3 17     17   96 use warnings;
  17         32  
  17         389  
4              
5 17     17   19134 use Encode;
  17         3985900  
  17         2430  
6 17     17   18852 use Exporter::Lite;
  17         15425  
  17         117  
7              
8             our @EXPORT = qw/md2inao md2id/;
9              
10 17     17   290895 use Text::Md2Inao;
  17         69  
  17         177  
11 17     17   23993 use Text::Md2Inao::Builder::InDesign;
  17         66  
  17         221  
12              
13             sub md2inao {
14 90     90 0 278507     $Text::Md2Inao::Logger::STOP = 1;
15 90         1020     my $p = Text::Md2Inao->new({
16                     default_list => 'disc',
17                     max_list_length => 63,
18                     max_inline_list_length => 55,
19                 });
20 90         1369     $p->parse($_);
21             }
22              
23             sub md2id {
24 9     9 0 61938     $Text::Md2Inao::Logger::STOP = 1;
25 9         192     my $p = Text::Md2Inao->new({
26                     default_list => 'disc',
27                     max_list_length => 63,
28                     max_inline_list_length => 55,
29                     builder => Text::Md2Inao::Builder::InDesign->new,
30                 });
31 9         197     $p->parse($_);
32             }
33              
34             1;
35