| Subject: | Should issue a warning if Net::OpenSSH::Parallel goe out of scope without ->run having been called. |
Something like this:
sub run {
my $self = shift;
$self->{did_run}++;
...;
}
sub cancel {
my $self = shift;
$self->{did_run} = "0 but true";
}
sub DESTROY {
my $self = shift;
carp "Net::OpenSSH::Parallel object going out of scope, but ->run not called" unless $self->{did_run};
}