Do not truncate a v-string which has underscore

Fix #6

lib/Perl/PrereqScanner/Lite.pm

@@ -271,6 +271,16 @@ sub _scan {
                         last if --$left_paren_num <= 0;
                     }
                 }
+                next;
+            }
+
+            # XXX Workaround for v-strings which has underscore at tail (e.g. v1.1_1).
+            # It is a matter of Compiler::Lexer.
+            #
+            # ref: https://github.com/moznion/Perl-PrereqScanner-Lite/issues/6
+            if ($is_prev_version && $token_type == KEY) {
+                $module_version .= $token->{data};
+                next;
             }
 
             if ($token_type != WHITESPACE) {

t/30_v_string.t

@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+use utf8;
+use FindBin;
+use File::Spec::Functions qw/catfile/;
+use Perl::PrereqScanner::Lite;
+
+use t::Util;
+use Test::More;
+use Test::Deep;
+
+my $scanner = Perl::PrereqScanner::Lite->new;
+
+subtest 'basic' => sub {
+    my $got = $scanner->scan_file(catfile($FindBin::Bin, 'resources', 'v_string.pl'));
+    cmp_deeply(get_reqs_hash($got), {
+        'File::Temp' => 'v0.1_2',
+    });
+};
+
+done_testing;
+

t/resources/v_string.pl

@@ -0,0 +1,2 @@
+use File::Temp v0.1_2;
+use File::Temp v0.1_1;