MAJOR=4 MINOR=38 DEVNAME=tty38  0#l=J2BP"iLZ7 TZif2ˉ#pa&U 5  Ѡ޳ݩ޾߉wip~YIR^;)4GX Q': 3   qޠo_O?/(f fe HG *)  x q(a'Q A 0 ΐ ͠ ௠    ysir YUIT 97)6 "S  54ې v+ !"V #j$5 %J& '*') )Ϡ*b+,~-.`/~u0B1g 2s$3Gt 4S5'V 6278 88 9: ;<=>?@oܠABOCdD/EDmE G-Gӵ I lI JNKLjM|NLO\wP.Q?@oܠABOCdD/EDmE G-Gӵ I lI JNKLjM|NLO\wP.Q_)S e_ub &=LV[( # -*- perl -*- # # Author: Slaven Rezic # # Copyright (C) 2009,2011 Slaven Rezic. All rights reserved. # This package is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # package Image::Info::SVG; use strict; use vars qw($VERSION @PREFER_MODULE $USING_MODULE); $VERSION = '2.02'; @PREFER_MODULE = qw(Image::Info::SVG::XMLLibXMLReader Image::Info::SVG::XMLSimple ) if !@PREFER_MODULE; TRY_MODULE: { for my $try_module (@PREFER_MODULE) { if (eval qq{ require $try_module; 1 }) { my $sub = $try_module . '::process_file'; no strict 'refs'; *process_file = \&{$sub}; $USING_MODULE = $try_module; last TRY_MODULE; } } die "Cannot require any of @PREFER_MODULE...\n"; } 1; __END__ =pod =head1 NAME Image::Info::SVG - SVG support for Image::Info =head1 SYNOPSIS use Image::Info qw(image_info dim); my $info = image_info("image.svg"); if (my $error = $info->{error}) { die "Can't parse image info: $error\n"; } my $title = $info->{SVG_Title}; my($w, $h) = dim($info); =head1 DESCRIPTION This modules supplies the standard key names except for BitsPerSample, Compression, Gamma, Interlace, LastModificationTime, as well as: =over =item ImageDescription The image description, corresponds to . =item SVG_Image A scalar or reference to an array of scalars containing the URI's of embedded images (JPG or PNG) that are embedded in the image. =item SVG_StandAlone Whether or not the image is standalone. =item SVG_Title The image title, corresponds to =item SVG_Version The URI of the DTD the image conforms to. =back =head1 METHODS =head2 process_file() $in