parse version v0.9_9 correctly

Author: monken

lib/MetaCPAN/Util.pm

@@ -1,5 +1,4 @@
 package MetaCPAN::Util;
-
 # ABSTRACT: Helper functions for MetaCPAN
 use strict;
 use warnings;
@@ -9,38 +8,45 @@ use Try::Tiny;
 use Encode;
 
 sub digest {
-    my $digest = Digest::SHA1::sha1_base64( join( "\0", grep {defined} @_ ) );
+    my $digest = Digest::SHA1::sha1_base64(join("\0", grep { defined } @_));
     $digest =~ tr/[+\/]/-_/;
     return $digest;
 }
 
 sub numify_version {
     my $version = shift;
     use warnings FATAL => 'numeric';
-    eval { $version = version->parse($version)->numify + 0; } or do {
+    eval {
+        $version = version->parse( $version )->numify+0;
+    } or do {
         $version = fix_version($version);
-        $version = eval { version->parse( $version || 0 )->numify + 0 };
+        $version = eval { version->parse( $version || 0 )->numify+0 };
     };
     return $version;
 }
 
 sub fix_version {
     my $version = shift;
-    return undef unless ( defined $version );
+    return undef unless(defined $version);
+    if($version =~ /^v/) {
+        eval { $version = eval(version->parse( $version )->numify) };
+        return $version+0 unless($@);
+    }
     $version =~ s/[^\d\._]//g;
     $version =~ s/_/00/g;
     return $version;
 }
 
 sub author_dir {
     my $pauseid = shift;
-    my $dir     = 'id/'
-        . sprintf( "%s/%s/%s",
-        substr( $pauseid, 0, 1 ),
-        substr( $pauseid, 0, 2 ), $pauseid );
+    my $dir = 'id/'
+      . sprintf( "%s/%s/%s",
+                 substr( $pauseid, 0, 1 ),
+                 substr( $pauseid, 0, 2 ), $pauseid );
     return $dir;
 }
 
+
 # TODO: E<escape>
 sub strip_pod {
     my $pod = shift;
@@ -51,48 +57,46 @@ sub strip_pod {
 
 sub extract_section {
     my ( $pod, $section ) = @_;
-    eval { $pod = Encode::decode_utf8( $pod, Encode::FB_CROAK ) };
+    eval { $pod = Encode::decode_utf8($pod, Encode::FB_CROAK) };
     return undef
-        unless ( $pod =~ /^=head1 $section\b(.*?)(^((\=head1)|(\=cut)))/msi
+      unless ( $pod =~ /^=head1 $section\b(.*?)(^((\=head1)|(\=cut)))/msi
         || $pod =~ /^=head1 $section\b(.*)/msi );
     my $out = $1;
     $out =~ s/^\s*//g;
     $out =~ s/\s*$//g;
     return $out;
 }
 
+
 sub pod_lines {
     my $content = shift;
-    return [] unless ($content);
+    return [] unless($content);
     my @lines = split( "\n", $content );
     my @return;
     my $count  = 1;
     my $length = 0;
     my $start  = 0;
-    my $slop   = 0;
+    my $slop = 0;
     foreach my $line (@lines) {
-
         if ( $line =~ /\A=cut/ ) {
             $length++;
             $slop++;
-            push( @return, [ $start - 1, $length ] )
-                if ( $start && $length );
+            push( @return, [ $start-1, $length ] )
+              if ( $start && $length );
             $start = $length = 0;
-        }
-        elsif ( $line =~ /\A=[a-zA-Z]/ && !$length ) {
+        } elsif ( $line =~ /\A=[a-zA-Z]/ && !$length ) {
             $start = $count;
-        }
-        elsif ( $line =~ /\A\s*__DATA__/ ) {
+        } elsif( $line =~ /\A\s*__DATA__/) {
             last;
         }
         if ($start) {
             $length++;
-            $slop++ if ( $line =~ /\S/ );
+            $slop++ if( $line =~ /\S/ );
         }
         $count++;
     }
-    push( @return, [ $start - 1, $length ] )
-        if ( $start && $length );
+    push( @return, [ $start-1, $length ] )
+      if ( $start && $length );
     return \@return, $slop;
 }
 

t/util.t

@@ -13,6 +13,7 @@ is( MetaCPAN::Util::numify_version('0.20_8'),   0.208 );
 is( MetaCPAN::Util::numify_version('0.20_88'),  0.200088 );
 is( MetaCPAN::Util::numify_version('0.208_8'),  0.208008 );
 is( MetaCPAN::Util::numify_version('0.20_108'), 0.2000108 );
+is( MetaCPAN::Util::numify_version('v0.9_9'), 0.009009);
 
 lives_ok { is( version("2a"),      2 ) };
 lives_ok { is( version("V0.01"),   0.01 ) };