Data::RandomPerson::Names - Base class to hold the common methods required for the names

Data-RandomPerson documentation

Contained in the Data-RandomPerson distribution.

Index

NAME
VERSION
SYNOPSIS
DESCRIPTION
ENVIRONMENT
DIAGNOSTICS
BUGS
FILES
SEE ALSO
AUTHOR
COPYRIGHT

Code Index:

package Data::RandomPerson::Names
- size
- get
__END__
EOF

NAME

Data::RandomPerson::Names - Base class to hold the common methods required for the names

VERSION

This document refers to version 0.4 of Data::RandomPerson::Names, released Sept 13th, 2005

SYNOPSIS

There is no need to call this class

DESCRIPTION

Overview

There is no need to call this class

Constructors and initialization

Data::RandomPerson::Names->new( ): Returns a Data::RandomPerson::Names object.

Class and object methods

size( ): Returns the size of the list so far.
get(): Returns an element from the list.

ENVIRONMENT

Perl 5

DIAGNOSTICS

None from this code

BUGS

None so far

FILES

None

SEE ALSO

None

AUTHOR

Peter Hickman (peterhi@ntlworld.com)

COPYRIGHT

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

Data-RandomPerson documentation

Contained in the Data-RandomPerson distribution.

# $Id: Names.pm,v 1.3 2005/09/13 18:50:49 peterhickman Exp $

package Data::RandomPerson::Names;

use strict;
use warnings;

sub size {
    my ($self) = @_;

    return $self->{choice}->size();
}

sub get {
    my ($self) = @_;

    return ucfirst $self->{choice}->pick();
}

1;

__END__