Test.pm

package DDG::Goodie::Test;

use DDG::Goodie;
use Data::Dumper;

triggers any => "test";

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

handle query => sub {
    warn(join(", ", $loc->city, $loc->region_name, $loc->country_name));
    my $string = '';
    while(my ($key, $value) = each %{$loc}) {
    	$string .= "$key => $value\n";
    }
    return $string;
};

1;