package N0i::Xchat::31337;
use strict;
use warnings;
use base qw(N0i::Xchat::Base);
use Lingua::31337 ();

sub version { '2005122001' }

sub new {
	my ($class, %o) = @_;
	bless { %o }, $class;
}

sub leet {
	my ($self, $text) = @_;
	return (undef, 'no text?!') unless defined $text && $text =~ /\S/;

	# don't fuck the nickname
	my $ret = '';
	$text =~ s/^(\S+?:\s)\s*// and $ret .= $1;

	$ret .= join $/, Lingua::31337::text231337($text);
	return ($ret, undef);
}

1;