Lines Matching refs:sec
39 my $sec;
45 for $sec (keys %SECTION) {
46 if (exists $spec->{$sec}) {
48 if (exists $SECTION{$sec}{header}) {
49 my $header = $SECTION{$sec}{header};
51 $SECTION{$sec}{code} .= $header . "\n";
53 $SECTION{$sec}{code} .= $spec->{$sec} . "\n";
60 for $sec (keys %SECTION) {
61 my $code = $SECTION{$sec}{code};
62 if (exists $SECTION{$sec}{indent}) {
63 $code =~ s/^/$SECTION{$sec}{indent}/gm;
66 $data =~ s/^__\U$sec\E__$/$code/m;