Explicit setter for interactive.

This commit is contained in:
Brian Fraser
2012-01-10 14:01:11 -03:00
parent 79bdf3f1d3
commit ae76c73395
4 changed files with 10 additions and 6 deletions

View File

@@ -145,11 +145,15 @@ sub set_sample_time {
}
sub interactive {
my ($self) = @_;
return $self->{interactive};
}
sub set_interactive {
my ($self, $new_val) = @_;
if (defined($new_val)) {
$self->{interactive} = $new_val;
}
return $self->{interactive};
}
# What this method does is thee-fold: