lib/perl5db/t/test-r-statement

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $var = "Test";
   7
   8 sub mysub
   9 {
  10     my $flag = 1;
  11
  12     $flag = 0;
  13
  14     print "Foo\n";
  15
  16     if ($flag)
  17     {
  18         print "Bar\n";
  19     }
  20
  21     return;
  22 }
  23
  24 mysub();
  25
  26 $var .= "More";
  27