root/branches/feature-server/plagger/lib/Plagger/Server/Request.pm
| Revision 702 (checked in by miyagawa, 3 years ago) |
|---|
| Line | |
|---|---|
| 1 | package Plagger::Server::Request; |
| 2 | use strict; |
| 3 | use base qw( Class::Accessor::Fast ); |
| 4 | __PACKAGE__->mk_accessors( qw(protocol server) ); |
| 5 | |
| 6 | sub new { |
| 7 | my $class = shift; |
| 8 | bless {@_}, $class; |
| 9 | } |
| 10 | |
| 11 | 1; |
Note: See TracBrowser for help on using the browser.
