use Acme::FishFarm's check_water_level sub check_water_level { my $water_level = shift; my $current_reading = shift; my $height_increase = $water_level->water_level_increase_height; # for output my $water_level_threshold = $water_level->low_water_level_threshold;

    $water_level->current_water_level( $current_reading ); # input by user
    print "Current Water Level: ", $current_reading, " m (low: < ", $water_level_threshold, " m)\n";

    if ( $water_level->is_low_water_level ) {
        print "  !! Water level is low!\n";
        $water_level->pump_water_in;
        print "  Pumping in ", $height_increase, " m of water...\n";
        print "Current Water Level: ", $water_level->current_water_level, "\n";
    } else {
        print "  Water level is still normal.\n";
    }
    1;
}