<commit_before>CodeletFamily AreRelated( $a !, $b ! ) does {
NAME: {Are These Two Objects Related?}
RUN: {
        my $a_core = $a->can('get_core') ? $a->get_core() : undef;
        my $b_core = $b->can('get_core') ? $b->get_core() : undef;

        ## $a_core, $b_core

        if ( $a_core and $b_core ) {
            if ( $a_core->isa("SObject") and $b_core->isa("SObject") ) {
                ACTION 100, FindIfRelated,
                    {
                    a => $a_core,
                    b => $b_core
                    };
            }
            elsif ( $a_core->isa("SRelation") and $b_core->isa("SRelation") ) {
                ## I am comparing two relations!
                ACTION 100, FindIfRelatedRelations,
                    {
                    a => $a_core,
                    b => $b_core
                    };
            }
        }
    }
}

CodeletFamily AreTheseGroupable( $items !, $reln ! ) does {
NAME: {Can These Objects be Grouped?}
RUN: {

        # Check if these are already grouped...
        # to do that, we need to find the left and right edges
        my ( @left_edges, @right_edges );<commit_msg>Fixed breakage.<commit_after>CodeletFamily AreRelated( $a !, $b ! ) does {
NAME: {Are These Two Objects Related?}
RUN: {
        my $a_core = $a->can('core') ? $a->core() : undef;
        my $b_core = $b->can('core') ? $b->core() : undef;

        ## $a_core, $b_core

        if ( $a_core and $b_core ) {
            if ( $a_core->isa("SObject") and $b_core->isa("SObject") ) {
                ACTION 100, FindIfRelated,
                    {
                    a => $a_core,
                    b => $b_core
                    };
            }
            elsif ( $a_core->isa("SRelation") and $b_core->isa("SRelation") ) {
                ## I am comparing two relations!
                ACTION 100, FindIfRelatedRelations,
                    {
                    a => $a_core,
                    b => $b_core
                    };
            }
        }
    }
}

CodeletFamily AreTheseGroupable( $items !, $reln ! ) does {
NAME: {Can These Objects be Grouped?}
RUN: {

        # Check if these are already grouped...
        # to do that, we need to find the left and right edges
        my ( @left_edges, @right_edges );
{'fraction_non_alphanumeric': 0.13476733977172958, 'fraction_numerical': 0.0052677787532923615, 'mean_word_length': 1.4167550371155886, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 27, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, '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': '6159870', 'n_tokens_mistral': 741, 'n_tokens_neox': 682, 'n_words': 177}