6 |
|
|
7 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
8 |
|
|
9 |
|
use lib 'lib'; |
10 |
use Frey::Run; |
use Frey::Run; |
11 |
|
|
12 |
has 'port' => ( |
has 'port' => ( |
33 |
This is simple dispatcher for our server. Currently it's in flux and |
This is simple dispatcher for our server. Currently it's in flux and |
34 |
documented only in source code. |
documented only in source code. |
35 |
|
|
36 |
|
my $content_type = $self->request( $url, $params ); |
37 |
|
|
38 |
=cut |
=cut |
39 |
|
|
40 |
sub print { |
sub print { |
53 |
} |
} |
54 |
|
|
55 |
my $path = $url->path; |
my $path = $url->path; |
56 |
|
my $content_type = 'text/plain'; |
57 |
|
|
58 |
eval { |
eval { |
59 |
# { |
# { |
144 |
confess "# can't call request on nothing!"; |
confess "# can't call request on nothing!"; |
145 |
} |
} |
146 |
|
|
147 |
|
$content_type = $f->content_type; |
148 |
}; |
}; |
149 |
|
|
150 |
if ( $@ ) { |
if ( $@ ) { |
154 |
# Carp::REPL::repl; |
# Carp::REPL::repl; |
155 |
} |
} |
156 |
|
|
157 |
|
return $content_type; |
158 |
} |
} |
159 |
|
|
160 |
sub refresh { |
sub refresh { |