view release on metacpan or  search on metacpan

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

#pod
#pod   my $req = Version::Requirements->new;
#pod
#pod This returns a new Version::Requirements object.  It ignores any arguments
#pod given.
#pod
#pod =cut

sub new {
  my ($class) = @_;
  return bless {} => $class;
}

sub _version_object {
  my ($self, $version) = @_;

  $version = (! defined $version)                ? version->parse(0)
           : (! Scalar::Util::blessed($version)) ? version->parse($version)
           :                                       $version;

  return $version;