Help for this page

Select Code to Download


  1. or download this
    #snip of highlander.t
  my $generated_html = ptree($tree, "$root.gen");
  is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for 
+$age");
  2. or download this
      my $generated_html = ptree($tree, "$root.gen");
  my $file = File::Slurp::read_file("$root.exp");
  $file =~ s/\x0d+\x0a/
/g;
  is ($generated_html, $file, "HTML for $age");