use Acme::FishFarm's check_water_filter sub check_water_filter { my ( $water_filter, $current_reading ) = @_; my $waste_threshold = $water_filter->waste_count_threshold;

$water_filter->current_waste_count( $current_reading );

print "Current Waste Count: ", $current_reading, " (high: >= ", $waste_threshold, ")\n";

if ( $water_filter->is_cylinder_dirty ) {
    print "  !! Filtering cylinder is dirty!\n";
    print "  Cleaned the filter!\n";
    $water_filter->clean_cylinder;
} else {
    print "  Filtering cylinder is still clean.\n";
}
1;
}