<commit_before>use v6;

class Pod::To::API;

method render($pod) {
    traverse($pod[0].WHEREFORE);

}

sub traverse ($c)  {
    say "!!!!!!!!";
    say "class " ~ $c.perl ~ $c.^parents(:all).perl;
    say "\t" ~ $c.WHY ~ "\n" if $c.WHY; 
    for $c.^methods -> $m {
        say "\t" ~ $m.perl;
        say "\t\t" ~ $m.WHY if $m.WHY;
        say "";

     }
}<commit_msg>generate pod from class<commit_after>use v6;

class Pod::To::API;

method render($pod) {
    traverse($pod[0].WHEREFORE);
}

sub traverse ($c) {    
    print "=head1 ";    
    say "class " ~ $c.perl ~ $c.^parents(:all).perl;
    say "\t" ~ $c.WHY ~ "\n" if $c.WHY; 
    
    for $c.^methods -> $m {
	print "=head2 ";
        say $m.perl;
        say "\n    " ~ $m.WHY if $m.WHY;
        say "";

     }

     say "=cut"
}
{'fraction_non_alphanumeric': 0.22544080604534006, 'fraction_numerical': 0.007556675062972292, 'mean_word_length': 1.9664179104477613, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 5, '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': '6770173', 'n_tokens_mistral': 350, 'n_tokens_neox': 334, 'n_words': 73}