gistfile1.PL

sub register_prereqs {
  my $self = shift;
  my $arg  = ref($_[0]) ? shift(@_) : {};
  my %prereq = @_;

  confess "too late to register a prereq" if $self->is_finalized;

  my $phase = $arg->{phase} || 'runtime';
  my $type  = $arg->{type}  || 'requires';

  $phase = 'build' if $phase eq 'test';

  my $prereq = ($self->_guts->{$phase}{$type} ||= Version::Requirements->new);

  while (my ($package, $version) = each %prereq) {
    $prereq->add_minimum($package, $version);
  }

  return;
}