@barefootjs/perl 0.9.2 → 0.9.4

package/lib/BarefootJS.pm

@@ -52,10 +52,11 @@ my %ATTR_DEFAULT = (
 # _scope_id    — addressable scope id
 # _bf_parent / _bf_mount — slot identity when this scope is slot-attached
 # _props       — props serialised into bf-p / the scope comment
+# _data_key    — keyed-loop-item key, emitted as data-key on the scope root
 for my $attr (qw(
     c config backend
     _scripts _script_seen _scope_id _is_child _bf_parent _bf_mount _props
-    _child_renderers
+    _data_key _child_renderers
 )) {
     no strict 'refs';
     *{"BarefootJS::$attr"} = sub {
@@ -131,6 +132,20 @@ sub hydration_attrs ($self) {
     return join(' ', @parts);
 }
 
+# Emits ` data-key="<key>"` for a keyed loop item, else ''. The client
+# runtime uses data-key for list reconciliation; SSR must match the Hono
+# reference, which stamps it on each loop item's scope root. The value is set
+# on the child instance by the child renderer (`register_child_renderer` /
+# `register_components_from_manifest`) from the JSX `key` prop — a reserved
+# prop, never a real template variable.
+sub data_key_attr ($self) {
+    my $k = $self->_data_key;
+    return '' unless defined $k;
+    $k =~ s/&/&amp;/g;
+    $k =~ s/"/&quot;/g;
+    return qq{ data-key="$k"};
+}
+
 sub props_attr ($self) {
     my $props = $self->_props;
     return '' unless $props && %$props;
@@ -140,6 +155,45 @@ sub props_attr ($self) {
     return qq{ bf-p='$json'};
 }
 
+# ---------------------------------------------------------------------------
+# Context (SSR mirror of the client `provideContext` / `useContext`)
+# ---------------------------------------------------------------------------
+#
+# A `<Ctx.Provider value>` seeds a value that descendant `useContext(Ctx)`
+# consumers read during the same render. Dynamic scoping mirrors the client:
+# the provider pushes the value before rendering its children and pops it
+# after, and `use_context` reads the innermost active value (or the
+# `createContext` default when none is active).
+#
+# The value stacks live in a package-level store rather than per-instance or
+# on `$c->stash`: a parent template and the child templates it renders via
+# `render_child` are separate bf instances that don't reliably share a
+# controller (the Xslate backend runs with `c => undef`) nor a backend (the
+# Mojo path lazily builds one per instance). SSR rendering is synchronous —
+# nothing awaits between a provider's push and its matching pop — and the
+# push/pop are perfectly balanced, so the per-name stack always unwinds to
+# empty at the end of each provider subtree, keeping concurrent root renders
+# isolated. provide/revoke return '' so they drop cleanly into an inline
+# `<: … :>` (Kolon) or `% … ;` (EP) emit.
+
+my %CONTEXT_STACKS;
+
+sub provide_context ($self, $name, $value) {
+    push @{ $CONTEXT_STACKS{$name} //= [] }, $value;
+    return '';
+}
+
+sub revoke_context ($self, $name) {
+    pop @{ $CONTEXT_STACKS{$name} } if $CONTEXT_STACKS{$name} && @{ $CONTEXT_STACKS{$name} };
+    return '';
+}
+
+sub use_context ($self, $name, $default = undef) {
+    my $stack = $CONTEXT_STACKS{$name};
+    return $default unless $stack && @$stack;
+    return $stack->[-1];
+}
+
 # ---------------------------------------------------------------------------
 # Comment Markers
 # ---------------------------------------------------------------------------
@@ -299,6 +353,10 @@ sub register_components_from_manifest ($self, $manifest, %opts) {
             # closure adds no edge to the per-request reference cycle.
             my $child_bf = BarefootJS->new($parent->c, { backend => $parent->backend });
             my $slot_id = delete $props->{_bf_slot};
+            # JSX `key` (a reserved prop) → data-key on the child's scope root
+            # for keyed-loop reconciliation (see `data_key_attr`).
+            my $data_key = delete $props->{key};
+            $child_bf->_data_key($data_key) if defined $data_key;
             $child_bf->_scope_id(
                 $slot_id ? $parent_scope . '_' . $slot_id
                          : $template_name . '_' . substr(rand() =~ s/^0\.//r, 0, 6)

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@barefootjs/perl",
-  "version": "0.9.2",
+  "version": "0.9.4",
   "description": "BarefootJS engine-agnostic Perl runtime (BarefootJS.pm) — pluggable rendering backend; the shared basis for Mojolicious and other Perl framework integrations",
   "type": "module",
   "files": [