Branch Coverage

blib/lib/Alice/Role/Commands.pm
Criterion Covered Total %
branch 1 24 4.1


line true false branch
22 0 0 if ($command) { }
37 0 0 unless substr($line, 0, 1) eq '/'
41 0 0 if ($line =~ m[^/$name\b\s*(.*)])
55 0 0 if ($$command{'window_type'} and none sub { $_ eq $type; } , @{$$command{'window_type'};})
63 0 0 if ($$command{'network'} and $args =~ s/^$SRVOPT//)
68 0 0 if ($$command{'connection'})
69 0 0 unless $network
73 0 0 unless $irc
76 0 0 unless $irc->is_connected
83 0 0 if (my $opt_re = $$command{'opts'})
84 0 0 if (my(@opts) = $args =~ /$opt_re/) { }
98 46 0 if ($opts)