Lines Matching refs:version
27 use version 0.87;
77 ($V_NUM_REGEXP)? # optional version number
88 ($V_NUM_REGEXP)? # optional version number
149 $v1 = version->new($v1)
150 unless UNIVERSAL::isa($v1,'version');
160 my ($version) = @_;
161 if ( $version =~ /[=<>!,]/ ) { # logic, not just version
164 elsif ( ref $version eq 'version' ) { # version objects
165 $version = $version->is_qv ? $version->normal : $version->stringify;
167 elsif ( $version =~ /^[^v][^.]*\.[^.]+\./ ) { # no leading v, multiple dots
169 $version = "v$version";
174 return $version;
182 my( $file, $version );
185 if ( defined( $p->{version} ) ) {
186 if ( defined( $version ) ) {
187 if ( $compare_versions->( $version, '!=', $p->{version} ) ) {
188 $err .= " $p->{file} ($p->{version})\n";
191 # same version declared multiple times, ignore
196 $version = $p->{version};
203 $err = " $file ($version)\n" . $err;
208 version => $version,
224 croak "provides() requires a 'version' argument"
225 unless defined $args{version};
227 croak "provides() does not support version '$args{version}' metadata"
228 unless grep $args{version} eq $_, qw/1.4 2/;
285 my $version = $pm_info->version( $package );
295 $prime{$package}{version} = $version if defined( $version );
301 version => $version,
308 # and selecting the "best" candidate for recording the file & version
321 " $prime{$package}{file} ($prime{$package}{version})\n" .
326 elsif ( defined( $result->{version} ) ) {
330 if ( exists( $prime{$package}{version} ) &&
331 defined( $prime{$package}{version} ) ) {
332 # Unless the version of the primary package agrees with the
333 # version of the alternative package, report a conflict
335 $prime{$package}{version}, '!=', $result->{version}
341 " $prime{$package}{file} ($prime{$package}{version})\n" .
342 " $result->{file} ($result->{version})\n"
348 # The prime package selected has no version so, we choose to
349 # use any alternative package that does have a version
351 $prime{$package}{version} = $result->{version};
356 # no alt package found with a version, but we have a prime
357 # package so we use it whether it has a version or not
373 $prime{$package}{version} = $result->{version}
374 if defined( $result->{version} );
380 for (grep defined $_->{version}, values %prime) {
381 $_->{version} = $normalize_version->( $_->{version} );
404 version => undef,
451 $self->{version} = $self->{versions}{$self->{module}}
623 my $version = $2;
625 $need_vers = defined $version ? 0 : 1;
627 if ( not exists $vers{$package} and defined $version ){
628 # Upgrade to a version object.
629 my $dwim_version = eval { _dwim_version($version) };
630 croak "Version '$version' from $self->{filename} does not appear to be valid:\n$line\n\nThe fatal error was: $@\n"
699 # We compile into a local sub because 'use version' would cause
704 use version;
724 warn "Error evaling version line '$eval' in $self->{filename}: $@\n"
728 croak "failed to build version sub for $self->{filename}";
732 croak "Could not get version from $self->{filename} by executing:\n$eval\n\nThe fatal error was: $@\n"
735 # Upgrade it into a version object
736 my $version = eval { _dwim_version($result) };
740 unless defined $version; # "0" is OK!
742 return $version;
746 # Try to DWIM when things fail the lax version test in obvious ways
752 # If we still don't have a version, try stripping any
761 # cause version.pm to think it's an invalid alpha. So check for that
775 # Worst case, try numifying it like we would have before version objects
787 return $result if ref($result) eq 'version';
789 my ($version, $error);
792 $version = eval { version->new($result) };
794 last if defined $version;
797 croak $error unless defined $version;
799 return $version;
813 sub version {
864 version 1.000038
872 my $version = $info->version;
876 dir => 'lib', version => 2
883 version of a module, the C<$VERSION> assignment is C<eval>ed, as is traditional
955 =item version B<(required)>
957 Specifies which version of the L<CPAN::Meta::Spec> should be used as
962 The C<version> option is required. If it is omitted or if
963 an unsupported version is given, then C<provides> will throw an error.
990 version => '0.123',
1004 version => '0.123',
1032 =head2 C<< version($package) >>
1034 Returns the version as defined by the $VERSION variable for the
1037 version of that package if it is specified in the file.
1068 Available since version 1.000020.