view release on metacpan or  search on metacpan

bin/zen  view on Meta::CPAN

         my $caption = $l->{begin_block}->{name};
         my $lang = $l->{begin_block}->{lang};
         $lang = undef unless exists $latex_listing_supported_languages{$lang};
         
         if ($l->{begin_block}->{name}) {
           my $name = $l->{begin_block}->{name};
           print "\\vskip 0.5em \\noindent ";
           if ($name =~ m/^\+\[?([^]]*)/) {
             my $sec = find_section($1);
             my $caption = $sec->{heading};
             print '$[\\![$\\textbf{', latex_escape($caption), '}$]\\!] +\\!\\!\\equiv$';
           } elsif ($name =~ m/^>(.*)/) {
             print '$\\langle$\\textbf{',latex_escape($1), '}$\\rangle\\equiv$';
           } else {
             print "\\{\\textbf{",latex_escape($name),'}\\}$\\equiv$';
           }
         }
         
         my $options = "firstnumber=$firstnum";
         $options .= ",language=$lang" if $lang;
         print "\\begin{lstlisting}[$options]\n";

bin/zen  view on Meta::CPAN

           last if $l->{end_block};
         
           if ($t =~ m/$re_ln_label/) {
             $t = $`;
             $label = $1;
           }
         
           if ($t =~ m/^(\s*)\[\[(.*)]]\s*$/) {
             my $spaces = $1;
             my @names = split /;/, $2;
             print $spaces, "/*", '!$[\\![$';
             my $n = 0;
             foreach (@names) {
               $n++;
               my ($name, $params) = split /:/,trim($_);
               my $section = find_section($name);
               my $id = $section->{id};
               if ($section->{pattern} && !$params && @{$section->{params}} > 0) {
                 my $pat = $section->{pattern};
                 my @vals = ($name =~ /^$pat$/g);
                 $params = join(',', @vals);