forgotten in #bf7b134e

lib/AccountManager/Template/Plugin/Quote.pm

+package AccountManager::Template::Plugin::Quote;
+
+use strict;
+use warnings;
+use Template::Stash;
+
+use constant DEFAULT_CHAR => '"';
+
+$Template::Stash::SCALAR_OPS->{ quote } = sub {
+    my $scalar = shift;
+    my $char = shift || DEFAULT_CHAR;
+    return $char . $scalar . $char;
+};
+
+$Template::Stash::LIST_OPS->{ quote } = sub {
+    my $list = shift;
+    my $char = shift || DEFAULT_CHAR;
+    return [ map { $char . $_ . $char } @$list ];
+};
+
+1;