File Coverage

File:t/lib/TestApp.pm
Coverage:100.0%

linestmtbrancondsubpodtimecode
1package TestApp;
2
3
2
2
2
649
2
18
use Moose;
4extends 'Catalyst';
5
6
2
2
2
7367
371
38
use Catalyst::Runtime '5.80';
7
2
2
2
7
1
64
use FindBin;
8
9
2
2
2
331
881579
19
use Catalyst ( qw(-Log=error) );
10
11__PACKAGE__->config(
12        name => 'TestApp',
13        home => "$FindBin::Bin",
14);
15
16__PACKAGE__->setup();
17
18around 'uri_for' => sub {
19    my $orig = shift;
20    my $c = shift;
21    my $path = shift;
22    my @args = @_;
23
24    if (blessed($path) && $path->class && $path->class->can('uri_for')) {
25        return $c->component($path->class)->uri_for($c, $path, @args);
26    }
27
28    return $c->$orig($path, @args);
29};
30
311;