32 lines
669 B
Perl
32 lines
669 B
Perl
|
package DDG::Goodie::Stopwatch;
|
||
|
# ABSTRACT: Shows a stopwatch
|
||
|
|
||
|
use DDG::Goodie;
|
||
|
use strict;
|
||
|
|
||
|
zci answer_type => 'stopwatch';
|
||
|
zci is_cached => 1;
|
||
|
|
||
|
triggers startend => 'stopwatch', 'stop watch';
|
||
|
|
||
|
# Handle statement
|
||
|
handle remainder => sub {
|
||
|
return unless ($_ eq '' || $_ eq 'online');
|
||
|
|
||
|
return "",
|
||
|
structured_answer => {
|
||
|
templates => {
|
||
|
group => 'base',
|
||
|
detail => 'DDH.stopwatch.stopwatch',
|
||
|
wrap_detail => 'base_detail'
|
||
|
},
|
||
|
meta => {
|
||
|
sourceName => "Stopwatch",
|
||
|
itemType => "stopwatch"
|
||
|
},
|
||
|
data => {}
|
||
|
};
|
||
|
};
|
||
|
|
||
|
1;
|