[Catalyst] TT VMethods

[J. Shirley]

On 9/12/07, Mitchell Jackson <mitch.lists at onsitesquad.com> wrote:
>
> 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 =3D qw(commify);
>
> =3Dhead1 commify
>
>     VMethod extension to format a number with pretty commas each 3rd
> digit,
>     and to specify decimal precision
>
>     Template Syntax:
>     [% USE commify %]
>     [% test =3D '1234567890.983457' %]
>     [% test.commify    %] 1,234,567,890.983457
>     [% test.commify(2) %] 1,234,567,890.98
>
> =3Dcut
>
> sub commify {
>     my ( $data, $precision ) =3D @_;
>     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 =3D sprintf "%.${precision}f", $data
>         if defined $precision;
>
>     # detach the decimals, we don't want commas there
>     $decimals =3D $1 if $data =3D~ s/(\.\d+)//;
>
>     # insert commas
>     $data =3D~ s/(\d{1,3})(?=3D(?:\d\d\d)+(?!\d))/$1,/g;
>
>     # reattach decimals
>     $data .=3D $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/
>

Not to rain on your parade, but miyagawa++ has a plugin on the CPAN for this
already:

http://search.cpan.org/~miyagawa/Template-Plugin-Comma-0.04/lib/Template/Pl=
ugin/Comma.pm

The more advanced Template::Plugin::Number::Format is probably more useful.

-J

-- =

J. Shirley :: jshirley at gmail.com :: Killing two stones with one bird...
http://www.toeat.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20070913/bb5bb=
c9f/attachment.htm