/usr/share/perl5/POE/Component/Server/SimpleHTTP/State.pm is in libpoe-component-server-simplehttp-perl 2.18-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | package POE::Component::Server::SimpleHTTP::State;
use strict;
use warnings;
use POE::Wheel::ReadWrite;
our $VERSION = '2.18';
use Moose;
has 'wheel' => (
is => 'ro',
isa => 'POE::Wheel::ReadWrite',
clearer => 'clear_wheel',
predicate => 'has_wheel',
required => 1,
);
has 'response' => (
is => 'ro',
isa => 'POE::Component::Server::SimpleHTTP::Response',
writer => 'set_response',
clearer => 'clear_response',
);
has 'request' => (
is => 'ro',
isa => 'HTTP::Request',
writer => 'set_request',
clearer => 'clear_request',
);
has 'connection' => (
is => 'ro',
isa => 'POE::Component::Server::SimpleHTTP::Connection',
writer => 'set_connection',
clearer => 'clear_connection',
init_arg => undef,
);
has 'done' => (
is => 'ro',
isa => 'Bool',
init_arg => undef,
default => sub { 0 },
writer => 'set_done',
);
has 'streaming' => (
is => 'ro',
isa => 'Bool',
init_arg => undef,
default => sub { 0 },
writer => 'set_streaming',
);
sub reset {
my $self = shift;
$self->clear_response;
$self->clear_request;
$self->set_streaming(0);
$self->set_done(0);
$self->wheel->set_output_filter( $self->wheel->get_input_filter ) if $self->has_wheel;
return 1;
}
sub close_wheel {
my $self = shift;
return unless $self->has_wheel;
$self->wheel->shutdown_input;
$self->wheel->shutdown_output;
$self->clear_wheel;
return 1;
}
sub wheel_alive {
my $self = shift;
return unless $self->has_wheel;
return unless defined $self->wheel;
return unless $self->wheel->get_input_handle();
return 1;
}
no Moose;
__PACKAGE__->meta->make_immutable();
'This monkey has gone to heaven';
__END__
|