line |
true |
false |
branch |
118
|
0 |
0 |
unless $file =~ /\.xml$/i
|
171
|
0 |
0 |
unless $route
|
175
|
0 |
0 |
unless $uri
|
183
|
0 |
0 |
if (ref $uri eq 'CODE')
|
215
|
0 |
0 |
if (exists $$self{'cache'}{"$method $full_uri"})
|
217
|
0 |
0 |
if (ref $$self{'cache'}{"$method $full_uri"}) { }
|
218
|
0 |
0 |
wantarray ? :
|
221
|
0 |
0 |
unless defined $$self{'cache'}{"$method $full_uri"}
|
227
|
0 |
0 |
unless $method eq '*' or $$_{'method'} eq $method
|
228
|
0 |
0 |
if (my(@captured) = $uri =~ /$$route{'regexp'}/)
|
233
|
0 |
0 |
if (ref $$route{'target'} eq 'ARRAY') { }
|
239
|
0 |
0 |
wantarray ? :
|
261
|
0 |
0 |
unless defined $querystring
|
268
|
0 |
0 |
@captured ? :
|
271
|
0 |
0 |
unless length $value
|
273
|
0 |
0 |
if exists $defaults{$_}
|
282
|
0 |
0 |
if defined $$values{$_}
|
285
|
0 |
0 |
if defined $defaults{$_}
|
286
|
0 |
0 |
if defined $defaults{$_}
|
291
|
0 |
0 |
if ($target =~ /\?/) { }
|
292
|
0 |
0 |
$params ? :
|
296
|
0 |
0 |
if ($params)
|
313
|
0 |
0 |
unless my $route = $$self{'names'}{$name}
|
317
|
0 |
0 |
unless defined $$args{$_}
|
327
|
0 |
0 |
if (defined $$args{$_} and length $$args{$_}) { }
|
337
|
0 |
0 |
if defined $$args{$_} and length $$args{$_}
|
340
|
0 |
0 |
if (length $params)
|
341
|
0 |
0 |
$template =~ /\?/ ? :
|
362
|
0 |
0 |
unless ($uri) = split(/\?/, $uri, 2)
|
364
|
0 |
0 |
unless $method eq '*' or $$_{'method'} eq $method
|
365
|
0 |
0 |
if (my(@captured) = $uri =~ /$$route{'regexp'}/)
|
406
|
0 |
0 |
unless defined $args{'path'} and length $args{'path'}
|
408
|
0 |
0 |
unless defined $args{'target'} and length $args{'target'}
|
410
|
0 |
0 |
unless defined $args{'name'} and length $args{'name'}
|
412
|
0 |
0 |
if (exists $$self{'names'}{$args{'name'}})
|
416
|
0 |
0 |
if (exists $$self{'paths_methods'}{$uid})
|
420
|
0 |
0 |
if (exists $$self{'paths_methods'}{$starUID})
|
430
|
0 |
0 |
if (my $exists = $$self{'patterns'}{$regUID})
|
456
|
0 |
0 |
if ($1) { }
|
|
0 |
0 |
elsif ($2) { }
|
|
0 |
0 |
elsif ($3) { }
|
|
0 |
0 |
elsif ($4) { }
|
459
|
0 |
0 |
$pattern ? :
|
467
|
0 |
0 |
if ($part =~ /^\*/) { }
|
483
|
0 |
0 |
unless ($copy =~ m[\/[^/]+\.[^/]+$])
|
484
|
0 |
0 |
unless $copy =~ m[/$]
|
500
|
0 |
0 |
if ($1) { }
|
|
0 |
0 |
elsif ($2) { }
|
|
0 |
0 |
elsif ($3) { }
|
|
0 |
0 |
elsif ($4) { }
|
509
|
0 |
0 |
if ($part =~ /^\*/) { }
|
522
|
0 |
0 |
unless ($copy =~ m[\/[^/]+\.[^/]+$])
|
523
|
0 |
0 |
unless $copy =~ m[/$]
|
536
|
0 |
0 |
unless eval {
do {
$self->uri_for($args{'name'})
}
}
|
548
|
0 |
0 |
unless defined $decode
|
562
|
0 |
0 |
unless defined $encode
|