Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 1: $PensionerMax = 0.5;
- ^RCS keywords $Id$ not found
- ^RCS keywords $Revision$, $HeadURL$, $Date$ not found
- ^RCS keywords $Revision$, $Source$, $Date$ not found
- ^No package-scoped "$VERSION" variable found
- ^Code before strictures are enabled
- ^Code before warnings are enabled
- ^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
- 2: print "$PensionerMax \n";
- ^Return value of flagged function ignored - print
- 3: $Type = 'Child';
- 4: print "$Type \n";
- ^Return value of flagged function ignored - print
- 5: $Start = 0;
- 6: print "$Start \n";
- ^Return value of flagged function ignored - print
- 7: $Destination = 1000;
- ^1000 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead
- 8: print "$Destination \n";
- ^Return value of flagged function ignored - print
- 9: $Distance = $Destination - $Start;
- 10: print "$Destination \n";
- ^Return value of flagged function ignored - print
- 11: $StandardFare = $Distance * 0.20;
- ^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
- 12: print "$StandardFare \n";
- ^Return value of flagged function ignored - print
- 13: if ($Type = 'Pensioner') {
- 14: if ($StandardFare > $PensionerMax){
- 15: $Fare = $PensionerMax;
- 16: print "$Fare \n";
- ^Return value of flagged function ignored - print
- 17: }
- 18: else {
- 19: $Fare = $StandardFare;
- 20: print "$Fare \n";
- ^Return value of flagged function ignored - print
- 21: }
- 22: }
- 23: elsif ($Type = 'Child') {
- 24: $MyFare = $StandardFare / 2;
- 25: print "$MyFare \n";
- ^Return value of flagged function ignored - print
- 26: }
- 27: else {
- 28: $Fare = $StandardFare;
- 29: print "$Fare \n";
- ^Return value of flagged function ignored - print
- }
Add Comment
Please, Sign In to add comment