failsafe( [
    'NAME'     => 'ABC::XYZ',
    'AUTHOR'   => { 
                    NAME   => 'James E Keenan',
                    CPANID => 'AB',
       },
], 
    "^CPAN IDs are 3-9 characters",
    "Constructor correctly failed due to CPANID < 3 characters");