File Coverage

lib/JMAP/Validation/Generators/ContactInformation.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	30	32	93.7

package JMAP::Validation::Generators::ContactInformation;

use strict;
use warnings;

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

my %types = (
  emails => [qw{
    personal
    work
    other
  }],
  phones => [qw{
    home
    work
    mobile
    fax
    pager
    other
  }],
  online => [qw{
    uri
    username
    other
  }],
);

sub generate {
  my ($type) = @_;

  my @ContactInformation;

  foreach my $type_value (@{$types{$type} || []}) {
    foreach my $label (JMAP::Validation::Generators::String->generate(), undef) {
      foreach my $isDefault (JSON::PP::true, JSON::PP::false) {
        push @ContactInformation, {
          type      => JSON::Typist::String->new($type_value),
          label     => $label,
          value     => JMAP::Validation::Generators::String->generate(),
          isDefault => $isDefault,
        }
      }
    }
  }

  return @ContactInformation;
}

1;