| line |
true |
false |
branch |
|
137
|
1 |
11 |
defined $args{'host'} ? : |
|
138
|
1 |
11 |
defined $args{'port'} ? : |
|
139
|
1 |
11 |
defined $args{'verbose'} ? : |
|
166
|
1 |
315 |
if (defined $value and $value =~ /^[01]$/) { } |
|
192
|
8 |
50 |
unless (defined $$self{'socket'}) |
|
297
|
3 |
38 |
if not defined $args{$arg} or $args{$arg} eq '' |
|
302
|
1 |
17 |
unless Data::Validate::Type::is_number($args{'value'}) |
|
308
|
3 |
5 |
defined $args{'tags'} ? : |
|
|
1 |
7 |
defined $args{'sample_rate'} ? : |
|
347
|
3 |
38 |
if not defined $args{$arg} or $args{$arg} eq '' |
|
352
|
18 |
0 |
if (defined $args{'value'}) |
|
354
|
1 |
17 |
unless Data::Validate::Type::is_number($args{'value'}) |
|
361
|
3 |
5 |
defined $args{'tags'} ? : |
|
|
1 |
7 |
defined $args{'sample_rate'} ? : |
|
402
|
4 |
67 |
if not defined $args{$arg} or $args{$arg} eq '' |
|
407
|
1 |
20 |
unless Data::Validate::Type::is_number($args{'value'}, 'positive', 1) |
|
411
|
1 |
19 |
unless ($args{'unit'} =~ /^(s|sec|ms)$/) |
|
416
|
18 |
1 |
if ($args{'unit'} eq 's' or $args{'unit'} eq 'sec') |
|
426
|
3 |
7 |
defined $args{'tags'} ? : |
|
|
1 |
9 |
defined $args{'sample_rate'} ? : |
|
464
|
3 |
36 |
if not defined $args{$arg} or $args{$arg} eq '' |
|
471
|
3 |
5 |
defined $args{'tags'} ? : |
|
|
1 |
7 |
defined $args{'sample_rate'} ? : |
|
504
|
1 |
46 |
unless exists $$multipliers{$action} |
|
511
|
2 |
44 |
if not defined $args{$arg} or $args{$arg} eq '' |
|
516
|
10 |
34 |
if (defined $args{'value'}) |
|
518
|
8 |
2 |
if not $args{'value'} =~ /^\d+$/ or $args{'value'} <= 0 |
|
525
|
2 |
16 |
defined $args{'value'} && $args{'value'} ne '' ? : |
|
|
6 |
12 |
defined $args{'tags'} ? : |
|
|
2 |
16 |
defined $args{'sample_rate'} ? : |
|
554
|
6 |
100 |
unless ($args{'name'} =~ /^[a-zA-Z]/) |
|
560
|
30 |
64 |
if (defined $args{'tags'} and scalar @{$args{'tags'};} != 0) |
|
562
|
0 |
30 |
unless (Data::Validate::Type::is_arrayref($args{'tags'})) |
|
570
|
6 |
30 |
unless $tag =~ /^[a-zA-Z]/ |
|
574
|
6 |
24 |
if length $tag > 200 |
|
579
|
6 |
18 |
if $tag =~ /^\S+:\S+:/ |
|
585
|
30 |
46 |
if (defined $args{'sample_rate'}) |
|
587
|
24 |
6 |
if (not Data::Validate::Type::is_number($args{'sample_rate'}, 'strictly_positive', 1) or $args{'sample_rate'} > 1) |
|
611
|
5 |
176 |
if not defined $args{$arg} or $args{$arg} eq '' |
|
621
|
18 |
39 |
if $args{'name'} ne $original_name |
|
625
|
4 |
53 |
unless (defined $args{'sample_rate'}) |
|
631
|
0 |
57 |
unless defined $socket |
|
637
|
14 |
42 |
if (defined $args{'tags'} and scalar @{$args{'tags'};} != 0) |
|
647
|
6 |
14 |
if $tag ne $original_tag |
|
658
|
0 |
56 |
if $verbose |
|
661
|
53 |
3 |
if ($args{'sample_rate'} == 1 or rand() < $args{'sample_rate'}) |
|
664
|
25 |
28 |
unless (defined $response) |