Logic in place, but no new code.

colomon · Jun 23, 2010 · 7cae076 · 7cae076
1 parent 14ca7e7
commit 7cae076
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/lib/str2num.pm b/lib/str2num.pm
@@ -56,7 +56,15 @@ our sub str2num-parse($s) is export {
 our sub str2num($s) is export {
     my ($negate, $int-part, $frac-part, $exp-part) = str2num-parse($s);
 
-    my $result = $int-part.Int;
+    my $result;
+    if $exp-part {
+        # Num
+    } elsif $frac-part {
+        # Rat
+    } else {
+        # Int
+        $result = $int-part.Int;
+    }
     $result = -$result if $negate;
     $result;
 }