kivitendo/SL/Template/Plugin/T8.pm @ 3b61c95f
| c6f47607 | Sven Schöling | package SL::Template::Plugin::T8;
|
||
| 94bc7ca3 | Sven Schöling | use strict;
|
||
| b3e51007 | Sven Schöling | use parent qw( Template::Plugin::Filter );
|
||
| 94bc7ca3 | Sven Schöling | |||
| b3e51007 | Sven Schöling | my $cached_instance;
|
||
sub new {
|
||||
| e8e23027 | Moritz Bunkus | my $class = shift;
|
||
| b3e51007 | Sven Schöling | |||
return $cached_instance ||= $class->SUPER::new(@_);
|
||||
}
|
||||
| c6f47607 | Sven Schöling | |||
sub init {
|
||||
| f393137f | Moritz Bunkus | my $self = shift;
|
||
| c6f47607 | Sven Schöling | |||
| f393137f | Moritz Bunkus | $self->install_filter($self->{ _ARGS }->[0] || 'T8');
|
||
| c6f47607 | Sven Schöling | |||
| f393137f | Moritz Bunkus | return $self;
|
||
| c6f47607 | Sven Schöling | }
|
||
sub filter {
|
||||
| f393137f | Moritz Bunkus | my ($self, $text, $args) = @_;
|
||
| c7edb248 | Sven Schöling | return $::locale->text($text, @{ $args || [] }) || $text;
|
||
| c6f47607 | Sven Schöling | }
|
||
return 'SL::Template::Plugin::T8';
|