Select Code to Download

while ($allChanges->[$k]) {
   $logger->info("Change $k was to the ", $allChanges->[$k]->getField(
+), " field of testCase ", $allChanges->[$k]->getKey(), " on createdDa
+te ", $allChanges->[$k]->printCreatedDate(), " Old String = (", $allC
+hanges->[$k]->getOldString(), ") New String = ", $allChanges->[$k]->g
+etNewString());
...
    my $self = shift;
    return $self->{oldString};
}

INFO main:::80: Change 0 was to the Automated field of testCase HIREX-
+16861 on createdDate 2013-05-13 10:16:05 Old String = (To Be Automate
+d) New String = Ready For Integration
DEBUG main:::84: oldString = (To Be Automated)
...
$VAR1 = 'To Be Automated';
Use of uninitialized value in pattern match (m//) at weeklyAutomationC
+hanges.pl line 103.
Use of uninitialized value in pattern match (m//) at weeklyAutomationC
+hanges.pl line 103.