package MyPackage;
use strict;

use constant INIT => 4;


sub close_cnx
{
    my $self = shift;
    init_action($self);
}

sub init_action
{
    my $self = shift;
    return if $self->{Needed} <= $self->{count};
    callit($self->{ID}, INIT);
}

1;