Select Code to Download

\%data = { customer_number => $custno, country => $country, ticket_typ
+e => $ticketsystem };
$test_class = "Utils::Testclass::MyTest"->new($data);
...
    predicate => 'has_ticket_type',
    clearer   => 'clear_ticket_type',
);

map {  $data{$_} = '' unless defined $data{$_} } keys %data;

has 'country' => (
    is        => 'rw',
...
                     }
                 }
);