use Perl6::Rules;

grammar P6G_IsNumeric {
  rule oporm  { <[+-]>? }
  rule fixed  {   <oporm> <digit>+ \.? <digit>*
                | <oporm> <digit>* \.? <digit>+ }
  rule scino  {   <fixed> <[eE]> <oporm> <digit>+ | <fixed> | <digit>+ }
}

sub is_scino {
  my $num = shift;
  if ($num =~ m/^<P6G_IsNumeric.scino>$/) {
    $num = $num + 0;  # is this really necessary?
    return $num;
  }
  return undef;
}

sub is_fixed {
  my $num = shift;
  if ($num =~ m/^<P6G_IsNumeric.fixed>$/) {
    $num = $num + 0;
    return $num;
  }
  return undef;
}