Add scope parameter for subroutines called for each element in [zoom]…

… replacements.
interchange · Aug 15, 2010 · 097d190 · 097d190
1 parent fcb51c9
commit 097d190
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/lib/WellWell/Zoom.pm b/lib/WellWell/Zoom.pm
@@ -194,7 +194,14 @@ sub parse_handler {
 
 			if ($sob->{sub}) {
 				# determine code reference for named function
-				$sob->{subref} = $Vend::Cfg->{Sub}{$sob->{sub}} || $Global::GlobalSub->{$sob->{sub}};
+				my $subref = $Vend::Cfg->{Sub}{$sob->{sub}} || $Global::GlobalSub->{$sob->{sub}};
+
+				if ($sob->{scope} eq 'element') {
+					$elt->{zoom_rep_sub} = $subref;
+				}
+				else {
+					$sob->{subref} = $subref;
+				}
 			}
 
 			$sref->{params}->{$sob->{list}}->{hash}->{$name} = $sob;