File Coverage

blib/lib/CTM/ReadEM.pm

Criterion	Covered	Total	%
statement	63	225	28.0
branch	2	138	1.4
condition	0	24	0.0
subroutine	20	50	40.0
pod	19	19	100.0
total	104	456	22.8

#------------------------------------------------------------------------------------------------------
# OBJET : Consultation de Control-M EM 6/7/8 via son SGBD
# APPLICATION : Control-M EM
# AUTEUR : Yoann Le Garff
# DATE DE CREATION : 17/03/2014
#------------------------------------------------------------------------------------------------------
# USAGE / AIDE
#   perldoc CTM::ReadEM
#------------------------------------------------------------------------------------------------------

#-> BEGIN

#----> ** initialisation **

package CTM::ReadEM;

use strict;
use warnings;

use base qw/
    CTM::Base
    CTM::Base::MainClass
/;

use Exporter::Easy (
    OK => [qw/
        $VERSION
        :ctmFunctions
        :sessionFunctions
        :allFunctions
        :all
        getStatusColorForService
        getSeverityForAlarms
        getSeverityForExceptionAlerts
        getExprForStatusColorForService
        getExprForSeverityForAlarms
        getExprForSeverityForExceptionAlerts
        getNbEMSessionsCreated
        getNbEMSessionsConnected
    /],
    TAGS => [
        ctmFunctions => [qw/
            getStatusColorForService
            getSeverityForAlarms
            getSeverityForExceptionAlerts
            getExprForStatusColorForService
            getExprForSeverityForAlarms
            getExprForSeverityForExceptionAlerts
        /],
        sessionFunctions => [qw/
            getNbEMSessionsCreated
            getNbEMSessionsConnected
        /],
        allFunctions => [qw/
            :ctmFunctions
            :sessionFunctions
        /],
        all => [qw/
            $VERSION
            :allFunctions
        /]
    ]
);

use CTM::ReadEM::WorkOnCurrentBIMServices 0.18;
use CTM::ReadEM::WorkOnAlarms 0.18;
use CTM::ReadEM::WorkOnExceptionAlerts 0.18;

use Sub::Name qw/
    subname
/;
use Carp qw/
    croak
/;
use String::Util qw/
    crunch
/;
use List::MoreUtils qw/
    uniq
/;
use Hash::Util qw/
    lock_hash
    lock_value
    unlock_value
/;
use Date::Calc 6.0, qw/
    Date_to_Time
/;
use POSIX qw/
    strftime
/;

#----> ** variables de classe **

our $VERSION = 0.181;

my %_emSessionsState = (
    CTM::Base::_nbSessionsInstancedClassProperty => 0,
    CTM::Base::_nbSessionsConnectedClassProperty => 0
);

#----> ** fonctions privees (mais accessibles a l'utilisateur pour celles qui ne sont pas des references) **

sub _calculStartEndDayTimeInPosixTimestamp($$) {
    my ($time, $ctmDailyTime) = @_;
    if ($ctmDailyTime =~ /^(\+|\-)\d{4}$/) {
        my ($ctmDailyHour, $ctmDailyMin) = unpack '(a2)*', substr $ctmDailyTime, 1, 4;
        my ($minNow, $hoursNow, $dayNow, $monthNow, $yearNow) = split /\s+/, strftime('%M %H %d %m %Y', localtime $time);
        my ($previousDay, $previousDayMonth, $previousDayYear) = split /\s+/, strftime('%d %m %Y', localtime $time - 86400);
        my ($nextDay, $nextDayMonth, $nextDayYear) = split /\s+/, strftime('%d %m %Y', localtime $time + 86400);
        my %time;
        if ($hoursNow >= $ctmDailyHour && $minNow >= $ctmDailyMin) {
            $time{start} = Date_to_Time($yearNow, $monthNow, $dayNow, $ctmDailyHour, $ctmDailyMin, 00);
            $time{end} = Date_to_Time($nextDayYear, $nextDayMonth, $nextDay, $ctmDailyHour, $ctmDailyMin, 00);
        } else {
            $time{start} = Date_to_Time($previousDayYear, $previousDayMonth, $previousDay, $ctmDailyHour, $ctmDailyMin, 00);
            $time{end} = Date_to_Time($yearNow, $monthNow, $dayNow, $ctmDailyHour, $ctmDailyMin, 00);
        }
        unless (grep { ! defined } values %time) {
            if ($1 eq '-') {
                $_ += 86400 for (values %time);
            }
            return 1, $time{start}, $time{end};

        } else {
            return 0, 1;
        }
    }
    return 0, 0;
}

