Branch Coverage

lib/Text/Prefix.pm
Criterion Covered Total %
branch 55 86 63.9


line true false branch
31 10 0 if $k0 eq $k1
38 0 5 if $self->opt('kvp')
40 0 5 if $self->{'host'} =~ /(.+?)\./
41 2 3 if (my $mask = $self->opt('host_sans'))
42 2 0 if $self->{'host'} =~ /(.+?)$mask$/
45 0 5 if (my $pf = $self->opt('perlf'))
46 0 0 unless -e $pf
49 2 3 if $self->{'perlcode'} ne ''
50 2 3 if ($self->opt('order')) { }
54 2 0 unless $self->opt('no_date') or $self->opt('no_time') or $self->opt('no_human_date')
55 2 0 unless $self->opt('no_date') or $self->opt('no_time') or $self->opt('no_epoch')
56 0 3 if $self->opt('host') or $self->opt('host_sans')
57 1 2 if $self->opt('with')
58 0 3 if $self->opt('perl') or $self->opt('perlf')
63 2 3 if (my $tai = $self->opt('tai'))
65 2 0 if $tai eq '35'
66 0 2 if $tai eq '0'
75 0 3 if $self->opt('pretee')
78 1 2 if $self->{'perlcode'} ne ''
80 2 1 unless $self->opt('no_date') or $self->opt('no_epoch')
81 2 1 unless $self->opt('no_date') or $self->opt('no_human_date')
82 1 2 if $self->opt('host') or $self->opt('host_sans')
83 1 2 if $self->opt('with')
84 1 2 if $self->opt('perl') or $self->opt('perlf')
86 0 3 $self->opt('no_space') ? :
88 0 9 unless defined $hr->{$k}
90 0 9 if ($self->{'format'} eq 'kvp') { }
0 9 elsif ($self->{'format'} eq 'csv') { }
0 9 elsif ($self->{'format'} eq 'tab') { }
103 3 0 if $pad
104 0 3 if $self->opt('tee')
110 0 0 unless defined $tm
114 0 0 if $self->opt('hires') or $self->opt('tai')
121 2 2 if defined $self->{'tai_or'}
122 0 4 if $self->opt('hires')
123 2 2 unless $tm
124 2 2 if ($tm =~ /\.\d+/)
125 2 0 if (length $tm >= 15) { }
136 2 0 unless defined $tm
137 0 2 if $self->opt('iso')
139 0 2 if $self->opt('short')
140 0 2 if $self->opt('shorter')
150 32 275 if defined $v