package Data::RandomPerson::Names::Male;

use strict;
use warnings;

use base 'Data::RandomPerson::Names';

1;

=pod

=head1 NAME

Data::RandomPerson::Names::Male - A list of male names from some census data

=head1 SYNOPSIS

  use Data::RandomPerson::Names::Male;

  my $m = Data::RandomPerson::Names::Male->new();

  print $m->get();

=head1 DESCRIPTION

=head2 Overview

Returns a random element from a list of male names culled from some census data.

=head2 Constructors and initialization

=over 4

=item new( )

Create the Data::RandomPerson::Names::Male object.

=back

=head2 Class and object methods

=over 4

=item get( )

Returns a random name from the list.

=item size( )

Returns the size of the list

=back

=head1 AUTHOR

Peter Hickman (peterhi@ntlworld.com)

=head1 COPYRIGHT

Copyright (c) 2005, Peter Hickman. This module is
free software. It may be used, redistributed and/or modified under the
same terms as Perl itself.

=cut