File Coverage

blib/lib/Email/Sample.pm

Criterion	Covered	Total	%
statement	27	31	87.1
branch			n/a
condition	2	4	50.0
subroutine	8	11	72.7
pod	2	8	25.0
total	39	54	72.2

package Email::Sample;

use warnings;
use strict;
use Data::Random qw(:all);
# use Text::Greeking;


=head1 NAME

Email::Sample - generate sample email for testing

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';

=head1 SYNOPSIS

    use Email::Sample;

    my $emailgen = Email::Sample->new();
    ...

    $emailgen->add_valid_domains( [ 'url.com.tw'  , 'google2.com.tw'  ] );

    my @valid_emails = $emailgen->valid_emails( size => 20 );

    my @invalid_emails = $emailgen->invalid_emails();

=head1 DESCRIPTION

Email::Sample use L to generate a bunch of valid or invalid email
for testing.

=head1 FUNCTIONS

=cut

sub new {
    my $class = shift;
    my $self = {};
    return bless $self, $class;
}

=head2 valid_emails

=cut

my @valid_domains = qw(
    yahoo.com
    gmail.com
);

sub valid_emails {
    my $self = shift;
    my %args = @_;

    $args{size} ||= 10;
    my @emails = ();
    for( 1 .. $args{size} ) {
        push @emails, $self->g_valid_identity() . '@' . $self->get_random_valid_domain;
    }
    return \@emails;
}

sub add_domains {
    my $self = shift;
    $self->add_valid_domains(@_);
}

=head2 add_valid_domains (ARRAY)

=cut

sub add_valid_domains {
    my $class = shift;
    push @valid_domains , @_;
}

sub add_invalid_domains {

}

sub get_random_valid_domain {
    return $valid_domains[
        int( rand( scalar(@valid_domains) - 1 ) )
    ];
}

sub g_valid_identity {
    my $self = shift;
    my %args = @_;
    $args{seperator} ||= '_';
    my @random_words = rand_words( size => 3 );
    return join( $args{seperator} , @random_words );
}

sub g_invalid_identity {
    my ($self, %args ) = @_;

}



=head1 AUTHOR

Cornelius, C<<  >>

=head1 BUGS

Please report any bugs or feature requests to C, or through
the web interface at L.  I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.




=head1 SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Email::Sample


You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back


=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright 2009 Cornelius, all rights reserved.

This program is released under the following license: MIT


=cut

1; # End of Email::Sample