42 |
my $path = $req->request->url->path; |
my $path = $req->request->url->path; |
43 |
warn "REQUEST: $path\n"; |
warn "REQUEST: $path\n"; |
44 |
|
|
45 |
|
Module::Reload->check if $path =~ m!reload!; |
46 |
|
|
47 |
warn $req->request->header('User_Agent'); |
warn $req->request->header('User_Agent'); |
48 |
#warn dump( $req ); |
#warn dump( $req ); |
49 |
|
|
70 |
} else { |
} else { |
71 |
|
|
72 |
$req->print( |
$req->print( |
73 |
"<h1>Classes</h1>" . |
qq|<h1>Classes</h1>\n<div class="sidebar"><a href="/reload">reload</a></div>| . |
74 |
Frey::ClassBrowser->new->html_markup |
Frey::ClassBrowser->new->html_markup |
75 |
); |
); |
76 |
|
|