Someone

sub is_divisor_of {
        my($self, @args) = @_;
        my @number = @{$self->{'numbers'}};
        die "Math::Numbers: is_divisor_of requires one argument from the object!\n"
                if @number != 1;
        die "Math::Numbers: is_divisor_of requires one argument!\n"
                if @args != 1;
        
        if($args[0] % $number[0] == 0) {
                return 1;
        } else {
                return 0;
        }
}