Youri-Package
view release on metacpan or search on metacpan
lib/Youri/Package.pm view on Meta::CPAN
=cut
sub get_full_name {
my ($self) = @_;
carp "Deprecated method, use as_string now";
return $self->as_string();
}
=head2 compare_versions($version1, $version2)
Deprecated in favor of compare_revisions().
=cut
sub compare_versions {
my ($self, $version1, $version2) = @_;
carp "Deprecated method, use compare_revisions now";
return $self->compare_revisions($version1, $version2);
}
=head2 compare_ranges($version1, $version2)
Deprecated in favor of check_ranges_compatibility().
=cut
sub compare_ranges {
my ($self, $range1, $range2) = @_;
carp "Deprecated method, use check_ranges_compatibility now";
return $self->check_ranges_compatibility($range1, $range2);
}
=head2 get_revision_name()
Deprecated in favor of as_formated_string() with proper format string.
=cut
sub get_revision_name {
my ($self) = @_;
carp "Deprecated method, use as_formated_string('%{name}-%{version}-%{release}') now";
return $self->as_formated_string('%{name}-%{version}-%{release}');
}
=head2 get_information()
Deprecated in favor of as_formated_string() with proper pattern.
=cut
sub get_information {
my ($self) = @_;
carp "Deprecated method, use as_formated_string() with proper format string now";
return $self->as_formated_string(<<EOF);
Name : %-27{NAME} Relocations: %|PREFIXES?{[%{PREFIXES} ]}:{(not relocatable)}|
Version : %-27{VERSION} Vendor: %{VENDOR}
Release : %-27{RELEASE} Build Date: %{BUILDTIME:date}
Install Date: %|INSTALLTIME?{%-27{INSTALLTIME:date}}:{(not installed) }| Build Host: %{BUILDHOST}
Group : %-27{GROUP} Source RPM: %{SOURCERPM}
Size : %-27{SIZE}%|LICENSE?{ License: %{LICENSE}}|
Signature : %|DSAHEADER?{%{DSAHEADER:pgpsig}}:{%|RSAHEADER?{%{RSAHEADER:pgpsig}}:{%|SIGGPG?{%{SIGGPG:pgpsig}}:{%|SIGPGP?{%{SIGPGP:pgpsig}}:{(none)}|}|}|}|
%|PACKAGER?{Packager : %{PACKAGER}\n}|%|URL?{URL : %{URL}\n}|Summary : %{SUMMARY}
Description :\n%{DESCRIPTION}
EOF
}
1;
( run in 1.243 second using v1.01-cache-2.11-cpan-5511b514fd6 )