%Image::ExifTool::UserDefined = ( 'Image::ExifTool::Composite' => { HorV => { Require => { 0 => 'ImageWidth', 1 => 'ImageHeight', }, Desire => { 2 => 'Orientation', }, ValueConv => q{ if ($val[2] and $val[2] =~ /^\d+$/ and $val[2] > 4) { return $val[0] > $val[1] ? 'V' : 'H'; } else { return $val[0] > $val[1] ? 'H' : 'V'; } }, }, }, ); 1; #end