<commit_before>#! perl
use strict;
use warnings;


=head1 NAME

tools/util/gen_release_info.pl - generate release info for graphs and charts

=head1 DESCRIPTION

This utility generates release information from subversion in csv format,
suitable for graphs, charts, and reports.

=cut


my $repo_url = 'http://svn.perl.org/parrot/tags';

##  ceate a release information data structure
my $r = {
    map { $_->{number} => $_ }
    map { m{^(RELEASE_)(.*)/}
            ? {
                tag => "$1$2",
                number => sub{$a = shift; $a =~ y/_/./; $a }->($2),
            }
            : ()<commit_msg>[tools] Updated tools/util/gen_release_info.pl per coding standards and metadata.<commit_after>#! perl
# Copyright (C) 2008, The Perl Foundation.
# $Id$

use strict;
use warnings;

=head1 NAME

tools/util/gen_release_info.pl - generate release info for graphs and charts

=head1 DESCRIPTION

This utility generates release information from subversion in csv format,
suitable for graphs, charts, and reports.

=cut


my $repo_url = 'http://svn.perl.org/parrot/tags';

##  ceate a release information data structure
my $r = {
    map { $_->{number} => $_ }
    map { m{^(RELEASE_)(.*)/}
            ? {
                tag => "$1$2",
                number => sub{$a = shift; $a =~ y/_/./; $a }->($2),
            }
            : ()
{'fraction_non_alphanumeric': 0.14605067064083457, 'fraction_numerical': 0.010432190760059613, 'mean_word_length': 2.4792746113989637, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 13, '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': '101069', 'n_tokens_mistral': 454, 'n_tokens_neox': 424, 'n_words': 132}