Branch Coverage

blib/lib/Config/Apple/Profile/Payload/Types/Validation.pm
Criterion Covered Total %
branch 53 70 75.7


line true false branch
81 64 617 if ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileString) { }
184 433 elsif ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileNumber) { }
49 384 elsif ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileReal) { }
0 384 elsif ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileBool) { }
16 368 elsif ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileData or $type == $Config::Apple::Profile::Payload::Types::Validation::ProfileNSDataBlob) { }
15 353 elsif ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileDate) { }
31 322 elsif ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileIdentifier) { }
322 0 elsif ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileUUID) { }
0 0 elsif ($type == $Config::Apple::Profile::Payload::Types::Validation::ProfileClass) { }
143 6 58 if ref $value
147 51 6 if ($value =~ /^(.+)$/s) { }
184 9 175 if ref $value
188 155 18 if ($value =~ /^$Config::Apple::Profile::Payload::Types::Validation::RE{'num'}{'int'}{-'keep'}$/)
214 6 43 if ref $value
218 36 6 if ($value =~ /^$Config::Apple::Profile::Payload::Types::Validation::RE{'num'}{'real'}{-'keep'}$/i)
243 0 0 if ref $value
247 0 0 if ($value)
250 0 0 if (not $value)
274 4 11 if (ref $value)
276 0 4 unless blessed $value
277 1 3 unless $value->isa('DateTime')
278 2 1 unless $value->is_finite
321 12 4 if (openhandle $value)
341 2 10 unless (defined $count)
346 0 10 unless (seek $value, -1, 1)
354 3 1 unless (ref $value)
356 2 1 if (not utf8::is_utf8($value) and length $value > 0)
389 6 25 if ref $value
393 22 2 if ($value =~ /^(.+)$/s)
396 17 5 if (not $matched_string =~ /\n/s and $matched_string =~ /^$Config::Apple::Profile::Payload::Types::Validation::RE{'net'}{'domain'}{-'nospace'}$/)
429 0 322 if ($class eq 'Data::UUID')
435 101 221 if ($class eq 'Data::GUID')
440 3 218 if ($class ne '')
471 0 0 unless (blessed $object)
477 0 0 if ($object->isa('Config::Apple::Profile::Payload::Common'))