sketch of 'attrs' widget helper

diff --git a/lib/Reaction/UI/WidgetClass.pm b/lib/Reaction/UI/WidgetClass.pm
index 7e7216c..22e00e6 100644 (file)
--- a/lib/Reaction/UI/WidgetClass.pm
+++ b/lib/Reaction/UI/WidgetClass.pm
@@ -78,6 +78,19 @@ override exports_for_package => sub {
       my %args = map{ $vp->event_id_for($_) => $events->{$_} } keys %$events;
       $vp->ctx->req->uri_with(\%args);
     },
+    attrs => sub {
+      my ($attrs) = @_;
+      return join(' ', map {
+        my $text = $attrs->{$_};
+        for ($text) {
+            s/&/&/g;
+            s/</&lt;/g;
+            s/>/&gt;/g;
+            s/"/&quot;/g;
+        }
+        qq{$_="${text}"};
+      } keys %$attrs);
+    },
   );
 };
 override default_base => sub { ('Reaction::UI::Widget') };