package body Halstead_Effort is

    procedure Of_Any_Program_Unit (V : in Program_Volume;
                                   L : in Program_Level;
                                   E : out Result) is

    begin
        -- Of_Any_Program_Unit

        E := Result (V) / Result (L);

    exception
        -- to be changed after the demo
        when others =>
            E := 0.0;

    end Of_Any_Program_Unit;


end Halstead_Effort;