1 package LolCatalyst::Lite::Translator::Scramble;
5 # stolen from Catalyst::Plugin::Acme::Scramble
8 for ( my $i = @_; --$i; ) {
9 my $j = int(rand($i+1));
10 @_[$i,$j] = @_[$j,$i];
15 my $word = shift || return '';
16 my @piece = split //, $word;
17 shuffle(@piece[1..$#piece-1])
26 ( (?:(?<=[^[:alpha:]])|(?<=\A))
27 (?<!&)(?-x)(?<!&#)(?x)
29 ['[:alpha:]]+ | (?<!-)-(?!-)
34 {_scramble_word($1)}gex;
37 use namespace::clean -except => 'meta';
40 my ($self, $text) = @_;
41 _scramble_block(\$text);