File Coverage

blib/lib/Devel/IPerl/Plugin/CoreDisplay.pm
Criterion Covered Total %
statement 25 31 80.6
branch n/a
condition n/a
subroutine 12 15 80.0
pod 0 5 0.0
total 37 51 72.5


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