oEdtk
(
G/GR/GRECHARY/oEdtk-1.8123.tar.gz, GRECHARY, 2025;
MetaCPAN
)
package oEdtk::Tracking;
my ($_TRACK_SIG, $_TRACK_TRK, @_TRACK_JSON);
BEGIN {
$SIG{'__WARN__'} = sub {
# if ($WARN2LOGGER){
# &logger (4, $_[0]);
# } else {
warn $_[0];
# }
# when Tracki
Sys::Hostname;
use DBI;
#use JSON;
use Exporter;
our $VERSION = 1.6031;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(stats_iddest stats_week stats_month);
#my @JSON_TRACE;
sub new {
# exemple
_TRACK_JSON'} && $cfg->{'EDTK_TRACK_JSON'} !~/no/i ) {
# # $_TRACK_TRK_JSON = $cfg->{'EDTK_TRACK_JSON'};
# push (@_TRACK_JSON, $cfg->{'EDTK_TRACK_JSON'});
# }
# } else {
# #$_TRACK_TRK_JSON = "no"