Remove redundant code
Harmless but distracting leftovers from a previous, more complicated, approach.
This commit is contained in:
parent
3dab71fdbf
commit
dd47bfbdf7
1 changed files with 0 additions and 2 deletions
|
@ -37,9 +37,7 @@ sub import {
|
||||||
if ($token eq '-') {
|
if ($token eq '-') {
|
||||||
$posneg = $posneg == -1 ? 1 : -1;
|
$posneg = $posneg == -1 ? 1 : -1;
|
||||||
} elsif ($token eq '+') {
|
} elsif ($token eq '+') {
|
||||||
next if $posneg == -1; # -+
|
|
||||||
$posneg ||= 1;
|
$posneg ||= 1;
|
||||||
next;
|
|
||||||
} else {
|
} else {
|
||||||
$posneg or return undef; # two terms in a row
|
$posneg or return undef; # two terms in a row
|
||||||
my $term = RevBank::Amount->parse_string($token) // return undef;
|
my $term = RevBank::Amount->parse_string($token) // return undef;
|
||||||
|
|
Loading…
Add table
Reference in a new issue