view release on metacpan or  search on metacpan

lib/Rinchi/CPlusPlus/Preprocessor.pm  view on Meta::CPAN

 sub endElementHandler() {
   my ($tag) = @_;
   if ($closed == 0) {
     print "</$tag>\n";
   } else {
     $closed = 0;
   }
 }

 sub characterDataHandler() {
   my ($cdata) = @_;
   print $cdata;
 }

 sub processingInstructionHandler() {
   my ($target,$data) = @_;
   print "<?$target $data?>\n";
 }

 sub commentHandler() {
   my ($string) = @_;
   print "<!-- $string -->\n";

macro_test_1.pl  view on Meta::CPAN

        print "                   $text\n";
      }
    } elsif ($pr_id eq 'start') {
      $text = '';
    }
    print "ppd_pragma $pr_id $pr_str\n";
  }
}

sub characterDataHandler() {
  my ($cdata) = @_;
#  print $cdata;
}

sub processingInstructionHandler() {
  my ($target,$data) = @_;
#  print "<?$target $data?>\n";
}

sub commentHandler() {
  my ($string) = @_;
#  print "<!-- $string -->\n";

test.pl  view on Meta::CPAN

sub endElementHandler() {
  my ($tag) = @_;
  if ($closed == 0) {
    print "</$tag>\n";
  } else {
    $closed = 0;
  }
}

sub characterDataHandler() {
  my ($cdata) = @_;
  print $cdata;
}

sub processingInstructionHandler() {
  my ($target,$data) = @_;
  print "<?$target $data?>\n";
}

sub commentHandler() {
  my ($string) = @_;
  print "<!-- $string -->\n";