Template-Plugin-UTF8Decode-0.01/0000755€h°c€h°0000000000011263375174023747 5ustar STUDIOPLEIADI\f.masiniSTUDIOPLEIADI\domain^usersTemplate-Plugin-UTF8Decode-0.01/lib/0000755€h°c€h°0000000000011263367455024520 5ustar STUDIOPLEIADI\f.masiniSTUDIOPLEIADI\domain^usersTemplate-Plugin-UTF8Decode-0.01/lib/Template/0000755€h°c€h°0000000000011263367465026274 5ustar STUDIOPLEIADI\f.masiniSTUDIOPLEIADI\domain^usersTemplate-Plugin-UTF8Decode-0.01/lib/Template/Plugin/0000755€h°c€h°0000000000011263374460027523 5ustar STUDIOPLEIADI\f.masiniSTUDIOPLEIADI\domain^usersTemplate-Plugin-UTF8Decode-0.01/README0000644€h°c€h°0000000117511263375113024624 0ustar STUDIOPLEIADI\f.masiniSTUDIOPLEIADI\domain^usersTemplate::Plugin::UTF8Decode version 0.01 ========================================== This module is a Template Toolkit filter, which decode a string to utf8. For example, using FreeTDS (http://www.freetds.org) in order to talk with ms sql, can return an utf8 string as byte char. INSTALLATION To install this module type the following: perl Makefile.PL make make install DEPENDENCIES This module requires these other modules and libraries: * Template COPYRIGHT AND LICENCE Copyright (C) 2009 Fabio Masini This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Template-Plugin-UTF8Decode-0.01/Makefile.PL0000644€h°c€h°0000000077611263375066025733 0ustar STUDIOPLEIADI\f.masiniSTUDIOPLEIADI\domain^usersuse 5.006; use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Template::Plugin::UTF8Decode', VERSION_FROM => 'lib/Template/Plugin/UTF8Decode.pm', # finds $VERSION PREREQ_PM => { 'Template' => 2.14, }, ($] >= 5.005 ? ## Add these new keywords supported since 5.005 (ABSTRACT_FROM => 'lib/Template/Plugin/UTF8Decode.pm', # retrieve abstract from module AUTHOR => 'Fabio Masini ') : ()), ); Template-Plugin-UTF8Decode-0.01/lib/Template/Plugin/UTF8Decode.pm0000644€h°c€h°0000000226211263374460031715 0ustar STUDIOPLEIADI\f.masiniSTUDIOPLEIADI\domain^userspackage Template::Plugin::UTF8Decode; use 5.006; use strict; our $VERSION = '0.01'; my $FILTER_NAME = 'utf8_decode'; use Template::Plugin::Filter; use base qw( Template::Plugin::Filter ); sub init { my $self = shift; $self->install_filter($FILTER_NAME); return $self; } sub filter { my ($self, $text) = @_; utf8::decode($text); return $text; } 1; __END__ =head1 NAME Template::Plugin::UTF8Decode - UTF8 decoder filter for Template Toolkit =head1 SYNOPSIS [% USE UTF8Decode %] [% ansi_string_var | utf8_decode | html_entity %] =head1 DESCRIPTION This module is a Template Toolkit filter, which decode a string to utf8. For example, using FreeTDS (http://www.freetds.org) in order to talk with ms sql, can return an utf8 string as byte char. =head1 METHODS =head2 init Installs the filter as 'utf8_decode'. =head2 filter Receives a reference to the plugin object, along with the text to be filtered. =head1 AUTHOR Fabio Masini Efabio.masini@gmail.comE =head1 COPYRIGHT AND LICENSE Copyright (C) 2009 Fabio Masini This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut