File Coverage

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

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