| line |
true |
false |
branch |
|
27
|
0 |
23 |
if (@args == 1 and ref $args[0] eq 'HASH') { } |
|
44
|
138 |
0 |
if exists $args{$attr} |
|
52
|
0 |
23 |
unless $args{'_socket'} = "IO::Socket::INET"->new("PeerAddr", $args{'host'}, "PeerPort", $args{'port'}, "Proto", $args{'proto'}) |
|
82
|
4 |
23 |
if (defined $rate and $rate < 1) { } |
|
83
|
1 |
3 |
if rand() < $rate |
|
118
|
0 |
24 |
if $metric =~ /[\N{U+00}-\N{U+1f}:|]/u |
|
119
|
0 |
24 |
if $value =~ /[\N{U+00}-\N{U+1f}:|]/u |
|
123
|
18 |
6 |
if ($self->autoflush) |
|
129
|
1 |
5 |
if length $data > $avail |
|
139
|
2 |
0 |
if (length $self->{'_buffer'}) |
|
148
|
0 |
0 |
if $is_global |