File Coverage

lib/WRT/Image.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 23 23 100.0


line stmt bran cond sub pod time code
1             package WRT::Image;
2              
3 3     3   19 use strict;
  3         6  
  3         95  
4 3     3   18 use warnings;
  3         6  
  3         94  
5              
6 3     3   18 use base qw(Exporter);
  3         10  
  3         276  
7             our @EXPORT_OK = qw(image_size);
8              
9 3     3   1243 use Image::Size;
  3         12583  
  3         172  
10 3     3   1925 use Imager;
  3         95569  
  3         20  
11              
12             =item image_size
13              
14             Returns (width, height) of a variety of image files. Called by icon_markup and
15             line_parse.
16              
17             =cut
18              
19             sub image_size {
20 5     5 1 28 return imgsize($_[0]);
21             }
22              
23             1;