File Coverage

blib/lib/Devel/IPerl/Display/SVG.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 5 60.0
pod n/a
total 12 16 75.0


line stmt bran cond sub pod time code
1             package Devel::IPerl::Display::SVG;
2             $Devel::IPerl::Display::SVG::VERSION = '0.008';
3 2     2   10 use strict;
  2         5  
  2         46  
4 2     2   9 use warnings;
  2         2  
  2         40  
5              
6 2     2   8 use Moo;
  2         3  
  2         9  
7             with qw(Devel::IPerl::Display::Role::Displayable Devel::IPerl::Display::Role::MIMESource Devel::IPerl::Display::Role::WebImage);
8              
9             sub _as_text_plain {
10 0     0     '[SVG image]', # TODO get dimensions?
11             }
12 0     0     sub _build_mimetype { 'image/svg+xml' }
13              
14             1;
15              
16             __END__
17              
18             =pod
19              
20             =encoding UTF-8
21              
22             =head1 NAME
23              
24             Devel::IPerl::Display::SVG
25              
26             =head1 VERSION
27              
28             version 0.008
29              
30             =head1 AUTHOR
31              
32             Zakariyya Mughal <zmughal@cpan.org>
33              
34             =head1 COPYRIGHT AND LICENSE
35              
36             This software is copyright (c) 2014 by Zakariyya Mughal.
37              
38             This is free software; you can redistribute it and/or modify it under
39             the same terms as the Perl 5 programming language system itself.
40              
41             =cut