#!/usr/local/bin/perl -w

use strict;

sub get_useful_number_1()
{
    my ($self, $harness, $bridle_radius, $max_spit_distance, $num_legs, $last_name, $day_phone, $days_without_water) = @_;
    my $camel_id;

   if (1 == 1)
   {
       $camel_id = get_camel_id($self, $harness, $bridle_radius, $max_spit_distance, $num_legs, $last_name, $day_phone);
       # line above: NO COMPLAINTS
   }
}


sub get_camel_id()
{
    my ($self, $harness, $bridle_radius, $max_spit_distance, $num_legs, $last_name, $day_phone) = @_;
    my $camel_id = 18;

    if ($camel_id  == 18)
    {
        return($camel_id);
    }
    else
    {
        return(-18);
    }
}


sub get_useful_number_2()
{
    my ($self, $harness, $bridle_radius, $max_spit_distance, $num_legs, $last_name, $day_phone, $days_without_water) = @_;
    my $camel_id;

   if (1 == 1)
   {
       $camel_id = get_camel_id($self, $harness, $bridle_radius, $max_spit_distance, $num_legs, $last_name, $day_phone);
       # line above: Too many arguments for main::get_camel_id at ./errand-01.pl line 41, near "$day_phone)"
   }
}

1;