File Coverage

blib/lib/Devel/IPerl/Plugin/DocDisplay.pm
Criterion Covered Total %
statement 15 21 71.4
branch n/a
condition n/a
subroutine 5 8 62.5
pod 0 3 0.0
total 20 32 62.5


line stmt bran cond sub pod time code
1             $Devel::IPerl::Plugin::DocDisplay::VERSION = '0.012';
2             use strict;
3 1     1   7 use warnings;
  1         2  
  1         43  
4 1     1   6  
  1         2  
  1         25  
5             use Devel::IPerl::Display::Markdown;
6 1     1   383 use Devel::IPerl::Display::TeX;
  1         3  
  1         38  
7 1     1   520  
  1         3  
  1         161  
8             my ($self, $iperl) = @_;
9             # TODO generalise the plugin registration
10 1     1 0 4 for my $name (qw(markdown tex)) {
11             $iperl->helper( $name => sub { shift; $self->$name(@_) } );
12 1         2 }
13 2     0   13 }
  0            
  0            
14              
15              
16             1;
17 0     0 0    
  0            
18 0     0 0    
  0            
19             =pod
20              
21             =encoding UTF-8
22              
23             =head1 NAME
24              
25             Devel::IPerl::Plugin::DocDisplay
26              
27             =head1 VERSION
28              
29             version 0.012
30              
31             =head1 AUTHOR
32              
33             Zakariyya Mughal <zmughal@cpan.org>
34              
35             =head1 COPYRIGHT AND LICENSE
36              
37             This software is copyright (c) 2014 by Zakariyya Mughal.
38              
39             This is free software; you can redistribute it and/or modify it under
40             the same terms as the Perl 5 programming language system itself.
41              
42             =cut