lib/perl5db/t/disable-breakpoints-3

   1 #!/usr/bin/perl
   2
   3 use EnableModule;
   4 my $x = "One";
   5
   6 $x = "FirstVal";
   7
   8 EnableModule::set_x(\$x);
   9
  10 $x = "SecondVal";
  11
  12 EnableModule::set_x(\$x);
  13
  14 $x = "ThirdVal";
  15
  16 EnableModule::set_x(\$x);
  17
  18 $x = "FourthVal";
  19
  20 EnableModule::set_x(\$x);
  21