#----> ** fonctions publiques **

sub getStatusColorForService($) {
    my $statusTo = shift;
    $statusTo = $statusTo->{status_to} if (ref $statusTo eq 'HASH');
    if (defined $statusTo && $statusTo =~ /^\d+$/) {
        for ($statusTo) {
            $_ == 4 && return 'OK';
            $_ == 8 && return 'Completed OK';
            ($_ >= 16 && $_ < 128) && return 'Error';
            ($_ >= 128 && $_ < 256) && return 'Warning';
            ($_ >= 256) && return 'Completed Late';
        }
    }
    return 0;
}

sub getSeverityForAlarms($) {
    my $severity = shift;
    $severity = $severity->{severity} if (ref $severity eq 'HASH');
    if (defined $severity) {
        for ($severity) {
            $_ eq 'R' && return 'Regular';
            $_ eq 'U' && return 'Urgent';
            $_ eq 'V' && return 'Very Urgent';
        }
    }
    return 0;
}

sub getSeverityForExceptionAlerts($) {
    my $xSeverity = shift;
    $xSeverity = $xSeverity->{xseverity} if (ref $xSeverity eq 'HASH');
    if (defined $xSeverity && $xSeverity =~ /^\d+$/) {
        for ($xSeverity) {
            $_ == 3 && return 'Warning';
            $_ == 2 && return 'Error';
            $_ == 1 && return 'Severe';
        }
    }
    return 0;
}

sub getExprForStatusColorForService($) {
    my ($status, $subName) = (shift, (caller 0)[3]);
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage($subName, '$definedStatus'))) unless (defined $status);
    for ($status) {
        /^OK$/i && return sub {
            shift == 4
        };
        /^Completed OK$/i && return sub {
            shift == 8
        };
        /^Error$/i && return sub {
            $_[0] >= 16 && $_[0] < 128
        };
        /^Warning$/i && return sub {
            $_[0] >= 128 && $_[0] < 256
        };
        /^Completed Late$/i && return sub {
            shift > 256
        };
    }
    return sub {
        shift =~ //
    };
}

sub getExprForSeverityForAlarms($) {
    my ($severity, $subName) = (shift, (caller 0)[3]);
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage($subName, '$definedSeverity'))) unless (defined $severity);
    for ($severity) {
        /^Regular$/i && return sub {
            shift eq 'R'
        };
        /^Urgent$/i && return sub {
            shift eq 'U'
        };
        /^Very Urgent$/i && return sub {
            shift eq 'V'
        };
    }
    return sub {
        shift =~ //
    };
}

sub getExprForSeverityForExceptionAlerts($) {
    my ($severity, $subName) = (shift, (caller 0)[3]);
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage($subName, '$definedSeverity'))) unless (defined $severity);
    for ($severity) {
        /^Warning$/i && return sub {
            shift == 3
        };
        /^Error$/i  && return sub {
            shift == 2
        };
        /^Severe$/i  && return sub {
            shift == 1
        };
    }
    return sub {
        shift =~ //
    };
}

sub getNbEMSessionsCreated {
    return $_emSessionsState{CTM::Base::_nbSessionsInstancedClassProperty};
}

sub getNbEMSessionsConnected {
    return $_emSessionsState{CTM::Base::_nbSessionsConnectedClassProperty};
}

#----> ** methodes privees **

#-> constructeurs/destructeurs

