daily pastebin goal
48%
SHARE
TWEET

Untitled

a guest Aug 17th, 2018 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 1:  $PensionerMax = 0.5;
  2.     ^RCS keywords $Id$ not found
  3.     ^RCS keywords $Revision$, $HeadURL$, $Date$ not found
  4.     ^RCS keywords $Revision$, $Source$, $Date$ not found
  5.     ^No package-scoped "$VERSION" variable found
  6.     ^Code before strictures are enabled
  7.     ^Code before warnings are enabled
  8.                     ^0.5 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead
  9.  2: print "$PensionerMax \n";
  10.     ^Return value of flagged function ignored - print
  11.  3: $Type = 'Child';
  12.  4: print "$Type \n";
  13.     ^Return value of flagged function ignored - print
  14.  5: $Start = 0;
  15.  6: print "$Start \n";
  16.     ^Return value of flagged function ignored - print
  17.  7: $Destination = 1000;
  18.                    ^1000 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead
  19.  8: print "$Destination \n";
  20.     ^Return value of flagged function ignored - print
  21.  9: $Distance = $Destination - $Start;
  22. 10: print "$Destination \n";
  23.     ^Return value of flagged function ignored - print
  24. 11: $StandardFare = $Distance * 0.20;
  25.                                 ^0.20 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead
  26. 12: print "$StandardFare \n";
  27.     ^Return value of flagged function ignored - print
  28. 13: if ($Type = 'Pensioner') {
  29. 14:     if ($StandardFare > $PensionerMax){
  30. 15:         $Fare = $PensionerMax;
  31. 16:         print "$Fare \n";
  32.             ^Return value of flagged function ignored - print
  33. 17:     }
  34. 18:     else {
  35. 19:         $Fare = $StandardFare;
  36. 20:         print "$Fare \n";
  37.             ^Return value of flagged function ignored - print
  38. 21:     }
  39. 22:     }
  40. 23: elsif ($Type = 'Child') {
  41. 24:     $MyFare = $StandardFare / 2;
  42. 25:     print "$MyFare \n";
  43.         ^Return value of flagged function ignored - print
  44. 26:     }
  45. 27: else {
  46. 28:     $Fare = $StandardFare;
  47. 29:     print "$Fare \n";
  48.         ^Return value of flagged function ignored - print
  49. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top