package Acme::Scurvy::Whoreson::BilgeRat::Backend::pirate;

$VERSION = '1.0';

use warnings;
use strict;

use base 'Acme::Scurvy::Whoreson::BilgeRat';

sub new {
	my $class = shift;
	bless {
		nouns => [
			'bilge rat', 'whoreson', 'land-lubber',
			'cur',  'swab', 'potvaliant'
		],
		adjectives => [
			'scurvy', 'whoreson', 'lily-livered',
			'black-spotted', 'grog-shy', 'cowardly',
                        'potvaliant'
		],
		grammars => [qw(
			N
			AN
			AAN
		)]
	}, $class;
}

# sub generateinsult { my $self = shift; return 'this is a subclassed stringification'; }
'aaaaarrrrrrrrrr';