Almost-minimal filesystem based blog.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

26 lines
314 B

  1. package App::WRT::Image;
  2. use strict;
  3. use warnings;
  4. use base qw(Exporter);
  5. our @EXPORT_OK = qw(image_size);
  6. use Image::Size;
  7. =over
  8. =item image_size($path)
  9. Returns (width, height) of a variety of image files. Called by icon_markup and
  10. line_parse.
  11. =cut
  12. sub image_size {
  13. return imgsize($_[0]);
  14. }
  15. =back
  16. 1;