Image::Magickのdensityが効かない

コマンドラインでconvert -density 300 sample.pdf out.png
はできたのに、以下は変化しない。

my $img = Image::Magick->new();
$img->BlobToImage($pdf_data); #読み込み
$img->Set(density => '300', magick => 'png');
@png_data = $img->ImageToBlog(); #書き出し

悩んだあげく読み込み前に記述で出来た。

my $img = Image::Magick->new();
$img->Set(density => '300');
$img->BlobToImage($pdf_data); #読み込み
$img->Set(magick => 'png');
@png_data = $img->ImageToBlog(); #書き出し

うへぇ、なんでだろ。ドキュメントに書いてあったかなぁ、、、

蛇足：gsでpdf->画像変換の場合

gs -dSAFRE -dBATCH -dNOPAUSE -sDEVICE=png16m -r400 -sOutputFile=out_%d.jpg sample.pdf
って%dを書かないと、１ページ目しか出力されないです。

image to pdf

convert *.jpg output.pdf