Select Code to Download

    warn "DV:  " . \%default_values;
    my $self = ref($class) ? bless( +{ %default_values }, ref($class) 
+)
                           : bless( +{ %default_values }, $class );
    warn "self:  " . $self;

failsafe( [
    'SUBJECT' => 'The quick brown fox jumps over the lazy dog',
...
], 
    "^Module NAME contains illegal characters",
    "Perl 4-style single-quote path separators no longer supported");

failsafe( [
    'NAME'     => 'ABC::XYZ',
...
], 
    "^CPAN IDs are 3-9 characters",
    "Constructor correctly failed due to CPANID > 9 characters");

failsafe( [
    'NAME'     => 'ABC::XYZ',
...
], 
    "^CPAN IDs are 3-9 characters",
    "Constructor correctly failed due to CPANID < 3 characters");

failsafe( [
    'NAME'     => 'ABC::Alpha',
...
    "^EMAIL addresses need to have an at sign",

    "Constructor correctly failed; e-mail must have '\@' sign");

not ok 22 - Constructor correctly failed; e-mail must have '@' sign

...
# No such file or directory at t\001_load.t line 87
# '
#     doesn't match '(?-xism:^EMAIL addresses need to have an at sign)
+'