[magick-developers] How to use GetImageInkDensity() from PerlMagick

[ademmler]

Hi to all!

I need to no if it is possible to use "GetImageTotalInkDensity()"  
from PerlMagick?

I have tried some things but I do not get anny results.

Help more than welcome!
Thanks Alex

## sample

#!/usr/bin/perl
use strict;
use Image::Magick;

my $infile = shift;

my $image = Image::Magick->new;
$image->Set(depth=>8);
$image->Set(colorspace=>'CMYK');

my $readimage = $image->Read($infile);
		die "Can't read Image: $readimage\n" if "$readimage";

my $tac = $image->Get('ImageTotalInkDensity');
print"TAC: $tac\n";

undef $image;
exit 0;