| 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::IP"->new("PeerHost", $args{'host'}, "PeerService", $args{'port'}, "Proto", $args{'proto'}, "Type", 2) |
|
88
|
4 |
23 |
if (defined $rate and $rate < 1) { } |
|
89
|
2 |
2 |
if rand() < $rate |
|
124
|
0 |
25 |
if $metric =~ /[\N{U+00}-\N{U+1f}:|]/u |
|
125
|
0 |
25 |
if $value =~ /[\N{U+00}-\N{U+1f}:|]/u |
|
129
|
19 |
6 |
if ($self->autoflush) |
|
135
|
1 |
5 |
if length $data > $avail |
|
145
|
2 |
0 |
if (length $self->{'_buffer'}) |
|
154
|
0 |
0 |
if $is_global |