Email::Sample - generate sample email for testing

    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();

    perldoc Email::Sample

package Email::Sample;

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

our $VERSION = '0.01';

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

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(@_);
}

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 ) = @_;

}

1; # End of Email::Sample