view release on metacpan or  search on metacpan

lib/Acme/Scurvy/Whoreson/BilgeRat/Backend/insultserver.pm  view on Meta::CPAN

		next if /^\s*#/;
		next unless s!^\s*(adj|amt|noun)\s+!!i;
		my $what = $1;
		# turn the '|' character into a space
		push @{$self->{$what}}, map { s!\|! !g; $_ } split ' ', $_;	
    }

    seek DATA, $pos,0;


	return bless $self, $class;
}

sub generateinsult {
	my $self  =shift;

	my @adj  = @{$self->{adj}};
	my @noun = @{$self->{noun}};
	my @amt  = @{$self->{amt}}; 

	my $adj1   = rand @{$self->{adj}};

lib/Acme/Scurvy/Whoreson/BilgeRat/Backend/lala.pm  view on Meta::CPAN

        my ($adj1,$adj2,$noun) = split;

        push @adj1, $adj1;
        push @adj2, $adj2;
        push @noun, $noun;
    }

    seek DATA, $pos,0;


	return bless { noun => \@noun, adj1 => \@adj1, adj2 => \@adj2 }, $class;
}

sub generateinsult {
	my $self  =shift;
	my @adj1  = @{$self->{adj1}};
	my @adj2  = @{$self->{adj2}};
	my @noun  = @{$self->{noun}};

  	return $adj1[rand @adj1] . " ";
           $adj2[rand @adj2] . " " .