anchor.diff:  									{_, _, _} ->
   										throw(bad_password)
   								end;
  -							Balance when Balance =< 0 ->
  +							false ->
   								throw(out_of_credit)
   						end;
   					[] ->
  
positive.code: 			exit(not_found)
  	end.
  
  -spec bucket_balance(Buckets) ->
  		Balance when
  	Buckets :: [#bucket{}],
  	Balance :: integer().
  %% @doc return oldest availabel amount
  bucket_balance([]) ->
  	0;
  bucket_balance([#bucket{remain_amount = RemAmount} | _]) 
  		when RemAmount#remain_amount.amount > 0 ->
  	RemAmount#remain_amount.amount;
  bucket_balance([#bucket{remain_amount = RemAmount} | Tail])
  		when RemAmount#remain_amount.amount =< 0 ->
  	bucket_balance(Tail).
  
  
negative.code: -export([authorize/2, normalize/1]).
  
  -export_type([eap_method/0]).
  
  -include("ocs.hrl").
  -include_lib("inets/include/mod_auth.hrl").
  