| line |
true |
false |
branch |
|
27
|
0 |
23 |
if (@args == 1 and ref $args[0] eq 'HASH') { } |
|
44
|
138 |
0 |
if exists $args{$attr} |
|
48
|
0 |
23 |
if (my $socket = delete $args{'socket'}) { } |
|
56
|
0 |
23 |
unless $args{'_socket'} = "IO::Socket::INET"->new("PeerAddr", $args{'host'}, "PeerPort", $args{'port'}, "Proto", $args{'proto'}) |
|
87
|
4 |
23 |
if (defined $rate and $rate < 1) { } |
|
88
|
1 |
3 |
if rand() < $rate |
|
123
|
0 |
24 |
if $metric =~ /[\N{U+00}-\N{U+1f}:|]/u |
|
124
|
0 |
24 |
if $value =~ /[\N{U+00}-\N{U+1f}:|]/u |
|
128
|
18 |
6 |
if ($self->autoflush) |
|
134
|
1 |
5 |
if length $data > $avail |
|
144
|
2 |
0 |
if (length $self->{'_buffer'}) |
|
153
|
0 |
0 |
if $is_global |