[Catalyst] TT VMethods

[Felix Antonius Wilhelm Ostmann]

i use another easy way:

package C::V::TT;

use strict;
use base 'Catalyst::View::TT';

__PACKAGE__->config(
    {
        CATALYST_VAR => 'catalyst',
        ...
        FILTERS => {
            'dollar' => sub { sprintf('%.2f',$_[0]); },
        }
    },
);



so you can use it in the Template like this:

[% var | dollar %]

and you can chain that!

[% var | dollar | html | uri %]


(i hope that works, dont check that, just copy & paste from one app, 
perhaps typo or something small errors)


Mitchell Jackson schrieb:
> Today I saw how easy it is to extend Template-Toolkit within 
> Catalyst.  Perhaps somebody here will find this useful.
>
> I wanted to easily format dollar amounts from within the tt2 
> template.  I had been doing this with [% FILTER format( "%.2f" ) %], 
> but having FILTER/END everywhere seemed a bit annoying, and I wanted 
> to add commas to make the data easier to read on large numbers.
>
> In Catalyst, you can add extensions to Template from your app's lib 
> directory.  You can add filters ( Template::Plugin::Filter ) and 
> VMethods ( Template::Plugin::VMethods ) simply by putting them into 
> MyApp/lib/Template/Plugin
>
> Following is an example that adds a 'commify' method to any scalar 
> template variable.  [% var.commify %] to add seperating commas, [% 
> var.commify(2) %] to add commas and round to two decimal places
>
> /Mitch
> OnSite Mobile
>
>
>
> #MyApp/lib/Template/Plugin/commify.pm
> package Template::Plugin::commify;
>
> use Template::Plugin::VMethods;
> use base qw(Template::Plugin::VMethods);
> @SCALAR_OPS = qw(commify);
>
> =head1 commify
>
>    VMethod extension to format a number with pretty commas each 3rd 
> digit,
>    and to specify decimal precision
>
>    Template Syntax:
>    [% USE commify %]
>    [% test = '1234567890.983457' %]
>    [% test.commify    %] 1,234,567,890.983457
>    [% test.commify(2) %] 1,234,567,890.98
>
> =cut
>
> sub commify {
>    my ( $data, $precision ) = @_;
>    my $decimals;
>
>    # don't do anything to the data if it doesn't look like a number
>    return $data
>        if $data !~ /^\d+(?:\.\d+)$/;
>
>    # round to the specified precision
>    $data = sprintf "%.${precision}f", $data
>        if defined $precision;
>
>    # detach the decimals, we don't want commas there
>    $decimals = $1 if $data =~ s/(\.\d+)//;
>
>    # insert commas
>    $data =~ s/(\d{1,3})(?=(?:\d\d\d)+(?!\d))/$1,/g;
>
>    # reattach decimals
>    $data .= $decimals if defined $decimals;
>
>    $data;
> }
>
> 1;
>
>
>
> _______________________________________________
> List: Catalyst at lists.rawmode.org
> Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
> Searchable archive: 
> http://www.mail-archive.com/catalyst@lists.rawmode.org/
> Dev site: http://dev.catalyst.perl.org/
>
>


-- 
Mit freundlichen Grüßen

Felix Antonius Wilhelm Ostmann
--------------------------------------------------
Websuche   Search   Technology   GmbH   &   Co. KG
Martinistraße 3  -  D-49080  Osnabrück  -  Germany
Tel.:   +49 541 40666-0 - Fax:    +49 541 40666-22
Email: info at websuche.de - Website: www.websuche.de
--------------------------------------------------
AG Osnabrück - HRA 200252 - Ust-Ident: DE814737310
Komplementärin:     Websuche   Search   Technology
Verwaltungs GmbH   -  AG Osnabrück  -   HRB 200359
Geschäftsführer:  Diplom Kaufmann Martin Steinkamp
--------------------------------------------------