zeroclickinfo-goodies/lib/DDG/Goodie/AspectRatio.pm

package DDG::Goodie::AspectRatio;
# ABSTRACT: Calculates aspect ratio based on previously defined one

use DDG::Goodie;

triggers start => "aspect ratio";

zci is_cached => 1;
zci answer_type => "aspect_ratio";

handle remainder => sub {
    my $input = $_;
    my $result = 0;
    my $ratio = 0;

    if ($input =~ /^(\d+(?:\.\d+)?)\s*\:\s*(\d+(?:\.\d+)?)\s*(?:(?:(\?)\s*:\s*(\d+(?:\.\d+)?))|(?:(\d+(?:\.\d+)?)\s*:\s*(\?)))$/){
        $ratio = $1 / $2;

        if ($6 && $6 eq "?") {
            $result = $5 / $ratio;
            return "Aspect ratio: $5:$result ($1:$2)";
        } elsif ($3 && $3 eq "?") {
            $result = $4 * $ratio;
            return "Aspect ratio: $result:$4 ($1:$2)";
        }
    }
    return;
};

1;