diff --git a/lib/Diskstats.pm b/lib/Diskstats.pm
index 90385e13..ab812006 100644
--- a/lib/Diskstats.pm
+++ b/lib/Diskstats.pm
@@ -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:
diff --git a/lib/DiskstatsGroupByAll.pm b/lib/DiskstatsGroupByAll.pm
index a21bf804..9381d982 100644
--- a/lib/DiskstatsGroupByAll.pm
+++ b/lib/DiskstatsGroupByAll.pm
@@ -35,7 +35,7 @@ sub group_by_all {
 
    $self->clear_state();
 
-   if (!$self->interactive) {
+   if (!$self->interactive()) {
       $self->parse_from(
          sample_callback => sub {
                $self->print_deltas(
diff --git a/lib/DiskstatsGroupByDisk.pm b/lib/DiskstatsGroupByDisk.pm
index a8112aa2..d9562aee 100644
--- a/lib/DiskstatsGroupByDisk.pm
+++ b/lib/DiskstatsGroupByDisk.pm
@@ -88,7 +88,7 @@ sub group_by_disk {
       data       => $args{data},
    );
 
-   if ($self->interactive) {
+   if ($self->interactive()) {
       if ($self->{_iterations} == -1 && defined($original_offset)
             && eof($args{filehandle})) {
          $self->clear_state;
diff --git a/lib/DiskstatsMenu.pm b/lib/DiskstatsMenu.pm
index 41314bd4..49ed1f96 100644
--- a/lib/DiskstatsMenu.pm
+++ b/lib/DiskstatsMenu.pm
@@ -266,10 +266,10 @@ sub group_by {
    # Just aliasing this for a bit.
    for my $obj ( $args{options}->{current_group_by_obj} ) {
       if ( $obj->isa("DiskstatsGroupBySample") ) {
-         $obj->interactive(1);
+         $obj->set_interactive(1);
       }
       else {
-         $obj->interactive(0);
+         $obj->set_interactive(0);
       }
       $obj->group_by(
                filehandle => $args{filehandle},
@@ -283,7 +283,7 @@ sub group_by {
                      };
                   }->(),
                );
-      $obj->interactive(1);
+      $obj->set_interactive(1);
       $obj->{_print_header} = 0;
    }
 }