package body Halstead_Program_Level is

    procedure Of_Any_Program_Unit (V : in Program_Volume;
                                   V_Star : in Potential_Program_Volume;
                                   L : out Result) is

    begin
        -- Of_Any_Program_Unit

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

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

    end Of_Any_Program_Unit;

end Halstead_Program_Level;