1package EchoStream;
2# vim: ts=2 sw=2 noexpandtab
3
4use Moose;
5extends 'Reflex::Stream';
6
7sub on_data {
8	my ($self, $data) = @_;
9	$self->put($data->octets());
10}
11
12sub DEMOLISH {
13	print "EchoStream demolished as it should.\n";
14}
15
161;
17