CPAN-Meta-Requirements

 view release on metacpan or  search on metacpan

lib/CPAN/Meta/Requirements.pm  view on Meta::CPAN


my @valid_options = qw( bad_version_hook );

sub new {
  my ($class, $options) = @_;
  $options ||= {};
  Carp::croak "Argument to $class\->new() must be a hash reference"
    unless ref $options eq 'HASH';
  my %self = map {; $_ => $options->{$_}} @valid_options;

  return bless \%self => $class;
}

# from version::vpp
sub _find_magic_vstring {
  my $value = shift;
  my $tvalue = '';
  require B;
  my $sv = B::svref_2object(\$value);
  my $magic = ref($sv) eq 'B::PVMG' ? $sv->MAGIC : undef;
  while ( $magic ) {

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 1.001 second using v1.00-cache-1.14-grep-28634ff-cpan-207214f8fbd )