/[Frey]/trunk/lib/Frey/Server.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Server.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 789 by dpavlin, Sun Nov 30 23:49:32 2008 UTC revision 790 by dpavlin, Wed Dec 10 14:22:59 2008 UTC
# Line 6  with 'Frey::Config'; Line 6  with 'Frey::Config';
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' => (
# Line 32  has 'editor' => ( Line 33  has 'editor' => (
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 {
# Line 50  sub request { Line 53  sub request {
53          }          }
54    
55          my $path = $url->path;          my $path = $url->path;
56            my $content_type = 'text/plain';
57    
58          eval {          eval {
59  #       {  #       {
# Line 140  sub request { Line 144  sub request {
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 ( $@ ) {
# Line 149  sub request { Line 154  sub request {
154  #               Carp::REPL::repl;  #               Carp::REPL::repl;
155          }          }
156    
157            return $content_type;
158  }  }
159    
160  sub refresh {  sub refresh {
Legend:
Removed from v.789  
changed lines
  Added in v.790
  ViewVC Help
Powered by ViewVC 1.1.26