| blib/lib/Mock/Person/US.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 9 | 18 | 50.0 |
| branch | 0 | 2 | 0.0 |
| condition | n/a | ||
| subroutine | 3 | 7 | 42.8 |
| pod | 4 | 4 | 100.0 |
| total | 16 | 31 | 51.6 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package Mock::Person::US; | ||||||
| 2 | { | ||||||
| 3 | $Mock::Person::US::VERSION = '1.1.0'; | ||||||
| 4 | } | ||||||
| 5 | |||||||
| 6 | # ENCODING: UTF-8 | ||||||
| 7 | |||||||
| 8 | |||||||
| 9 | |||||||
| 10 | 2 | 2 | 10 | use strict; | |||
| 2 | 4 | ||||||
| 2 | 137 | ||||||
| 11 | 2 | 2 | 11 | use warnings; | |||
| 2 | 4 | ||||||
| 2 | 57 | ||||||
| 12 | 2 | 2 | 10 | use utf8; | |||
| 2 | 3 | ||||||
| 2 | 10 | ||||||
| 13 | |||||||
| 14 | my @first_male = qw( | ||||||
| 15 | james | ||||||
| 16 | john | ||||||
| 17 | robert | ||||||
| 18 | michael | ||||||
| 19 | william | ||||||
| 20 | david | ||||||
| 21 | richard | ||||||
| 22 | charles | ||||||
| 23 | joseph | ||||||
| 24 | thomas | ||||||
| 25 | christopher | ||||||
| 26 | daniel | ||||||
| 27 | paul | ||||||
| 28 | mark | ||||||
| 29 | donald | ||||||
| 30 | george | ||||||
| 31 | kenneth | ||||||
| 32 | steven | ||||||
| 33 | edward | ||||||
| 34 | brian | ||||||
| 35 | ronald | ||||||
| 36 | anthony | ||||||
| 37 | kevin | ||||||
| 38 | jason | ||||||
| 39 | matthew | ||||||
| 40 | gary | ||||||
| 41 | timothy | ||||||
| 42 | josé | ||||||
| 43 | larry | ||||||
| 44 | jeffrey | ||||||
| 45 | frank | ||||||
| 46 | scott | ||||||
| 47 | eric | ||||||
| 48 | stephen | ||||||
| 49 | andrew | ||||||
| 50 | raymond | ||||||
| 51 | gregory | ||||||
| 52 | joshua | ||||||
| 53 | jerry | ||||||
| 54 | dennis | ||||||
| 55 | walter | ||||||
| 56 | patrick | ||||||
| 57 | peter | ||||||
| 58 | harold | ||||||
| 59 | douglas | ||||||
| 60 | henry | ||||||
| 61 | carl | ||||||
| 62 | arthur | ||||||
| 63 | ryan | ||||||
| 64 | roger | ||||||
| 65 | joe | ||||||
| 66 | juan | ||||||
| 67 | jack | ||||||
| 68 | albert | ||||||
| 69 | jonathan | ||||||
| 70 | justin | ||||||
| 71 | terry | ||||||
| 72 | gerald | ||||||
| 73 | keith | ||||||
| 74 | samuel | ||||||
| 75 | willie | ||||||
| 76 | ralph | ||||||
| 77 | lawrence | ||||||
| 78 | nicholas | ||||||
| 79 | roy | ||||||
| 80 | benjamin | ||||||
| 81 | bruce | ||||||
| 82 | brandon | ||||||
| 83 | adam | ||||||
| 84 | harry | ||||||
| 85 | fred | ||||||
| 86 | wayne | ||||||
| 87 | billy | ||||||
| 88 | steve | ||||||
| 89 | louis | ||||||
| 90 | jeremy | ||||||
| 91 | aaron | ||||||
| 92 | randy | ||||||
| 93 | howard | ||||||
| 94 | eugene | ||||||
| 95 | carlos | ||||||
| 96 | russell | ||||||
| 97 | bobby | ||||||
| 98 | victor | ||||||
| 99 | martin | ||||||
| 100 | ernest | ||||||
| 101 | phillip | ||||||
| 102 | todd | ||||||
| 103 | jesse | ||||||
| 104 | craig | ||||||
| 105 | alan | ||||||
| 106 | shawn | ||||||
| 107 | clarence | ||||||
| 108 | sean | ||||||
| 109 | philip | ||||||
| 110 | chris | ||||||
| 111 | johnny | ||||||
| 112 | earl | ||||||
| 113 | jimmy | ||||||
| 114 | antonio | ||||||
| 115 | ); | ||||||
| 116 | |||||||
| 117 | my @first_female = qw( | ||||||
| 118 | mary | ||||||
| 119 | patricia | ||||||
| 120 | linda | ||||||
| 121 | barbara | ||||||
| 122 | elizabeth | ||||||
| 123 | jennifer | ||||||
| 124 | maria | ||||||
| 125 | susan | ||||||
| 126 | margaret | ||||||
| 127 | dorothy | ||||||
| 128 | lisa | ||||||
| 129 | nancy | ||||||
| 130 | karen | ||||||
| 131 | betty | ||||||
| 132 | helen | ||||||
| 133 | sandra | ||||||
| 134 | donna | ||||||
| 135 | carol | ||||||
| 136 | ruth | ||||||
| 137 | sharon | ||||||
| 138 | michelle | ||||||
| 139 | laura | ||||||
| 140 | sarah | ||||||
| 141 | kimberly | ||||||
| 142 | deborah | ||||||
| 143 | jessica | ||||||
| 144 | shirley | ||||||
| 145 | cynthia | ||||||
| 146 | angela | ||||||
| 147 | melissa | ||||||
| 148 | brenda | ||||||
| 149 | amy | ||||||
| 150 | anna | ||||||
| 151 | rebecca | ||||||
| 152 | virginia | ||||||
| 153 | kathleen | ||||||
| 154 | pamela | ||||||
| 155 | martha | ||||||
| 156 | debra | ||||||
| 157 | amanda | ||||||
| 158 | stephanie | ||||||
| 159 | carolyn | ||||||
| 160 | christine | ||||||
| 161 | marie | ||||||
| 162 | janet | ||||||
| 163 | catherine | ||||||
| 164 | frances | ||||||
| 165 | ann | ||||||
| 166 | joyce | ||||||
| 167 | diane | ||||||
| 168 | alice | ||||||
| 169 | julie | ||||||
| 170 | heather | ||||||
| 171 | teresa | ||||||
| 172 | doris | ||||||
| 173 | gloria | ||||||
| 174 | evelyn | ||||||
| 175 | jean | ||||||
| 176 | cheryl | ||||||
| 177 | mildred | ||||||
| 178 | katherine | ||||||
| 179 | joan | ||||||
| 180 | ashley | ||||||
| 181 | judith | ||||||
| 182 | rose | ||||||
| 183 | janice | ||||||
| 184 | kelly | ||||||
| 185 | nicole | ||||||
| 186 | judy | ||||||
| 187 | christina | ||||||
| 188 | kathy | ||||||
| 189 | theresa | ||||||
| 190 | beverly | ||||||
| 191 | denise | ||||||
| 192 | tammy | ||||||
| 193 | irene | ||||||
| 194 | jane | ||||||
| 195 | lori | ||||||
| 196 | rachel | ||||||
| 197 | marilyn | ||||||
| 198 | andrea | ||||||
| 199 | kathryn | ||||||
| 200 | louise | ||||||
| 201 | sara | ||||||
| 202 | anne | ||||||
| 203 | jacqueline | ||||||
| 204 | wanda | ||||||
| 205 | bonnie | ||||||
| 206 | julia | ||||||
| 207 | ruby | ||||||
| 208 | lois | ||||||
| 209 | tina | ||||||
| 210 | phyllis | ||||||
| 211 | norma | ||||||
| 212 | paula | ||||||
| 213 | diana | ||||||
| 214 | annie | ||||||
| 215 | lillian | ||||||
| 216 | emily | ||||||
| 217 | robin | ||||||
| 218 | ); | ||||||
| 219 | |||||||
| 220 | my @last_name = qw( | ||||||
| 221 | smith | ||||||
| 222 | johnson | ||||||
| 223 | williams | ||||||
| 224 | jones | ||||||
| 225 | brown | ||||||
| 226 | davis | ||||||
| 227 | miller | ||||||
| 228 | wilson | ||||||
| 229 | moore | ||||||
| 230 | taylor | ||||||
| 231 | anderson | ||||||
| 232 | thomas | ||||||
| 233 | jackson | ||||||
| 234 | white | ||||||
| 235 | harris | ||||||
| 236 | martin | ||||||
| 237 | thompson | ||||||
| 238 | garcía | ||||||
| 239 | martínez | ||||||
| 240 | robinson | ||||||
| 241 | clark | ||||||
| 242 | rodríguez | ||||||
| 243 | lewis | ||||||
| 244 | lee | ||||||
| 245 | walker | ||||||
| 246 | hall | ||||||
| 247 | allen | ||||||
| 248 | young | ||||||
| 249 | hernández | ||||||
| 250 | king | ||||||
| 251 | wright | ||||||
| 252 | lópez | ||||||
| 253 | hill | ||||||
| 254 | scott | ||||||
| 255 | green | ||||||
| 256 | adams | ||||||
| 257 | baker | ||||||
| 258 | gonzález | ||||||
| 259 | nelson | ||||||
| 260 | carter | ||||||
| 261 | mitchell | ||||||
| 262 | pérez | ||||||
| 263 | roberts | ||||||
| 264 | turner | ||||||
| 265 | phillips | ||||||
| 266 | campbell | ||||||
| 267 | parker | ||||||
| 268 | evans | ||||||
| 269 | edwards | ||||||
| 270 | collins | ||||||
| 271 | stewart | ||||||
| 272 | sánchez | ||||||
| 273 | morris | ||||||
| 274 | rogers | ||||||
| 275 | reed | ||||||
| 276 | cook | ||||||
| 277 | morgan | ||||||
| 278 | bell | ||||||
| 279 | murphy | ||||||
| 280 | bailey | ||||||
| 281 | rivera | ||||||
| 282 | cooper | ||||||
| 283 | richardson | ||||||
| 284 | cox | ||||||
| 285 | howard | ||||||
| 286 | ward | ||||||
| 287 | torres | ||||||
| 288 | peterson | ||||||
| 289 | gray | ||||||
| 290 | ramírez | ||||||
| 291 | james | ||||||
| 292 | watson | ||||||
| 293 | brooks | ||||||
| 294 | kelly | ||||||
| 295 | sanders | ||||||
| 296 | price | ||||||
| 297 | bennett | ||||||
| 298 | wood | ||||||
| 299 | barnes | ||||||
| 300 | ross | ||||||
| 301 | henderson | ||||||
| 302 | coleman | ||||||
| 303 | jenkins | ||||||
| 304 | perry | ||||||
| 305 | powell | ||||||
| 306 | long | ||||||
| 307 | patterson | ||||||
| 308 | hughes | ||||||
| 309 | flores | ||||||
| 310 | washington | ||||||
| 311 | butler | ||||||
| 312 | simmons | ||||||
| 313 | foster | ||||||
| 314 | gonzales | ||||||
| 315 | bryant | ||||||
| 316 | alexander | ||||||
| 317 | russell | ||||||
| 318 | griffin | ||||||
| 319 | díaz | ||||||
| 320 | hayes | ||||||
| 321 | ); | ||||||
| 322 | |||||||
| 323 | |||||||
| 324 | sub name { | ||||||
| 325 | 0 | 0 | 1 | my ($sex) = @_; | |||
| 326 | # First Middle Last | ||||||
| 327 | 0 | 0 | if ($sex eq "female") { | ||||
| 328 | 0 | return join(' ', map { ucfirst $_ } | |||||
| 0 | |||||||
| 329 | first_female(), first_female(), last_name()); | ||||||
| 330 | } | ||||||
| 331 | else { | ||||||
| 332 | 0 | return join(' ', map { ucfirst $_ } | |||||
| 0 | |||||||
| 333 | first_male(), first_male(), last_name()); | ||||||
| 334 | } | ||||||
| 335 | } | ||||||
| 336 | |||||||
| 337 | |||||||
| 338 | sub first_male { | ||||||
| 339 | 0 | 0 | 1 | return ucfirst($first_male[rand @first_male]); | |||
| 340 | } | ||||||
| 341 | |||||||
| 342 | |||||||
| 343 | sub first_female { | ||||||
| 344 | 0 | 0 | 1 | return ucfirst($first_female[rand @first_female]); | |||
| 345 | } | ||||||
| 346 | |||||||
| 347 | |||||||
| 348 | sub last_name { | ||||||
| 349 | 0 | 0 | 1 | return ucfirst($last_name[rand @last_name]); | |||
| 350 | } | ||||||
| 351 | |||||||
| 352 | 1; | ||||||
| 353 | |||||||
| 354 | __END__ |