X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2bc66c6238f498521ea7265444d41eb7fbcf6b05..d445880375bce1462b8f9a8b1a502b34c296d41f:/SL/Template/Plugin/P.pm

diff --git a/SL/Template/Plugin/P.pm b/SL/Template/Plugin/P.pm
new file mode 100644
index 000000000..d2f442354
--- /dev/null
+++ b/SL/Template/Plugin/P.pm
@@ -0,0 +1,106 @@
+package SL::Template::Plugin::P;
+
+use base qw( Template::Plugin );
+
+use SL::Presenter;
+use SL::Presenter::EscapedText;
+
+use strict;
+
+sub new {
+  my ($class, $context, @args) = @_;
+
+  return bless {
+    CONTEXT => $context,
+  }, $class;
+}
+
+sub escape {
+  my ($self, $string) = @_;
+  return SL::Presenter::EscapedText->new(text => $string);
+}
+
+sub AUTOLOAD {
+  our $AUTOLOAD;
+
+  my ($self, @args) = @_;
+
+  my $presenter     = SL::Presenter->get;
+  my $method        =  $AUTOLOAD;
+  $method           =~ s/.*:://;
+
+  return '' unless $presenter->can($method);
+
+  splice @args, -1, 1, %{ $args[-1] } if @args && (ref($args[-1]) eq 'HASH');
+
+  $presenter->$method(@args);
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding utf8
+
+=head1 NAME
+
+SL::Template::Plugin::P - Template plugin for the presentation layer
+
+=head1 SYNOPSIS
+
+  [% USE P %]
+
+  Customer: [% P.customer(customer) %]
+
+  Linked records:
+  [% P.grouped_record_list(RECORDS) %]
+
+=head1 FUNCTIONS
+
+=over 4
+
+=item C<AUTOLOAD>
+
+All unknown functions called on C<P> are forwarded to functions with
+the same name in the global presenter object.
+
+The presenter's functions use hashes for named-argument
+passing. Unfortunately L<Template> groups named arguments into hash
+references. This makes mixing intentional hash references and named
+arguments a bit hairy. For example, the following calls from a
+template are undistinguishable for a plugin:
+
+  [% P.some_func({ arg1 => 42, arg2 => 'Charlie' }) %]
+  [% P.some_func(arg1 => 42, arg2 => 'Charlie') %]
+  [% P.some_func(arg1=42, arg2='Charlie') %]
+  [% P.some_func(arg1=42, arg2='Charlie') %]
+
+C<AUTOLOAD> tries to be clever and unpacks a hash reference into a
+normal hash if and only if it is the very last parameter to the
+function call.
+
+Returns the result of the corresponding function in the presenter.
+
+=item C<escape $text>
+
+Returns an HTML-escaped version of C<$text>. Instead of a string an
+instance of the thin proxy-object L<SL::Presenter::EscapedText> is
+returned.
+
+It is safe to call C<escape> on an instance of
+L<SL::Presenter::EscapedText>. This is a no-op (the same instance will
+be returned).
+
+=back
+
+=head1 BUGS
+
+Nothing here yet.
+
+=head1 AUTHOR
+
+Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
+
+=cut