File Coverage

blib/lib/Text/Md2Inao/Builder/DSL.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Text::Md2Inao::Builder::DSL;
2 29     29   174 use strict;
  29         63  
  29         1180  
3 29     29   177 use warnings;
  29         66  
  29         1361  
4              
5 29     29   172 use parent qw/Exporter/;
  29         61  
  29         238  
6             our @EXPORT = qw/case/;
7              
8             sub case ($&) {
9 1081     1081 0 1759     my ($select, $code) = @_;
10 1081         2541     my $class = (caller)[0];
11 1081         4056     my $self = $class->new;
12 1081         3964     for (split ",", $select) {
13 1197         3519         s/\s+//g;
14 1197         3487         $self->dispatch_table->{$_} = $code;
15                 }
16             }
17              
18             1;
19