package Template::Plugin::JapanesePrefectures; use strict; use warnings; our $VERSION = 0.01; use Template::Plugin; use base qw(Template::Plugin); use Geography::JapanesePrefectures::Walker; sub new { my $class = shift; my $context = shift; return Geography::JapanesePrefectures::Walker->new(@_); } =head1 NAME Template::Plugin::JapanesePrefectures - easliy use Geography::JapanesePrefectures. =head1 VERSION This documentation refers to Template::Plugin::JapanesePrefectures version 0.01 =head1 SYNOPSIS In your template: [% USE pref = JapanesePrefectures('euc-jp') %] [% FOR prefecture IN pref.prefectures %] [% prefecture.name %] [% END %] =head1 METHODS =head2 new create Geography::JapanesePrefectures::Walker's object =head1 SEE ALSO L =head1 AUTHOR Atsushi Kobayashi, C<< >> =head1 BUGS Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT You can find documentation for this module with the perldoc command. perldoc Template::Plugin::JapanesePrefectures You can also look for information at: =over 4 =item * AnnoCPAN: Annotated CPAN documentation L =item * CPAN Ratings L =item * RT: CPAN's request tracker L =item * Search CPAN L =back =head1 ACKNOWLEDGEMENTS =head1 COPYRIGHT & LICENSE Copyright 2006 Atsushi Kobayashi, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; # End of Template::Plugin::JapanesePrefectures