sub form {
my $self = shift;
my $name = shift;
- my ($form) = grep { $_->attr('name') eq $name } $self->forms;
+ my ($form) = grep { ($_->attr('name') || '') eq $name } $self->forms;
$form;
}
last => 'Customer',
first => $first,
invoice_email => 'newcustomer@fake.freeside.biz',
- payby => 'BILL',
bill_location => $location,
ship_location => $location,
});