line |
true |
false |
branch |
14
|
0 |
2 |
unless ref \$path eq 'SCALAR'
|
18
|
0 |
2 |
if ($path =~ /^(.*)\.(.+)$/) { }
|
29
|
0 |
2 |
if ($controller_proto) { }
|
30
|
0 |
0 |
unless $controller = $c->controller($controller_proto)
|
38
|
1 |
1 |
if (my($data_path) = $action_proto =~ /^\=\{(.+)\}$/) { }
|
|
0 |
1 |
elsif ($action_proto =~ m[/]) { }
|
43
|
0 |
0 |
$action_proto =~ m[^/] ? :
|
44
|
0 |
0 |
unless $path
|
45
|
0 |
0 |
unless $action = $c->dispatcher->get_action_by_path($path)
|
48
|
0 |
1 |
unless $action = $controller->action_for($action_proto)
|
61
|
4 |
3 |
if (my($v) = $arg =~ /^\=\{(.+)\}$/) { }
|
71
|
1 |
3 |
if (ref \$_ eq 'SCALAR') { }
|
|
2 |
1 |
elsif (ref $arg eq 'ARRAY') { }
|
|
1 |
0 |
elsif (ref $arg eq 'HASH') { }
|