Branch Coverage

blib/lib/Net/STOMP/Client/Version.pm
Criterion Covered Total %
branch 1 32 3.1


line true false branch
46 0 0 unless (defined $value)
50 0 0 if (ref $value eq '')
52 0 0 if ($value =~ /,/) { }
59 0 0 unless $Supported{$value}
63 0 0 if (ref $value eq 'ARRAY')
67 0 0 unless $Supported{$version}
82 0 0 if @_ == 0
83 0 0 if (@_ == 1)
110 1 0 unless $self
114 0 0 if (exists $self->{'version'})
116 0 0 if exists $self->{'accept_version'}
132 0 0 if defined $frame->header('accept-version')
135 0 0 unless grep(($_ ne '1.0'), @list)
150 0 0 if (defined $version) { }
152 0 0 unless grep(($_ eq $version), @list)
157 0 0 unless grep(($_ eq $version), @list)