compare( default_values(), 
  {
    'NAME'     => 'ABC::Alpha',
    'AUTHOR'   => { 
                    NAME   => 'James E Keenan',
                    EMAIL  => 'jkeenancpan.org',
    },
  }
);

compare( default_values(), 
  {
    'NAME'     => 'ABC::Alpha',
    'AUTHOR'   => { 
                    NAME   => 'James E Keenan',
                    CPANID => 'JKEENAN',
    },
  }
);

sub default_values {
    my %default_values = (
            SUBJECT  => 'Subject (<= 44 characters) goes here',
            AUTHOR   => {
                NAME         => 'A. U. Thor',
                CPANID       => 'AUTHOR',
                WEBSITE      => 'http://a.galaxy.far.far.away/modules',
                EMAIL        => 'a.u.thor@a.galaxy.far.far.away',
            },
    );
    return { %default_values };
}
}