My advice is first, check out what Perl's notion of "truth" is; robin wrote a very nice tutorial on truth (# What is truth? (Curiosity corner) by robin) on it on this site.

And then, as said by ptum, check to see if $self -> {-finish} is defined before comparing it to 0. Or try return if $self -> {-finish}, which may be adequate.