XML-STX-0.43/STX/Parser.pm

37     $self->{c_template} ||= [];
486 		push @{$self->{c_template}}, $t;
570 		push @{$self->{c_template}}, $p;
591 		push @{$self->{c_template}->[-1]->{instructions}},
621 		push @{$self->{c_template}->[-1]->{instructions}},
641 		push @{$self->{c_template}->[-1]->{instructions}},
661 		$self->{c_template}->[-1]->{_self} = 1;
663 		push @{$self->{c_template}->[-1]->{instructions}},
692 		push @{$self->{c_template}->[-1]->{instructions}},
706 		push @{$self->{c_template}->[-1]->{instructions}},
716 		my $last = $self->{c_template}->[-1]->{instructions}->[-1]->[0];
720 		push @{$self->{c_template}->[-1]->{instructions}}, [I_ELSE_START];
744 		push @{$self->{c_template}->[-1]->{instructions}},
754  		my $last = $self->{c_template}->[-1]->{instructions}->[-1]->[0];
758 		push @{$self->{c_template}->[-1]->{instructions}}, [I_ELSE_START];
778 		push @{$self->{c_template}->[-1]->{instructions}},
800 		push @{$self->{c_template}->[-1]->{instructions}},
819 		push @{$self->{c_template}->[-1]->{instructions}},
837 		push @{$self->{c_template}->[-1]->{instructions}},
848 		my $insts = $self->{c_template}->[-1]->{instructions};
872 		push @{$self->{c_template}->[-1]->{instructions}},
887 		push @{$self->{c_template}->[-1]->{instructions}},
897 		push @{$self->{c_template}->[-1]->{instructions}},
912 		push @{$self->{c_template}->[-1]->{instructions}},
946 		if ($self->{c_template}->[0]) {
950 		      if exists $self->{c_template}->[-1]->{vars}->[0]->{$name};
953 		    $self->{c_template}->[-1]->{vars}->[0]->{$name} = [];
955 		    push @{$self->{c_template}->[-1]->{instructions}},
1028 		if ($self->{c_template}->[0]) {
1032 		      if exists $self->{c_template}->[-1]->{vars}->[0]->{$name};
1035 		    $self->{c_template}->[-1]->{vars}->[0]->{$name} = [];
1037 		    push @{$self->{c_template}->[-1]->{instructions}},
1090 		push @{$self->{c_template}->[-1]->{instructions}},
1118 		push @{$self->{c_template}->[-1]->{instructions}},
1140 		if ($self->{c_template}->[0]) {
1144 		      if exists $self->{c_template}->[-1]->{bufs}->[0]->{$name};
1148 		    push @{$self->{c_template}->[-1]->{instructions}},
1191 		push @{$self->{c_template}->[-1]->{instructions}},
1221 		push @{$self->{c_template}->[-1]->{instructions}},
1247 		push @{$self->{c_template}->[-1]->{instructions}},
1277 		push @{$self->{c_template}->[-1]->{instructions}},
1309 		push @{$self->{c_template}->[-1]->{instructions}},
1313 		push @{$self->{c_template}}, $t;
1340 		push @{$self->{c_template}->[-1]->{instructions}},
1344 		push @{$self->{c_template}}, $t;
1367 	    push @{$self->{c_template}->[-1]->{instructions}}, $i;
1413 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_P_CHILDREN_END];
1419 	    push @{$self->{c_template}->[-1]->{instructions}},
1426 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_P_SELF_END];
1432 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_P_ATTRIBUTES_END];
1438 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_P_BUFFER_END];
1444 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_P_DOC_END];
1450 	    push @{$self->{c_template}->[-1]->{instructions}},
1458 	    if ($self->{c_template}->[0]) {
1460 		push @{$self->{c_template}->[-1]->{instructions}}, [I_VARIABLE_END];
1469 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_ASSIGN_END];
1475 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_WITH_PARAM_END];
1489 	    pop @{$self->{c_template}};
1493 	    pop @{$self->{c_template}};
1498 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_COPY_END];
1504 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_ELEMENT_END];
1510 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_ATTRIBUTE_END];
1516 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_CDATA_END];
1522 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_COMMENT_END];
1528 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_PI_END];
1534 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_IF_END];
1540 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_ELSE_END];
1552 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_ELSIF_END];
1558 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_ELSE_END];
1565 	    if ($self->{c_template}->[0]) {
1566 		push @{$self->{c_template}->[-1]->{instructions}}, [I_BUFFER_END];
1576 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_RES_BUFFER_END];
1582 	    push @{$self->{c_template}->[-1]->{instructions}}, [I_RES_DOC_END];
1587 	    pop @{$self->{c_template}};
1591 	    pop @{$self->{c_template}};
1601 	push @{$self->{c_template}->[-1]->{instructions}}, [I_LITERAL_END, $el];
1608     if ($self->{c_template}->[0]) {
1610 	    push @{$self->{c_template}->[-1]->{instructions}},
1616     if ($self->{c_template}->[0]) {
1618 	    push @{$self->{c_template}->[-1]->{instructions}},
1638 		push @{$self->{c_template}->[-1]->{instructions}},
1647 	    push @{$self->{c_template}->[-1]->{instructions}},