RZBW3YWDH4BXCTSM4KW4MWBOD5QYATN6RK62IPESVXW2NNO3MEGAC
CBU7KGFEC5OECK45W7T3VGU6QKLTZXUZ3JA2QSQDSJMFZSD34QDQC
VYS5RV7Y6IDMT63P7X6Y2GSNJL722HYZPTK6K5WJAT6EXCJQABOAC
2GNJU4VFSYWUXS3JG3XZZFM3QSN3ILOIJVJFA75TKBIFS2WFNXBQC
3AKZKWCRQZTASQO5BZ4KCEFJ5OMP7LVF6YOPDJN5KCRIZIW75MCAC
=head2 did_succeedReturn:* true if the task ran and finished successfully,* false if the task did not run successfully but is completed* undef if the task has not yet run=cutsub did_succeed { my ($self) = @_;
=head2 did_succeed
Return:
* true if the task ran and finished successfully,
* false if the task did not run successfully but is completed
* undef if the task has not yet run
=cut
sub did_succeed {
my ($self) = @_;
if (!defined($self->end_time)) { return undef; }
if (!defined($self->end_time)) {
return undef;
}
if (!defined($self->exit_code)) { return 0; } return $self->exit_code == 0;}
if (!defined($self->exit_code)) {
return 0;
return $self->exit_code == 0;
is($runlog->did_succeed(), undef, "The process has not yet succeeded.");
ok($runlog->did_succeed(), "The process did succeed.");
ok(!$runlog->did_succeed(), "The process did not succeed.");