Branch Coverage

blib/lib/IO/Socket/Multicast.pm
Criterion Covered Total %
branch 3 32 9.3


line true false branch
46 0 1 unless @_
59 0 0 unless $group =~ /^$IP$/o
67 0 1 unless $group =~ /^$IP$/o
76 0 0 if $sock->can('addr_to_interface')
78 0 0 unless @_
81 0 0 $sock->_mcast_if($interface) ? :
86 1 0 unless defined(my $interface = shift())
87 0 0 if $interface =~ /^$IP$/
88 0 0 if length $interface == 16
89 0 0 unless $sock->can('if_addr')
91 0 0 unless my $addr = $sock->if_addr($interface)
93 0 0 unless $interface eq 'any' or $sock->if_flags($interface) & IFF_MULTICAST()
101 0 0 if (my $dest = shift())
102 0 0 if $dest =~ /^($IP):(\d+)$/
103 0 0 unless length $dest == 16
112 0 0 if @_