<commit_before>package Liane::DateTime;

use strict;
use warnings;

use Date::Parse;

# As wxPerls wx::DateTime is missing the GetTicks() 
# function we have to convert to ticks like this.
#
# Nstoring the whole DateTime object segfaults and is
# messy anyways, thus we want to use ticks in the first place.
#
# This method has been suggested by <NAME> of perl.wxperl.users
# at http://www.nntp.perl.org/group/perl.wxperl.users/2015/01/msg9392.html

# Converts Wx::DateTime to time ticks.
sub wxdt2tt {
    my $date =  shift;

    my $time_t = str2time($date->FormatDate() . ' ' . $date->FormatTime());
    
    return $time_t;
}<commit_msg>use ISO-Format to convert date to ticks to be independent from locale settings<commit_after>package Liane::DateTime;

use strict;
use warnings;

use Date::Parse;

# As wxPerls wx::DateTime is missing the GetTicks() 
# function we have to convert to ticks like this.
#
# Nstoring the whole DateTime object segfaults and is
# messy anyways, thus we want to use ticks in the first place.
#
# This method has been suggested by <NAME> of perl.wxperl.users
# at http://www.nntp.perl.org/group/perl.wxperl.users/2015/01/msg9392.html

# Converts Wx::DateTime to time ticks.
sub wxdt2tt {
    my $date =  shift;

    my $time_t = str2time($date->FormatISODate() . ' ' . $date->FormatISOTime());
    
    return $time_t;
}
{'fraction_non_alphanumeric': 0.11012564671101256, 'fraction_numerical': 0.017738359201773836, 'mean_word_length': 3.835714285714286, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '869073', 'n_tokens_mistral': 481, 'n_tokens_neox': 447, 'n_words': 154}