File Coverage

blib/lib/Image/Magick/Info.pm

Criterion	Covered	Total	%
statement	12	23	52.1
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod			n/a
total	16	35	45.7

package Image::Magick::Info;

use strict;
use warnings;
use Carp;

require Image::Magick;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

our @EXPORT_OK = qw( get_info );

our $VERSION = '0.03';

my $im = new Image::Magick;

sub get_info{
  my ($filename, @info ) = @_;

  if( ref $filename eq "GLOB" || ref $filename eq "IO::File" ){
    $im->Read( FILE => $filename );
  }else{
    $im->Read( $filename );
  }

  my $ret;

  foreach my $i ( @info ){
    eval {
      $ret->{$i} = $im->get( $i );
    };

    if( $@ ){
      warn $@;
    }
  }

  return $ret;
}


1;
__END__