#!/usr/bin/env perl
package UpperCaser;
use Moose;
use namespace::autoclean;
use lib '../lib';
extends 'IO::Multiplex::Intermediary::Client';
=head1 INSTRUCTIONS
Run this:
perl -Ilib bin/intermediary.pl 3030
Then run this module, like so:
perl -MUpperCaser -e 'UpperCaser->new->run'
Then connect remotely
telnet localhost 3030
And start typing stuff in!
Anything you type in should come back uppercase.
hai
HAI
=cut
around build_response => sub {
my $orig = shift;
my $self = shift;
return uc($self->$orig(@_));
};
__PACKAGE__->meta->make_immutable;
1;