Branch Coverage

File:lib/Message/String.pm
Coverage:90.6%

line%coveragebranch
136100TFwantarray ? :
158100TFunless ref $invocant
159100TFunless $bool_copy or exists $$invocant{'types'}
160100TFunless exists $$invocant{'types'}
175100TFif (ref $invocant) { }
177100TFunless $key =~ /^(?:template|level|type|id)$/
18050TFunless defined $type and exists $$types{$type}
202100TFif wantarray
214100TFif (@_ > 1 and defined $type)
217100TFif (@_ > 2)
218100TFif not ref $invocant and $type =~ /^[ACEW]$/
222100TFif ref $invocant
226100TFif exists $$types{$type}
240100TFif (@_ > 1 and defined $type)
243100TFif (@_ > 2)
247100TFif ($type eq '1' or $type eq '0' or $type eq '')
251100TFif exists $$types{$type}
265100TFif (@_ > 1 and defined $type)
268100TFif (@_ > 2)
272100TFif ($type eq '1' or $type eq '0' or $type eq '')
276100TFif exists $$types{$type}
290100TFif (@_ > 1 and defined $type)
293100TFif (@_ > 2)
295100TFif length $value > 3
300100TFif exists $$types{$type}
313100TFif (@_ > 1 and defined $type)
316100TFif (@_ > 2)
318100TFunless $value
320100TFunless ref $value
325100TFif (exists $$types{$type})
326100TFif wantarray
330100TFwantarray ? :
344100TFif $$types{$type}{'tlc'}
347100TFwantarray ? :
358100TFunless @_ > 1
372100TFunless @_ > 1
393100TFunless @_ > 1
395100TFif ($value =~ /^\d+$/) { }
401100TFif (length $value > 1)
40550TFif index($invocant->_message_types, $value) > -1
409100TFif $cur_verbosity < $min_verbosity
421100TFunless @_ > 1
548100TFif defined $wantarray
54950TFif $message->verbosity < $message->_type_level($message->type)
559100TFunless $message->_should_be_issued(wantarray)
56250TFif exists $$types{$type}
56450TFunless $issue_using
575100TFif $message->_type_timestamp($message->type)
577100TFif $message->_type_tlc($message->type)
579100TFif $message->_type_id($message->type)
581100TFif (@args) { }
598100TFif $timestamp_format eq '1'
637100TFunless @_ > 1
641100TFif ($value =~ /(^.+):([$short_types])$/)
64450TFunless $value and $value =~ /^[\p{Alpha}_\-][\p{Digit}\p{Alpha}_\-]*$/
64650TFif exists $bad_identifiers{$value}
64850TFif ($message->_update_type_on_id_change)
649100TFif ($type) { }
653100TFif ($value =~ /[_\d]([$short_types])$/) { }
100TFelsif ($value =~ /^([$short_types])[_\d]/) { }
663100TFif ($value =~ /($long_types)$/) { }
100TFelsif ($value =~ /^($long_types)/) { }
701100TFif ref $export_tags and @$export_tags
703100TFif $export_ok
705100TFif $export
742100TFunless $package->_ensure_namespace_is_exporter($ns)
757100TFunless $package->_ensure_namespace_is_exporter($ns)
772100TFunless $package->_ensure_namespace_is_exporter($ns)
77450TFunless ref $export_tags and @$export_tags
77950TFunless defined ${"${ns}::EXPORT_TAGS";}{$tag}
794100TFif $ns eq 'main'
796100TFunless $ns->isa('Exporter')
806100TFunless @_ > 1
830100TFif (@pairs % 2) { }
836100TFunless $class->isa(ref $message)
84150TFunless $method and not ref $method
84250TFunless ref $coderef and ref $coderef eq 'CODE'
85550TFexists $$message{'readmode'} ? :
100TFunless @_ > 1
867100TFexists $$message{'response'} ? :
100TFunless @_ > 1
8790TFexists $$message{'output'} ? :
50TFunless @_ > 1
901100TFunless @_ > 1
90350TFunless $value
914100TFunless @_ > 1
917100TFif (length $type > 1)
92150TFif ($message->_update_level_on_type_change)
92350TFunless defined $level
92750TFif exists $$message{'types'}
938100TFunless @_ > 1
939100TFif ($value =~ /\D/)
941100TFif (length $type > 1)
94650TFunless defined $value
963100TFif /\S/
967100TFif (@lines and $id =~ /^[.]+$/) { }
100TFelsif (@lines and $id =~ /^[+]+$/) { }
1014100TFif ($message->type eq 'R' and $message->template =~ /password/is)
1024100TFif (@args)
1030100TFif ($ref_type) { }
1031100TFif ($ref_type eq 'HASH') { }
100TFelsif ($ref_type eq 'ARRAY') { }
1040100TFif @messages
1054100TFif ($this_arg eq 'EXPORT') { }
100TFelsif ($this_arg eq 'EXPORT_OK') { }
100TFelsif (substr($this_arg, 0, 1) eq ':') { }
100TFelsif ($this_arg eq 'void') { }
1055100TFif (@messages)
1071100TFif (@messages)
1090100TFif @messages
1106100TFif (@args) { }
1115100TFif (@messages)