File Coverage

blib/lib/App/WRT/Image.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package App::WRT::Image;
2              
3 8     8   49 use strict;
  8         13  
  8         205  
4 8     8   34 use warnings;
  8         18  
  8         282  
5              
6 8     8   35 use base qw(Exporter);
  8         13  
  8         627  
7             our @EXPORT_OK = qw(image_size);
8              
9 8     8   4491 use Image::Size;
  8         34049  
  8         614  
10              
11             =over
12              
13             =item image_size($path)
14              
15             Returns (width, height) of a variety of image files. Called by icon_markup and
16             line_parse.
17              
18             =cut
19              
20             sub image_size {
21 55     55 1 169 return imgsize($_[0]);
22             }
23              
24             =back
25              
26             1;