File Coverage

lib/JMAP/Validation/Generators/ContactGroup.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	27	92.5

package JMAP::Validation::Generators::ContactGroup;

use strict;
use warnings;

use JMAP::Validation::Generators::String;
use JSON::Typist;

sub generate {
  my (%args) = @_;

  my @contactIds
    = map { JMAP::Validation::Generators::String->generate() }
        1..2;

  my @ContactGroups;

  foreach my $contactIds ([@contactIds], []) {
    push @ContactGroups, {
      ($args{no_id} ? () : (id => JMAP::Validation::Generators::String->generate())),
      name       => JMAP::Validation::Generators::String->generate(),
      contactIds => $contactIds,
    };
  }

  return @ContactGroups;
}

1;