File Coverage

File:lib/CheckSpelling/EnglishList.pm
Coverage:100.0%

linestmtbrancondsubtimecode
1#! -*-perl-*-
2
3package CheckSpelling::EnglishList;
4
5sub build {
6
6
6
200
  my @args=@_;
7
6
12
  @args = grep(/\w/, @args);
8
6
2
  my ($junction, $use_comma);
9
6
4
  my $arg_count=scalar @args;
10
6
100
11
  return '' if $arg_count == 0;
11
5
100
4
  return $args[0] if $arg_count == 1;
12
4
4
  $args[$arg_count - 1]="and $args[$arg_count - 1]";
13
4
100
9
  return join (($arg_count > 2 ? ', ' : ' '), @args);
14}
15
161;