| line |
true |
false |
branch |
|
15
|
1 |
17 |
unless $new_config = shift()
|
|
17
|
1 |
16 |
if shift()
|
|
19
|
1 |
15 |
unless $new_config and ref $new_config eq 'HASH'
|
|
22
|
1 |
14 |
unless $new_config->{'routes'}
|
|
23
|
1 |
13 |
if (ref $new_config->{'routes'} ne 'ARRAY' and ref $new_config->{'routes'} ne 'HASH')
|
|
27
|
11 |
2 |
if (ref $new_config->{'routes'} eq 'ARRAY')
|
|
29
|
1 |
11 |
unless $route
|
|
31
|
1 |
10 |
unless ref $route eq 'HASH'
|
|
34
|
1 |
9 |
unless $route->{'match'}
|
|
36
|
0 |
9 |
unless ref $route->{'match'} eq 'HASH'
|
|
37
|
4 |
5 |
if ($route->{'transform'})
|
|
39
|
1 |
3 |
if ref $route->{'transform'} ne 'HASH'
|
|
41
|
8 |
0 |
if ($route->{'forwards'})
|
|
43
|
1 |
7 |
if ref $route->{'forwards'} ne 'ARRAY'
|
|
45
|
0 |
7 |
unless $forward
|
|
47
|
1 |
6 |
if ref $forward ne 'HASH'
|
|
50
|
1 |
5 |
unless $forward->{'handler'}
|
|
52
|
1 |
4 |
if ref $forward->{'handler'}
|
|
58
|
13 |
5 |
if ($@)
|
|
67
|
1 |
6 |
unless my $message = shift()
|
|
68
|
1 |
5 |
unless ref $message and ref $message eq 'HASH'
|
|
70
|
0 |
5 |
if shift()
|
|
72
|
1 |
0 |
if ($message->{'static_forwards'} and ref $message->{'static_forwards'} and ref $message->{'static_forwards'} eq 'ARRAY' and scalar @{$message->{'static_forwards'};})
|
|
77
|
1 |
0 |
unless scalar @{$message->{'static_forwards'};}
|
|
78
|
0 |
1 |
if not ref $forward_recs or ref $forward_recs ne 'ARRAY'
|
|
84
|
0 |
1 |
if not $forward_rec->{'forward'} && ref $forward_rec->{'forward'} or ref $forward_rec->{'forward'} ne 'HASH'
|
|
86
|
1 |
0 |
if ($forward_rec->{'log_history'})
|
|
90
|
1 |
0 |
unless $message->{'.static_forwards_log'}
|
|
93
|
1 |
0 |
if ($forward_rec->{'transform'} and ref $forward_rec->{'transform'} and ref $forward_rec->{'transform'} eq 'HASH')
|
|
101
|
0 |
1 |
unless $forward_rec->{'forward'}{'handler'}
|
|
107
|
0 |
1 |
if $@
|
|
112
|
3 |
1 |
if (ref $Message::Router::config->{'routes'} eq 'ARRAY') { }
|
|
|
1 |
0 |
elsif (ref $Message::Router::config->{'routes'} eq 'HASH') { }
|
|
122
|
4 |
0 |
if (mmatch($message, $route->{'match'}))
|
|
123
|
4 |
0 |
if ($route->{'transform'})
|
|
126
|
4 |
0 |
if ($route->{'forwards'})
|
|
137
|
1 |
0 |
if ($route->{'.router_control'} and ref $route->{'.router_control'} eq 'HASH' and $route->{'.router_control'}{'short_circuit'})
|
|
145
|
1 |
4 |
if ($@)
|
|
148
|
1 |
3 |
if $did_short_circuit
|
|
151
|
3 |
4 |
if ($@)
|