File Coverage

blib/lib/Devel/IPerl/Plugin/WebDisplay.pm
Criterion Covered Total %
statement 27 31 87.1
branch n/a
condition n/a
subroutine 12 14 85.7
pod 0 5 0.0
total 39 50 78.0


line stmt bran cond sub pod time code
1             $Devel::IPerl::Plugin::WebDisplay::VERSION = '0.012';
2             use strict;
3 2     2   12 use warnings;
  2         4  
  2         54  
4 2     2   9  
  2         3  
  2         54  
5             use Devel::IPerl::Display::HTML;
6 2     2   762 use Devel::IPerl::Display::JS;
  2         4  
  2         72  
7 2     2   828 use Devel::IPerl::Display::CSS;
  2         6  
  2         55  
8 2     2   847 use Devel::IPerl::Display::IFrame;
  2         5  
  2         64  
9 2     2   829  
  2         5  
  2         418  
10             my ($self, $iperl) = @_;
11             # TODO generalise the plugin registration
12 2     2 0 6 for my $name (qw(html css js iframe)) {
13             $iperl->helper( $name => sub { shift; $self->$name(@_) } );
14 2         6 }
15 8     4   33 }
  4     4   7169  
  4     4   17  
16              
17              
18              
19 0     0 0 0 1;
  0         0  
20 2     2 0 3  
  2         26  
21 2     2 0 3  
  2         27  
22             =pod
23 0     0 0    
  0            
24             =encoding UTF-8
25              
26             =head1 NAME
27              
28             Devel::IPerl::Plugin::WebDisplay
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