Branch Coverage

blib/lib/Webservice/GAMSTOP.pm
Criterion Covered Total %
branch 16 22 72.7


line true false branch
147 1 5 unless exists $args{'first_name'}
148 1 4 unless exists $args{'last_name'}
149 1 3 unless exists $args{'date_of_birth'}
150 1 2 unless exists $args{'email'}
151 1 1 unless exists $args{'postcode'}
155 0 1 unless $args{'date_of_birth'} =~ /^(?:\d{4}-(0[1-9]|1[0-2])-(0[1-9]|[12]\d|3[01]))$/
156 0 1 unless 'Email::Valid'->address($args{'email'})
157 0 1 unless $args{'postcode'} =~ /^[^+]{0,20}$/
169 0 1 if $args{'x_trace_id'}
180 1 0 if (my $err = $tx->error)
181 0 1 if $err->{'code'}