my $_subClassConstructor = sub {
    my ($self, $subClassLastName, $baseMethod, %params) = @_;
    my $subSelf = {};
    $subSelf->{CTM::Base::_rootClassEMPrivate} = $self;
    $subSelf->{CTM::Base::_workingObjProperty} = 0;
    $subSelf->{CTM::Base::_errorsObjProperty} = [];
    $subSelf->{CTM::Base::_paramsObjProperty} = \%params;
    $subSelf->{CTM::Base::_subClassDatasObjProperty} = $self->$baseMethod(%params);
    return bless $subSelf, __PACKAGE__ . '::' . $subClassLastName;
};

#-> directement liees aux actions sur le SGBD

my $_getDatasCentersDownloadInfos = subname '_getDatasCentersDownloadInfos' => sub {
    my $self = shift;
    my $sth = $self->_DBI()->prepare(<
SELECT d.data_center, d.netname, TO_CHAR(t.dt, 'YYYY/MM/DD HH:MI:SS') AS download_time_to_char, c.ctm_daily_time
FROM comm c, (
    SELECT data_center, MAX(download_time) AS dt
    FROM download
    GROUP by data_center
) t JOIN download d ON d.data_center = t.data_center AND t.dt = d.download_time
WHERE c.data_center = d.data_center
AND c.enabled = '1';
SQL
    $self->_invokeVerbose((caller 0)[3], "\n" . $sth->{Statement} . "\n");
    if ($sth->execute()) {
        my $hashRef = $sth->fetchall_hashref('data_center');
        for (values %{$hashRef}) {
            ($_->{active_net_table_name} = $_->{netname}) =~ s/[^\d]//g;
            $_->{active_net_table_name} = 'a' . $_->{active_net_table_name} . '_ajob';
        }
        return 1, $hashRef;
    } else {
        return 0, crunch($self->_DBI()->errstr());
    }
};

my $_getCurrentBIMServices = subname 'getCurrentBIMServices' => sub {
    my ($self, $datacenterInfos, $matching, $deleteFlag, $forLastNetName, $serviceStatus, $forDataCenters) = @_;
    if (%{$datacenterInfos}) {
        my $sqlRequest = <
SELECT *, TO_CHAR(order_time, 'YYYY/MM/DD HH:MI:SS') AS order_time_to_char
FROM bim_log
WHERE log_id IN (
    SELECT MAX(log_id)
    FROM bim_log
    GROUP BY order_id
)
AND service_name LIKE ?
AND order_id IN (
SQL
        $sqlRequest .= join("\n    UNION\n", map { '    SELECT order_id FROM ' . $_->{active_net_table_name} . " WHERE appl_type = 'BIM'" . ($deleteFlag ? " AND delete_flag = '0'" : '') } values %{$datacenterInfos}) . "\n)\n";
        if ($forLastNetName) {
            $sqlRequest .= "AND active_net_name IN ('" . join("', '", map { $_->{netname} } values %{$datacenterInfos}) . "')\n";
        }
        if (ref $serviceStatus eq 'ARRAY' && @{$serviceStatus}) {
            $sqlRequest .= 'AND (' . join(' OR ', map {
                if ($_ eq 'OK') {
                    "status_to = '4'";
                } elsif ($_ eq 'Completed_OK') {
                    "status_to = '8'";
                } elsif ($_ eq 'Error') {
                    "(status_to >= '16' AND status_to < '128')";
                } elsif ($_ eq 'Warning') {
                    "(status_to >= '128' AND status_to < '256')";
                } elsif ($_ eq 'Completed_Late') {
                    "status_to >= '256'";
                }
            } uniq(@{$serviceStatus})) . ")\n";
        }
        my $forDataCentersProcess = ref $forDataCenters eq 'ARRAY' && @{$forDataCenters};
        my @forDataCentersUniq = $forDataCentersProcess ? uniq(@{$forDataCenters}) : ();
        if ($forDataCentersProcess) {
            $sqlRequest .= 'AND data_center IN (' . join(', ', ('?') x @forDataCentersUniq) . ")\n";
        }
        my $sth = $self->_DBI()->prepare($sqlRequest . "ORDER BY service_name;\n");
        $self->_invokeVerbose((caller 0)[3], "\n" . $sth->{Statement} . "\n");
        if ($sth->execute($matching, @forDataCentersUniq)) {
            return 1, $sth->fetchall_hashref('log_id');
        } else {
            return 0, crunch($sth->errstr());
        }
    }
    return 0, undef;
};

my $_getAlarms = subname 'getAlarms' => sub {
    my ($self, $matching, $severity, $timeSort) = @_;
    my $sqlRequest = <
SELECT *, TO_CHAR(upd_time, 'YYYY/MM/DD HH:MI:SS') AS upd_time_to_char
FROM alarm
WHERE message LIKE ?
SQL
    if (ref $severity eq 'ARRAY' && @{$severity}) {
        $sqlRequest .= 'AND (' . join(' OR ', map {
            if ($_ eq 'Regular') {
                "severity = 'R'";
            } elsif ($_ eq 'Urgent') {
                "severity = 'U'";
            } elsif ($_ eq 'Very_Urgent') {
                "severity = 'V'";
            }
        } uniq(@{$severity})) . ")\n";
    }
    my $sth = $self->_DBI()->prepare($sqlRequest . 'ORDER BY upd_time ' . $timeSort . ";\n");
    $self->_invokeVerbose((caller 0)[3], "\n" . $sth->{Statement} . "\n");
    if ($sth->execute($matching)) {
        my $hashRef = $sth->fetchall_hashref('serial');
        return 1, $hashRef;
    } else {
        return 0, crunch($self->_DBI()->errstr());
    }
};

my $_getExceptionAlerts = subname 'getExceptionAlerts' => sub {
    my ($self, $matching, $severity, $timeSort) = @_;
    my $sqlRequest = <
SELECT *, TO_CHAR(xtime, 'YYYY/MM/DD HH:MI:SS') AS xtime_to_char, TO_CHAR(xtime_of_last, 'YYYY/MM/DD HH:MI:SS') AS xtime_of_last_to_char
FROM exception_alerts
WHERE message LIKE ?
SQL
    if (ref $severity eq 'ARRAY' && @{$severity}) {
        $sqlRequest .= 'AND (' . join(' OR ', map {
            if ($_ eq 'Warning') {
                "xseverity = '3'";
            } elsif ($_ eq 'Error') {
                "xseverity = '2'";
            } elsif ($_ eq 'Severe') {
                "xseverity = '1'";
            }
        } uniq(@{$severity})) . ")\n";
    }
    my $sth = $self->_DBI()->prepare($sqlRequest . 'ORDER BY xtime ' . $timeSort . ";\n");
    $self->_invokeVerbose((caller 0)[3], "\n" . $sth->{Statement} . "\n");
    if ($sth->execute($matching)) {
        my $hashRef = $sth->fetchall_hashref('serial');
        return 1, $hashRef;
    } else {
        return 0, crunch($self->_DBI()->errstr());
    }
};

#----> ** methodes publiques **

#-> wrappers de constructeurs/destructeurs

sub new {
    my $subName = (caller 0)[3];
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    my $self = shift->SUPER::_new(@_);
    lock_hash(%{$self});
    $_emSessionsState{CTM::Base::_nbSessionsInstancedClassProperty}++;
    return $self;
}

*newSession = \&new;

sub connect {
    my $self = shift;
    unlock_value(%{$self}, CTM::Base::_DBIObjProperty);
    my $return = $self->SUPER::_connect(qw/
        download
        bim_log
        bim_prob_jobs
        bim_alert
        comm
        alarm
        exception_alerts
    /);
    lock_value(%{$self}, CTM::Base::_DBIObjProperty);
    $_emSessionsState{CTM::Base::_nbSessionsConnectedClassProperty}++ if ($self->isSessionSeemAlive());
    return $return;
}

*connectToDB = \&connect;

sub disconnect {
    my $self = shift;
    unlock_value(%{$self}, CTM::Base::_DBIObjProperty);
    my $return = $self->_disconnect();
    lock_value(%{$self}, CTM::Base::_DBIObjProperty);
    $_emSessionsState{CTM::Base::_nbSessionsConnectedClassProperty}-- unless ($self->isSessionSeemAlive());
    return $return;
}

*disconnectFromDB = \&disconnect;

#-> methodes liees aux services du BIM (BIM)

sub getCurrentBIMServices {
    my $subName = (caller 0)[3];
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    my ($self, %params) = @_;
    $self->unshiftError();
    if ($self->isSessionSeemAlive()) {
        my ($situation, $datacenterInfos) = $self->$_getDatasCentersDownloadInfos();
        if ($situation) {
            my $time = time;
            for my $datacenter (keys %{$datacenterInfos}) {
                ($situation, my $datacenterOdateStart, my $datacenterOdateEnd) = _calculStartEndDayTimeInPosixTimestamp($time, $datacenterInfos->{$datacenter}->{ctm_daily_time});
                if ($situation) {
                    if (defined (my $downloadTimeInTimestamp = Date_to_Time(split /[\/:\s]+/, $datacenterInfos->{$datacenter}->{download_time_to_char}))) {
                        delete $datacenterInfos->{$datacenter} unless ($downloadTimeInTimestamp >= $datacenterOdateStart && $downloadTimeInTimestamp <= $datacenterOdateEnd);
                    } else {
                        $self->_addError(CTM::Base::_myErrorMessage($subName, "le champ 'download_time_to_char' qui derive de la cle 'download_time' (DATETIME) via la fonction SQL TO_CHAR() (Control-M '" . $datacenterInfos->{$datacenter}->{service_name} . "') n'est pas correct ou n'est pas gere par le module. Il est possible que la base de donnees du Control-M EM soit corrompue ou que la version renseignee (version '" . $self->{_version} . "') ne soit pas correcte."));
                        return 0;
                    }
                } else {
                    if ($datacenterOdateStart) {
                        $self->_addError(CTM::Base::_myErrorMessage($subName, "une erreur a eu lieu lors de la generation du timestamp POSIX pour la date de debut et de fin de la derniere montee au plan."));
                    } else {
                        $self->_addError(CTM::Base::_myErrorMessage($subName, "le champ 'ctm_daily_time' du datacenter '" . $datacenterInfos->{$datacenter}->{data_center} . "' n'est pas correct " . '(=~ /^[\+\-]\d{4}$/).'));
                    }
                    return 0;
                }
            }
            ($situation, my $servicesDatas) = $self->$_getCurrentBIMServices($datacenterInfos, defined $params{matching} ? $params{matching} : '%', defined $params{handleDeletedJobs} ? $params{handleDeletedJobs} : 1, defined $params{forLastNetName} ? $params{forLastNetName} : 0, defined $params{forStatus} ? $params{forStatus} : 0, defined $params{forDataCenters} ? $params{forDataCenters} : 0);
            unless ($situation) {
                if (defined $servicesDatas) {
                    $self->_addError(CTM::Base::_myErrorMessage($subName, "erreur lors de la recuperation des services du BIM : la methode DBI 'execute()' a echoue : '" . $servicesDatas . "'."));
                    return 0;
                } else {
                    return {};
                }
            }
            return $servicesDatas;
        } else {
            $self->_addError(CTM::Base::_myErrorMessage($subName, "erreur lors de la recuperation des informations a propos des Control-M Server : la methode DBI 'execute()' a echoue : '" . $datacenterInfos . "'."));
        }
    } else {
       $self->_addError(CTM::Base::_myErrorMessage($subName, "impossible de continuer car la connexion au SGBD n'est pas active."));
    }
    return 0;
}

sub workOnCurrentBIMServices {
    my $subName = (caller 0)[3];
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    my $self = shift->$_subClassConstructor(CTM::Base::_currentBIMServicesModuleLastName, CTM::Base::_currentBIMServicesBaseMethod, @_);
    lock_hash(%{$self});
    return $self;
}

#-> methodes liees aux alarmes (GAS)

sub getAlarms {
    my $subName = (caller 0)[3];
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    my ($self, %params) = @_;
    $self->unshiftError();
    if ($self->isSessionSeemAlive()) {
        my ($situation, $alarmsData) = $self->$_getAlarms(defined $params{matching} ? $params{matching} : '%', defined $params{severity} ? $params{severity} : 0, defined $params{timeSort} && $params{timeSort} =~ /^(ASC|DESC)$/i ? $params{timeSort} : 'ASC');
        if ($situation) {
            return $alarmsData;
        } else {
            $self->_addError(CTM::Base::_myErrorMessage($subName, "erreur lors de la recuperation des informations a propos des exceptions : la methode DBI 'execute()' a echoue : '" . $alarmsData . "'."));
        }
    } else {
        $self->_addError(CTM::Base::_myErrorMessage($subName, "impossible de continuer car la connexion au SGBD n'est pas active."));
    }
    return 0;
}

sub workOnAlarms {
    my $subName = (caller 0)[3];
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    my $self = shift->$_subClassConstructor(CTM::Base::_alarmsModuleLastName, CTM::Base::_alarmsBaseMethod, @_);
    lock_hash(%{$self});
    return $self;
}

#-> methodes liees aux exceptions (CM)

sub getExceptionAlerts {
    my $subName = (caller 0)[3];
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    my ($self, %params) = @_;
    $self->unshiftError();
    if ($self->isSessionSeemAlive()) {
        my ($situation, $exceptionAlertsDatas) = $self->$_getExceptionAlerts(defined $params{matching} ? $params{matching} : '%', defined $params{severity} ? $params{severity} : 0, defined $params{timeSort} && $params{timeSort} =~ /^(ASC|DESC)$/i ? $params{timeSort} : 'ASC');
        if ($situation) {
            return $exceptionAlertsDatas;
        } else {
            $self->_addError(CTM::Base::_myErrorMessage($subName, "erreur lors de la recuperation des informations a propos des exceptions : la methode DBI 'execute()' a echoue : '" . $exceptionAlertsDatas . "'."));
        }
    } else {
        $self->_addError(CTM::Base::_myErrorMessage($subName, "impossible de continuer car la connexion au SGBD n'est pas active."));
    }
    return 0;
}

sub workOnExceptionAlerts {
    my $subName = (caller 0)[3];
    croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    my $self = shift->$_subClassConstructor(CTM::Base::_exceptionAlertsModuleLastName, CTM::Base::_exceptionAlertsBaseMethod, @_);
    lock_hash(%{$self});
    return $self;
}

#-> methodes liees aux composants (CM)

# sub getComponents {
    # my $subName = (caller 0)[3];
    # croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    # my ($self, %params) = @_;
    # $self->unshiftError();
    # if ($self->isSessionSeemAlive()) {
        # my ($situation, $exceptionAlertsDatas) = $self->$_getComponents());
        # if ($situation) {
            # return $exceptionAlertsDatas;
        # } else {
            # $self->_addError(CTM::Base::_myErrorMessage($subName, "erreur lors de la recuperation des informations a propos des composants : la methode DBI 'execute()' a echoue : '" . $exceptionAlertsDatas . "'."));
        # }
    # } else {
        # $self->_addError(CTM::Base::_myErrorMessage($subName, "impossible de continuer car la connexion au SGBD n'est pas active."));
    # }
    # return 0;
# }

# sub workOnComponents {
    # my $subName = (caller 0)[3];
    # croak(CTM::Base::_myErrorMessage($subName, CTM::Base::_myUsageMessage('$session->' . $subName, "'cle' => 'valeur'"))) unless (@_ % 2);
    # my $self = shift->$_subClassConstructor(CTM::Base::_componentsModuleLastName, CTM::Base::_componentsBaseMethod, @_);
    # lock_hash(%{$self});
    # return $self;
# }

#-> accesseurs/mutateurs

sub isSessionAlive {
    return shift->SUPER::_isSessionAlive();
}

sub isSessionSeemAlive {
    return shift->SUPER::_isSessionSeemAlive()
}

#-> Perl BuiltIn

BEGIN {
    *AUTOLOAD = \&CTM::Base::AUTOLOAD;
}

sub DESTROY {
    my $self = shift;
    $self->disconnect();
    $_emSessionsState{CTM::Base::_nbSessionsInstancedClassProperty}--;
}

1;

#-> END

__END__