35 lines
804 B
Perl
35 lines
804 B
Perl
package DDG::Goodie::Paper;
|
|
# ABSTRACT: Return the dimensions of a defined paper size
|
|
|
|
use strict;
|
|
use DDG::Goodie;
|
|
use YAML::XS 'LoadFile';
|
|
|
|
zci answer_type => "paper";
|
|
zci is_cached => 1;
|
|
|
|
triggers any => 'paper size', 'dimensions', 'paper dimension', 'paper dimensions';
|
|
|
|
my $sizes = LoadFile(share('sizes.yml'));
|
|
|
|
handle query_lc => sub {
|
|
return unless my ($s, $l, $n) = $_ =~ /^((?:(a|b|c)(\d{0,2}))|legal|letter|junior\s*legal|ledger|tabloid|hagaki)\s+paper\s+(?:size|dimm?ensions?)$/i;
|
|
|
|
my $value = $sizes->{$s};
|
|
return unless $value;
|
|
|
|
$s = uc $s if defined $n;
|
|
|
|
return $value, structured_answer => {
|
|
data => {
|
|
title => $value,
|
|
subtitle => "Paper size: $s"
|
|
},
|
|
templates => {
|
|
group => 'text'
|
|
}
|
|
};
|
|
};
|
|
|
|
1;
|