diff options
Diffstat (limited to '')
| -rwxr-xr-x | cpan-graph.pl | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/cpan-graph.pl b/cpan-graph.pl index c9cf369..797a0d5 100755 --- a/cpan-graph.pl +++ b/cpan-graph.pl @@ -8,6 +8,7 @@ use lib ( 'lib' ); use CPAN::Testers; use CPAN::cpants; use CPAN::mapcpan; +use DateTime; my $options = GetOptions( 'dbtest=s' => \my $db_test, @@ -32,16 +33,6 @@ while ( my $dist = $dists->next ) { my $map_package = $dbmap->resultset( 'packages' ) ->find_or_create( { dist => $dist->dist, } ); - my $modules - = $sqlall->resultset( 'modules' )->search( { dist => $dist->id } ); - while ( my $module = $modules->next ) { - my $map_module = $dbmap->resultset( 'modules' )->find_or_create( - { module => $module->module, - in_dist => $map_package->id, - } - ); - } - my $tests_pass = $sqltest->resultset( 'reports' ) ->count( { distribution => $dist->dist, status => 'PASS' } ); my $tests_fail = $sqltest->resultset( 'reports' ) @@ -51,10 +42,13 @@ while ( my $dist = $dists->next ) { my $tests_success = int( ( $tests_pass / $total_tests ) * 100 ); my $author = $sqlall->resultset( 'author' )->find( $dist->author ); + my ($year, $month, $day) = $dist->released =~ /^(\d{4})-(\d{2})-(\d{2})/; $map_package->update( { tests_success => $tests_success, author => $author->pauseid, - released => $dist->released->ymd('/'), + version => $dist->version, + released => + DateTime->new( year => $year, month => $month, day => $day ), } ); |