view release on metacpan or  search on metacpan

t/203_prefill.t  view on Meta::CPAN

    name   => 'spaghetti',
    email  => 'dinner@food.food',
};

my $data2 = {
    checktest   => 'Irish',
    name  => 'Coffee',
};


# need to create series of tests, several iterations of prefill and then do a plain generate to
# confirm original default/placholder still exist.
my @results1 = (
    {   row => 0 ,  input => q|value="spaghetti"|,
        comment => 'prefilled name with value spaghetti is set'},
    {   row => 0 ,  input => q|placeholder="Your Name"|,
        comment => 'prefilled name with value gets placeholder of "Your Name"'},
    {   row => 1 ,  input => q|value="say Hello"|,
        comment => 'prefilled with no value for phone gets default'},
    {   row => 2 ,    input => q|value="dinner\@food.food"|,
        comment => 'prefilled email with value dinner@food.food is set'},