File Coverage

blib/lib/Mock/Person/EN.pm
Criterion Covered Total %
statement 41 46 89.1
branch 8 12 66.6
condition 4 9 44.4
subroutine 16 16 100.0
pod 9 9 100.0
total 78 92 84.7


line stmt bran cond sub pod time code
1             package Mock::Person::EN;
2              
3             # Pragmas.
4 10     10   32336 use base qw(Exporter);
  10         15  
  10         886  
5 10     10   43 use strict;
  10         10  
  10         235  
6 10     10   5659 use utf8;
  10         85  
  10         38  
7 10     10   300 use warnings;
  10         13  
  10         276  
8              
9             # Modules.
10 10     10   4857 use List::MoreUtils qw(none);
  10         8371  
  10         739  
11 10     10   5042 use Readonly;
  10         23408  
  10         13534  
12              
13             # Constants.
14             Readonly::Scalar our $SPACE => q{ };
15             Readonly::Array our @EXPORT_OK => qw(first_male first_female middle_female
16             last_male last_female middle_male middle_female name name_male
17             name_female);
18              
19             # Variables.
20             our $TYPE = 'two';
21              
22             # Version.
23             our $VERSION = 0.03;
24              
25             # First and middle male names.
26             our @first_male = our @middle_male = qw(
27             Aaron
28             Adam
29             Aidan
30             Alex
31             Alfie
32             Andrew
33             Anthony
34             Ashley
35             Ben
36             Bradley
37             Brandon
38             Callum
39             Calum
40             Cameron
41             Charlie
42             Chris
43             Connor
44             Conor
45             Craig
46             Curtis
47             Dan
48             Daniel
49             Danny
50             Darren
51             David
52             Declan
53             Dylan
54             Edward
55             Elliot
56             Ethan
57             George
58             Harrison
59             Harry
60             Henry
61             Jack
62             Jacob
63             Jake
64             James
65             Jamie
66             Jason
67             Jay
68             Joe
69             John
70             Jonathan
71             Jordan
72             Joseph
73             Josh
74             Joshua
75             Kane
76             Kieran
77             Kyle
78             Lee
79             Leon
80             Lewis
81             Liam
82             Louis
83             Luke
84             Marcus
85             Mark
86             Martin
87             Matt
88             Matthew
89             Max
90             Michael
91             Mike
92             Morgan
93             Nathan
94             Oli
95             Oliver
96             Ollie
97             Owen
98             Patrick
99             Paul
100             Peter
101             Philip
102             Reece
103             Rhys
104             Richard
105             Robbie
106             Robert
107             Ross
108             Ryan
109             Sam
110             Samuel
111             Scott
112             Sean
113             Sebastian
114             Shaun
115             Simon
116             Stephen
117             Steve
118             Steven
119             Stuart
120             Taylor
121             Thomas
122             Tom
123             Tyler
124             Utku
125             Will
126             William
127             );
128              
129             # First nad middle female names.
130             our @first_female = our @middle_female = qw(
131             Abbie
132             Abi
133             Aimee
134             Alex
135             Alice
136             Amber
137             Amelia
138             Amy
139             Anna
140             Annie
141             Ashleigh
142             Becca
143             Becky
144             Beth
145             Bethan
146             Bethany
147             Caitlin
148             Chantelle
149             Charley
150             Charlie
151             Charlotte
152             Chelsea
153             Chloe
154             Claire
155             Courtney
156             Daisy
157             Danielle
158             Eleanor
159             Elizabeth
160             Ella
161             Ellie
162             Emily
163             Emma
164             Erin
165             Francesca
166             Freya
167             Gemma
168             Georgia
169             Georgina
170             Grace
171             Hannah
172             Hayley
173             Heather
174             Helen
175             Holly
176             Jade
177             Jasmine
178             Jennifer
179             Jenny
180             Jess
181             Jessica
182             Jodie
183             Kate
184             Katherine
185             Katie
186             Katy
187             Kayleigh
188             Kelly
189             Kirsty
190             Laura
191             Leah
192             Leanne
193             Lily
194             Lisa
195             Louise
196             Lucy
197             Luren
198             Lydia
199             Megan
200             Melissa
201             Mia
202             Millie
203             Mollie
204             Molly
205             Naomi
206             Natalie
207             Natasha
208             Niamh
209             Nicola
210             Nicole
211             Olivia
212             Paige
213             Phoebe
214             Rachael
215             Rachel
216             Rebecca
217             Rhiannon
218             Robyn
219             Rose
220             Rosie
221             Samantha
222             Sara
223             Sarah
224             Sasha
225             Shannon
226             Sophie
227             Stacey
228             Stephanie
229             Victoria
230             Zoe
231             );
232              
233             # Last names.
234             our @last_male = our @last_female = qw(
235             Abbey
236             Abel
237             Abney
238             Abraham
239             Abrahams
240             Abrahamson
241             Abram
242             Abrams
243             Abramson
244             Achilles
245             Acker
246             Ackerman
247             Adair
248             Adam
249             Adams
250             Adamson
251             Adcock
252             Addison
253             Adkins
254             Aiken
255             Ainsworth
256             Aitken
257             Akerman
258             Akers
259             Albert
260             Alberts
261             Albertson
262             Albinson
263             Alden
264             Alexander
265             Alfredson
266             Alfson
267             Alger
268             Allard
269             Allen
270             Allsopp
271             Alvey
272             Alvin
273             Anderson
274             Andrews
275             Andrewson
276             Ansel
277             Anson
278             Anthonyson
279             Appleby
280             Appleton
281             Archer
282             Arkwright
283             Armistead
284             Arnold
285             Arrington
286             Arterberry
287             Arterbury
288             Arthur
289             Arthurson
290             Ash
291             Ashley
292             Ashworth
293             Atkins
294             Atkinson
295             Attaway
296             Atteberry
297             Atterberry
298             Attwater
299             Audley
300             Augustine
301             Austin
302             Auteberry
303             Autenberry
304             Auttenberg
305             Averill
306             Avery
307             Ayers
308             Aylmer
309             Ayton
310             Babcock
311             Babcocke
312             Babcoke
313             Backus
314             Badcock
315             Badcocke
316             Badcoke
317             Bagley
318             Bailey
319             Baines
320             Baker
321             Baldwin
322             Bancroft
323             Banister
324             Banks
325             Banner
326             Bannerman
327             Barber
328             Bardsley
329             Barker
330             Barlow
331             Barnes
332             Barret
333             Barrett
334             Barton
335             Bartram
336             Bass
337             Bates
338             Bateson
339             Battle
340             Batts
341             Baxter
342             Beake
343             Beasley
344             Beattie
345             Beck
346             Becket
347             Beckett
348             Beckham
349             Belcher
350             Bell
351             Bellamy
352             Benbow
353             Benjaminson
354             Bennet
355             Bennett
356             Benson
357             Bentley
358             Benton
359             Bernard
360             Berry
361             Beverley
362             Beverly
363             Bird
364             Bishop
365             Black
366             Blackbourne
367             Blackburn
368             Blackman
369             Blackwood
370             Blake
371             Blakeslee
372             Bloodworth
373             Bloxam
374             Bloxham
375             Blue
376             Blythe
377             Boivin
378             Bolton
379             Bond
380             Bone
381             Bonham
382             Bonher
383             Bonner
384             Bonney
385             Boon
386             Boone
387             Booner
388             Boothman
389             Botwright
390             Bourke
391             Boyce
392             Braddock
393             Bradford
394             Bradley
395             Brams
396             Bramson
397             Brand
398             Brandon
399             Brant
400             Brasher
401             Brassington
402             Bray
403             Breckenridge
404             Breckinridge
405             Brent
406             Brewer
407             Brewster
408             Brigham
409             Bristol
410             Bristow
411             Britton
412             Broadbent
413             Brock
414             Brook
415             Brooke
416             Brooks
417             Brown
418             Brownlow
419             Bryan
420             Bryant
421             Bryson
422             Buckley
423             Bullard
424             Bulle
425             Bullock
426             Bunker
427             Burke
428             Burnham
429             Burns
430             Burrell
431             Burton
432             Bush
433             Butcher
434             Butler
435             Butts
436             Byrd
437             Cannon
438             Cantrell
439             Carl
440             Carlisle
441             Carlyle
442             Carman
443             Carpenter
444             Carter
445             Cartwright
446             Carver
447             Caulfield
448             Causer
449             Causey
450             Chadwick
451             Chamberlain
452             Chance
453             Chancellor
454             Chandler
455             Chapman
456             Chase
457             Cheshire
458             Christians
459             Christianson
460             Christinsen
461             Christison
462             Christopher
463             Christophers
464             Christopherson
465             Church
466             Clark
467             Clarke
468             Clarkson
469             Clay
470             Clayton
471             Clemens
472             Clifford
473             Clifton
474             Cline
475             Clinton
476             Close
477             Coburn
478             Cock
479             Cockburn
480             Cocks
481             Coel
482             Coke
483             Cokes
484             Colbert
485             Cole
486             Coleman
487             Collingwood
488             Collins
489             Colton
490             Combs
491             Comstock
492             Constable
493             Cook
494             Cooke
495             Cookson
496             Coombs
497             Cooper
498             Corey
499             Cornell
500             Corra
501             Cory
502             Cotterill
503             Courtenay
504             Courtney
505             Cowden
506             Cox
507             Crawford
508             Crewe
509             Croft
510             Cropper
511             Cross
512             Crouch
513             Cummins
514             Curtis
515             Dabney
516             Dalton
517             Dane
518             Danell
519             Daniel
520             Daniell
521             Daniels
522             Danielson
523             Dannel
524             Danniel
525             Danniell
526             Darby
527             Darrell
528             Darwin
529             Daubney
530             Daugherty
531             David
532             Davidson
533             Davies
534             Davis
535             Davison
536             Dawson
537             Day
538             Deadman
539             Dean
540             Dedrick
541             Deering
542             Delaney
543             Denman
544             Dennel
545             Dennell
546             Denzil
547             Derby
548             Derrick
549             Derricks
550             Derrickson
551             Devereux
552             Devin
553             Devine
554             Dexter
555             Dick
556             Dickens
557             Dickenson
558             Dickinson
559             Dickman
560             Dickson
561             Disney
562             Dixon
563             Donalds
564             Donaldson
565             Downer
566             Draper
567             Dudley
568             Duke
569             Dukes
570             Dunn
571             Durand
572             Durant
573             Dustin
574             Dwerryhouse
575             Dwight
576             Dyer
577             Dyson
578             Eads
579             Earl
580             Earls
581             Easom
582             Eason
583             Easton
584             Eaton
585             Eccleston
586             Ecclestone
587             Edgar
588             Edison
589             Edwards
590             Edwardson
591             Elder
592             Eldred
593             Eldridge
594             Eliot
595             Eliott
596             Ellery
597             Elliot
598             Elliott
599             Ellis
600             Ellison
601             Ellisson
602             Elliston
603             Ellsworth
604             Elmer
605             Elwin
606             Elwyn
607             Ely
608             Emerson
609             Emmet
610             Emmett
611             Endicott
612             English
613             Ericson
614             Espenson
615             Ethans
616             Eustis
617             Evanson
618             Evelyn
619             Evered
620             Everett
621             Everill
622             Ewart
623             Fabian
624             Fairbairn
625             Fairburn
626             Fairchild
627             Fairclough
628             Farnham
629             Faulkner
630             Fay
631             Fear
632             Fenn
633             Fields
634             Firmin
635             Fisher
636             Fishman
637             Fitzroy
638             Fleming
639             Fletcher
640             Ford
641             Forest
642             Forester
643             Forney
644             Forrest
645             Foss
646             Foster
647             Fox
648             Frank
649             Franklin
650             Franklyn
651             Freeman
652             Frost
653             Fry
654             Frye
655             Fuller
656             Gabriels
657             Gabrielson
658             Gardenar
659             Gardener
660             Gardiner
661             Gardner
662             Gardyner
663             Garey
664             Garfield
665             Garland
666             Garner
667             Garnet
668             Garnett
669             Garrard
670             Garret
671             Garrett
672             Garrod
673             Garry
674             Gary
675             Geary
676             Georgeson
677             Gibb
678             Gibbs
679             Gibson
680             Giffard
681             Gilbert
682             Giles
683             Gilliam
684             Gladwin
685             Gladwyn
686             Glover
687             Goddard
688             Godfrey
689             Goffe
690             Goode
691             Goodwin
692             Gorbold
693             Gore
694             Granger
695             Grant
696             Granville
697             Gray
698             Green
699             Greene
700             Gregory
701             Grenville
702             Grey
703             Griffin
704             Groves
705             Gully
706             Hackett
707             Hadaway
708             Haden
709             Haggard
710             Haight
711             Hailey
712             Hale
713             Haley
714             Hall
715             Hallman
716             Hambledon
717             Hambleton
718             Hameldon
719             Hamilton
720             Hamm
721             Hampson
722             Hampton
723             Hancock
724             Hanley
725             Hanson
726             Harden
727             Hardwick
728             Hardy
729             Harford
730             Hargrave
731             Harlan
732             Harland
733             Harley
734             Harlow
735             Harman
736             Harmon
737             Haroldson
738             Harper
739             Harrell
740             Harrelson
741             Harris
742             Harrison
743             Hart
744             Hartell
745             Harvey
746             Hathaway
747             Hatheway
748             Hathoway
749             Haward
750             Hawk
751             Hawking
752             Hawkins
753             Hayden
754             Hayes
755             Hayley
756             Hayward
757             Haywood
758             Head
759             Headley
760             Heath
761             Hedley
762             Henderson
763             Hendry
764             Henry
765             Henryson
766             Henson
767             Hepburn
768             Herbert
769             Herberts
770             Herbertson
771             Herman
772             Hermanson
773             Hewitt
774             Hext
775             Hibbert
776             Hicks
777             Hightower
778             Hill
779             Hillam
780             Hilton
781             Hobbes
782             Hobbs
783             Hobson
784             Hodges
785             Hodson
786             Hogarth
787             Hollands
788             Hollins
789             Holme
790             Holmes
791             Holmwood
792             Holt
793             Honeycutt
794             Honeysett
795             Hooker
796             Hooper
797             Hope
798             Hopkins
799             Hopper
800             Hopson
801             Horn
802             Horne
803             Horsfall
804             Horton
805             House
806             Howard
807             Howe
808             Howland
809             Howse
810             Huddleson
811             Huddleston
812             Hudnall
813             Hudson
814             Huff
815             Hughes
816             Hull
817             Hume
818             Hunnisett
819             Hunt
820             Hunter
821             Hurst
822             Hutson
823             Huxley
824             Huxtable
825             Hyland
826             Ianson
827             Ibbot
828             Ibbott
829             Ikin
830             Ilbert
831             Ingham
832             Ingram
833             Irvin
834             Irvine
835             Irving
836             Irwin
837             Isaacson
838             Ivers
839             Jack
840             Jackson
841             Jacobs
842             Jacobson
843             Jakeman
844             James
845             Jamison
846             Jans
847             Janson
848             Jardine
849             Jarrett
850             Jarvis
851             Jeanes
852             Jeffers
853             Jefferson
854             Jeffery
855             Jeffries
856             Jekyll
857             Jenkins
858             Jephson
859             Jepson
860             Jernigan
861             Jerome
862             Jervis
863             Jewel
864             Jewell
865             Jinks
866             Johns
867             Johnson
868             Joiner
869             Jones
870             Jordan
871             Josephs
872             Josephson
873             Joyner
874             Judd
875             Kay
876             Keen
877             Keighley
878             Kellogg
879             Kelsey
880             Kemp
881             Kendal
882             Kendall
883             Kendrick
884             Kennard
885             Kerry
886             Kersey
887             Kevins
888             Kevinson
889             Key
890             Keys
891             Kidd
892             Killam
893             Kimball
894             Kimberley
895             Kimberly
896             King
897             Kingsley
898             Kingston
899             Kipling
900             Kirby
901             Kitchen
902             Kitchens
903             Knaggs
904             Knight
905             Kynaston
906             Lacey
907             Lacy
908             Lamar
909             Landon
910             Lane
911             Langdon
912             Langley
913             Larson
914             Law
915             Lawrence
916             Lawson
917             Layton
918             Leach
919             Leavitt
920             Ledford
921             Lee
922             Leigh
923             Leighton
924             Leon
925             Leonardson
926             Levitt
927             Lewin
928             Lewis
929             Leyton
930             Lincoln
931             Lindon
932             Lindsay
933             Linton
934             Linwood
935             Little
936             Lockwood
937             Loman
938             London
939             Long
940             Longstaff
941             Lovel
942             Lovell
943             Low
944             Lowe
945             Lowell
946             Lowry
947             Lucas
948             Lukeson
949             Lum
950             Lund
951             Lyndon
952             Lynn
953             Lynton
954             Lynwood
955             Lyon
956             Macey
957             Macy
958             Maddison
959             Madison
960             Mallory
961             Mann
962             Marchand
963             Mark
964             Marley
965             Marlow
966             Marsden
967             Marshall
968             Marston
969             Martel
970             Martell
971             Martin
972             Martins
973             Martinson
974             Mason
975             Massey
976             Masters
977             Masterson
978             Mathers
979             Mathews
980             Mathewson
981             Matthews
982             Matthewson
983             May
984             Mayer
985             Mayes
986             Maynard
987             Meadows
988             Mercer
989             Merchant
990             Merrick
991             Merricks
992             Merrickson
993             Merrill
994             Merritt
995             Michael
996             Michaels
997             Michaelson
998             Midgley
999             Milburn
1000             Miles
1001             Milford
1002             Miller
1003             Millhouse
1004             Mills
1005             Milton
1006             Mitchell
1007             Monday
1008             Mondy
1009             Montgomery
1010             Moore
1011             Moores
1012             Moors
1013             Morce
1014             Morison
1015             Morris
1016             Morrish
1017             Morrison
1018             Morriss
1019             Morse
1020             Moses
1021             Mottershead
1022             Mounce
1023             Murgatroyd
1024             Muttoone
1025             Myers
1026             Myles
1027             Nathans
1028             Nathanson
1029             Nelson
1030             Ness
1031             Neville
1032             Newell
1033             Newman
1034             Newport
1035             Newton
1036             Nichols
1037             Nicholson
1038             Nicolson
1039             Nielson
1040             Nigel
1041             Niles
1042             Nixon
1043             Noel
1044             Norman
1045             Normanson
1046             Norris
1047             North
1048             Northrop
1049             Norwood
1050             Nowell
1051             Nye
1052             Oakley
1053             Odell
1054             Ogden
1055             Olhouser
1056             Oliver
1057             Oliverson
1058             Olson
1059             Osborne
1060             Osbourne
1061             Otis
1062             Ott
1063             Outlaw
1064             Outterridge
1065             Overton
1066             Owston
1067             Paddon
1068             Padmore
1069             Page
1070             Paget
1071             Paige
1072             Palmer
1073             Parent
1074             Paris
1075             Parish
1076             Parker
1077             Parris
1078             Parsons
1079             Paternoster
1080             Paterson
1081             Patrick
1082             Patrickson
1083             Patterson
1084             Patton
1085             Paulson
1086             Payne
1087             Payton
1088             Peacock
1089             Peak
1090             Pearce
1091             Pearson
1092             Peck
1093             Pelley
1094             Pemberton
1095             Penny
1096             Perkins
1097             Perry
1098             Peter
1099             Peters
1100             Peterson
1101             Petit
1102             Pettigrew
1103             Peyton
1104             Philips
1105             Phillips
1106             Pickering
1107             Pickle
1108             Pierce
1109             Pierson
1110             Piper
1111             Pitts
1112             Plank
1113             Plaskett
1114             Platt
1115             Pocock
1116             Polley
1117             Pond
1118             Poole
1119             Pope
1120             Porcher
1121             Porter
1122             Potter
1123             Pound
1124             Power
1125             Powers
1126             Prescott
1127             Pressley
1128             Preston
1129             Proudfoot
1130             Pryor
1131             Purcell
1132             Putnam
1133             Queen
1134             Queshire
1135             Quick
1136             Quickley
1137             Quigg
1138             Quigley
1139             Quincey
1140             Quincy
1141             Radcliff
1142             Radclyffe
1143             Raines
1144             Rains
1145             Rake
1146             Rakes
1147             Ramsey
1148             Randal
1149             Randall
1150             Randell
1151             Ray
1152             Rayne
1153             Raynerson
1154             Read
1155             Readdie
1156             Ready
1157             Reed
1158             Reeve
1159             Reier
1160             Rennell
1161             Rennold
1162             Rennoll
1163             Revie
1164             Rey
1165             Reynell
1166             Reynolds
1167             Rhodes
1168             Rice
1169             Richard
1170             Richards
1171             Richardson
1172             Rickard
1173             Rider
1174             Ridley
1175             Rier
1176             Rigby
1177             Riley
1178             Rimmer
1179             Roach
1180             Robbins
1181             Robert
1182             Roberts
1183             Robertson
1184             Robinson
1185             Roderick
1186             Rogers
1187             Rogerson
1188             Rollins
1189             Rome
1190             Romilly
1191             Roscoe
1192             Rose
1193             Ross
1194             Rounds
1195             Rowbottom
1196             Rowe
1197             Rowland
1198             Rowntree
1199             Roy
1200             Royce
1201             Royceston
1202             Roydon
1203             Royle
1204             Royston
1205             Ruggles
1206             Rupertson
1207             Rush
1208             Ruskin
1209             Russel
1210             Russell
1211             Ryder
1212             Rye
1213             Ryer
1214             Ryers
1215             Ryley
1216             Sackville
1217             Sadler
1218             Salomon
1219             Salvage
1220             Sampson
1221             Samson
1222             Samuel
1223             Samuels
1224             Samuelson
1225             Sanders
1226             Sanderson
1227             Sandford
1228             Sands
1229             Sanford
1230             Sangster
1231             Sappington
1232             Sargent
1233             Saunders
1234             Sauvage
1235             Savage
1236             Savege
1237             Savidge
1238             Sawyer
1239             Saylor
1240             Scarlett
1241             School
1242             Scott
1243             Scriven
1244             Scrivener
1245             Scrivenor
1246             Scrivens
1247             Seabrooke
1248             Seaver
1249             Selby
1250             Sempers
1251             Senior
1252             Sergeant
1253             Sessions
1254             Seward
1255             Sexton
1256             Seymour
1257             Shakesheave
1258             Sharman
1259             Sharrow
1260             Shaw
1261             Shelby
1262             Shepard
1263             Sherburne
1264             Sherman
1265             Shine
1266             Sidney
1267             Simmons
1268             Simms
1269             Simon
1270             Simons
1271             Simonson
1272             Simpkin
1273             Simpson
1274             Sims
1275             Sinclair
1276             Skinner
1277             Slater
1278             Smalls
1279             Smedley
1280             Smith
1281             Smythe
1282             Snelling
1283             Snider
1284             Sniders
1285             Snyder
1286             Snyders
1287             Southers
1288             Southgate
1289             Sowards
1290             Spalding
1291             Sparks
1292             Spear
1293             Spearing
1294             Spears
1295             Speight
1296             Spence
1297             Spencer
1298             Spooner
1299             Spurling
1300             Stacey
1301             Stack
1302             Stacks
1303             Stacy
1304             Stafford
1305             Stainthorpe
1306             Stamp
1307             Stanton
1308             Stark
1309             Starr
1310             Statham
1311             Steed
1312             Steele
1313             Steffen
1314             Stenet
1315             Stephens
1316             Stephenson
1317             Stern
1318             Stevens
1319             Stevenson
1320             Stidolph
1321             Stoddard
1322             Stone
1323             Strange
1324             Street
1325             Strickland
1326             Stringer
1327             Stroud
1328             Strudwick
1329             Studwick
1330             Styles
1331             Sudworth
1332             Suggitt
1333             Summerfield
1334             Summers
1335             Sumner
1336             Sutton
1337             Sweet
1338             Swindlehurst
1339             Sydney
1340             Symons
1341             Tailor
1342             Tanner
1343             Tash
1344             Tasker
1345             Tate
1346             Tatham
1347             Taylor
1348             Teel
1349             Tennison
1350             Tennyson
1351             Terrell
1352             Terry
1353             Thacker
1354             Thatcher
1355             Thomas
1356             Thompsett
1357             Thompson
1358             Thomson
1359             Thorburn
1360             Thorn
1361             Thorne
1362             Thorpe
1363             Thrussell
1364             Thurstan
1365             Thwaite
1366             Tifft
1367             Timberlake
1368             Timothyson
1369             Tinker
1370             Tipton
1371             Tirrell
1372             Tittensor
1373             Tobias
1374             Tobin
1375             Tod
1376             Todd
1377             Toft
1378             Tolbert
1379             Tollemache
1380             Toller
1381             Towner
1382             Townsend
1383             Tracey
1384             Tracy
1385             Traiylor
1386             Trask
1387             Travers
1388             Traves
1389             Travis
1390             Traviss
1391             Traylor
1392             Treloar
1393             Trengove
1394             Trent
1395             Trevis
1396             Triggs
1397             Trueman
1398             Truman
1399             Tucker
1400             Tuff
1401             Tuft
1402             Tupper
1403             Turnbull
1404             Turner
1405             Tyler
1406             Tyrell
1407             Tyrrell
1408             Tyson
1409             Underhill
1410             Underwood
1411             Upton
1412             Vance
1413             Vann
1414             Varley
1415             Varnham
1416             Verity
1417             Vernon
1418             Victor
1419             Victors
1420             Victorson
1421             Vincent
1422             Vipond
1423             Virgo
1424             Wakefield
1425             Walker
1426             Wallace
1427             Waller
1428             Wallis
1429             Walmsley
1430             Walsh
1431             Walter
1432             Walterson
1433             Walton
1434             Ward
1435             Wardrobe
1436             Ware
1437             Warner
1438             Warren
1439             Warrick
1440             Warwick
1441             Wash
1442             Washington
1443             Waterman
1444             Waters
1445             Watkins
1446             Watson
1447             Way
1448             Wayne
1449             Weaver
1450             Webb
1451             Webster
1452             Weekes
1453             Wells
1454             Wembley
1455             Wescott
1456             Wesley
1457             West
1458             Westbrook
1459             Westley
1460             Wheeler
1461             Wheelock
1462             Whinery
1463             Whitaker
1464             White
1465             Whitney
1466             Whittemore
1467             Whittle
1468             Wickham
1469             Wilbur
1470             Wilcox
1471             Wilkerson
1472             Wilkie
1473             Wilkins
1474             Wilkinson
1475             Willard
1476             William
1477             Williams
1478             Williamson
1479             Willis
1480             Willoughby
1481             Wilmer
1482             Wilson
1483             Winchester
1484             Winfield
1485             Winship
1486             Winslow
1487             Winston
1488             Winter
1489             Winterbottom
1490             Winthrop
1491             Winton
1492             Witherspoon
1493             Wolf
1494             Wolfe
1495             Womack
1496             Wood
1497             Woodcock
1498             Woodham
1499             Woodhams
1500             Woods
1501             Woodward
1502             Wootton
1503             Wortham
1504             Wragge
1505             Wray
1506             Wright
1507             Wyatt
1508             Wyght
1509             Wyman
1510             Wyndham
1511             Wynne
1512             Yap
1513             Yates
1514             Yong
1515             York
1516             Young
1517             Younge
1518             Yoxall
1519             );
1520             push @last_male, 'St John', 'Van Middlesworth';
1521             push @last_female, 'St John', 'Van Middlesworth';
1522              
1523             # Get random first male name.
1524             sub first_male {
1525 3     3 1 62 return $first_male[rand @first_male];
1526             }
1527              
1528             # Get random first female name.
1529             sub first_female {
1530 2     2 1 40 return $first_female[rand @first_female];
1531             }
1532              
1533             # Get random last male name.
1534             sub last_male {
1535 3     3 1 46 return $last_male[rand @last_male];
1536             }
1537              
1538             # Get random last female name.
1539             sub last_female {
1540 2     2 1 40 return $last_female[rand @last_female];
1541             }
1542              
1543             # Get random middle male name.
1544             sub middle_male {
1545 3     3 1 34 return $middle_male[rand @middle_male];
1546             }
1547              
1548             # Get random middle female name.
1549             sub middle_female {
1550 2     2 1 37 return $middle_female[rand @middle_female];
1551             }
1552              
1553             # Get random name.
1554             sub name {
1555 3     3 1 2904 my $sex = shift;
1556 3 100 66 3   19 if (! defined $sex || none { $sex eq $_ } qw(female male)) {
  3 100       14  
    50          
1557 1 50       32 if ((int(rand(2)) + 1 ) % 2 == 0) {
1558 1         2 return name_male();
1559             } else {
1560 0         0 return name_female();
1561             }
1562             } elsif ($sex eq 'female') {
1563 1         4 return name_female();
1564             } elsif ($sex eq 'male') {
1565 1         2 return name_male();
1566             }
1567             }
1568              
1569             # Get random male name.
1570             sub name_male {
1571 2 50 33 2 1 10 if (defined $TYPE && $TYPE eq 'three') {
1572 2         3 my $first_male = first_male();
1573 2         6 my $middle_male = middle_male();
1574 2         7 while ($first_male eq $middle_male) {
1575 0         0 $middle_male = middle_male();
1576             }
1577 2         7 return $first_male.$SPACE.$middle_male.$SPACE.last_male();
1578             } else {
1579 0         0 return first_male().$SPACE.last_male();
1580             }
1581             }
1582              
1583             # Get random female name.
1584             sub name_female {
1585 1 50 33 1 1 6 if (defined $TYPE && $TYPE eq 'three') {
1586 1         3 my $first_female = first_female();
1587 1         3 my $middle_female = middle_female();
1588 1         4 while ($first_female eq $middle_female) {
1589 0         0 $middle_female = middle_female();
1590             }
1591 1         3 return $first_female.$SPACE.$middle_female.$SPACE.last_female();
1592             } else {
1593 0           return first_female().$SPACE.last_female();
1594             }
1595             }
1596              
1597             1;
1598              
1599             __END__