Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (12 sloc) 229 Bytes
package EchoStream;
# vim: ts=2 sw=2 noexpandtab
use Moose;
extends 'Reflex::Stream';
sub on_data {
my ($self, $data) = @_;
$self->put($data->octets());
}
sub DEMOLISH {
print "EchoStream demolished as it should.\n";
}
1;
Something went wrong with that request. Please try again.