ACIL FM

Nama	Ukuran	Aksi
API	-	Open
Exception	-	Open
FTP	-	Open
HTTP	-	Open
Kwalify	-	Open
LWP	-	Open
Meta	-	Open
Plugin	-	Open
Admin.pm	7.61 MB	View DL Edit
Author.pm	6.68 MB	View DL Edit
Bundle.pm	9.91 MB	View DL Edit
CacheMgr.pm	7.48 MB	View DL Edit
Complete.pm	5.88 MB	View DL Edit
Debug.pm	2.05 MB	View DL Edit
DeferredCode.pm	189 B	View DL Edit
DistnameInfo.pm	4.99 MB	View DL Edit
Distribution.pm	178.76 MB	View DL Edit
Distroprefs.pm	11.71 MB	View DL Edit
Distrostatus.pm	972 B	View DL Edit
FirstTime.pm	73.42 MB	View DL Edit
FTP.pm	48.2 MB	View DL Edit
HandleConfig.pm	23.62 MB	View DL Edit
Index.pm	21.71 MB	View DL Edit
InfoObj.pm	6.75 MB	View DL Edit
Kwalify.pm	3.35 MB	View DL Edit
Meta.pm	29.56 MB	View DL Edit
Mirrors.pm	17.82 MB	View DL Edit
Module.pm	21.87 MB	View DL Edit
Nox.pm	953 B	View DL Edit
Plugin.pm	3.14 MB	View DL Edit
Prompt.pm	567 B	View DL Edit
Queue.pm	6.96 MB	View DL Edit
Shell.pm	71.96 MB	View DL Edit
Tarzip.pm	16.25 MB	View DL Edit
URL.pm	588 B	View DL Edit
Version.pm	4.29 MB	View DL Edit

Edit file: /usr/share/perl5/vendor_perl/CPAN/DistnameInfo.pm

package CPAN::DistnameInfo;

$VERSION = "0.12";
use strict;

sub distname_info {
  my $file = shift or return;

my ($dist, $version) = $file =~ /^
    ((?:[-+.]*(?:[A-Za-z0-9]+|(?<=\D)_|_(?=\D))*
     (?:
	[A-Za-z](?=[^A-Za-z]|$)
	|
	\d(?=-)
     )(?<![._-][vV])
    )+)(.*)
  $/xs or return ($file,undef,undef);

if ($dist =~ /-undef\z/ and ! length $version) {
    $dist =~ s/-undef\z//;
  }

# Remove potential -withoutworldwriteables suffix
  $version =~ s/-withoutworldwriteables$//;

if ($version =~ /^(-[Vv].*)-(\d.*)/) {
   
    # Catch names like Unicode-Collate-Standard-V3_1_1-0.1
    # where the V3_1_1 is part of the distname
    $dist .= $1;
    $version = $2;
  }

if ($version =~ /(.+_.*)-(\d.*)/) {
      # Catch names like Task-Deprecations5_14-1.00.tar.gz where the 5_14 is
      # part of the distname. However, names like libao-perl_0.03-1.tar.gz
      # should still have 0.03-1 as their version.
      $dist .= $1;
      $version = $2;
  }

# Normalize the Dist.pm-1.23 convention which CGI.pm and
  # a few others use.
  $dist =~ s{\.pm$}{};

$version = $1
    if !length $version and $dist =~ s/-(\d+\w)$//;

$version = $1 . $version
    if $version =~ /^\d+$/ and $dist =~ s/-(\w+)$//;

if ($version =~ /\d\.\d/) {
    $version =~ s/^[-_.]+//;
  }
  else {
    $version =~ s/^[-_]+//;
  }

my $dev;
  if (length $version) {
    if ($file =~ /^perl-?\d+\.(\d+)(?:\D(\d+))?(-(?:TRIAL|RC)\d+)?$/) {
      $dev = 1 if (($1 > 6 and $1 & 1) or ($2 and $2 >= 50)) or $3;
    }
    elsif ($version =~ /\d\D\d+_\d/ or $version =~ /-TRIAL/) {
      $dev = 1;
    }
  }
  else {
    $version = undef;
  }

($dist, $version, $dev);
}

sub new {
  my $class = shift;
  my $distfile = shift;

$distfile =~ s,//+,/,g;

my %info = ( pathname => $distfile );

($info{filename} = $distfile) =~ s,^(((.*?/)?authors/)?id/)?([A-Z])/(\4[A-Z])/(\5[-A-Z0-9]*)/,,
    and $info{cpanid} = $6;

if ($distfile =~ m,([^/]+)\.(tar\.(?:g?z|bz2)|zip|tgz)$,i) { # support more ?
    $info{distvname} = $1;
    $info{extension} = $2;
  }

@info{qw(dist version beta)} = distname_info($info{distvname});
  $info{maturity} = delete $info{beta} ? 'developer' : 'released';

return bless \%info, $class;
}

sub dist      { shift->{dist} }
sub version   { shift->{version} }
sub maturity  { shift->{maturity} }
sub filename  { shift->{filename} }
sub cpanid    { shift->{cpanid} }
sub distvname { shift->{distvname} }
sub extension { shift->{extension} }
sub pathname  { shift->{pathname} }

sub properties { %{ $_[0] } }

__END__

=head1 NAME

CPAN::DistnameInfo - Extract distribution name and version from a distribution filename

=head1 SYNOPSIS

my $pathname = "authors/id/G/GB/GBARR/CPAN-DistnameInfo-0.02.tar.gz";

my $d = CPAN::DistnameInfo->new($pathname);

my $dist      = $d->dist;      # "CPAN-DistnameInfo"
  my $version   = $d->version;   # "0.02"
  my $maturity  = $d->maturity;  # "released"
  my $filename  = $d->filename;  # "CPAN-DistnameInfo-0.02.tar.gz"
  my $cpanid    = $d->cpanid;    # "GBARR"
  my $distvname = $d->distvname; # "CPAN-DistnameInfo-0.02"
  my $extension = $d->extension; # "tar.gz"
  my $pathname  = $d->pathname;  # "authors/id/G/GB/GBARR/..."

my %prop = $d->properties;

=head1 DESCRIPTION

Many online services that are centered around CPAN attempt to
associate multiple uploads by extracting a distribution name from
the filename of the upload. For most distributions this is easy as
they have used ExtUtils::MakeMaker or Module::Build to create the
distribution, which results in a uniform name. But sadly not all
uploads are created in this way.

C<CPAN::DistnameInfo> uses heuristics that have been learnt by
L<http://search.cpan.org/> to extract the distribution name and
version from filenames and also report if the version is to be
treated as a developer release

The constructor takes a single pathname, returning an object with the following methods

=over

=item cpanid

If the path given looked like a CPAN authors directory path, then this will be the
the CPAN id of the author.

=item dist

The name of the distribution

=item distvname

The file name with any suffix and leading directory names removed

=item filename

If the path given looked like a CPAN authors directory path, then this will be the
path to the file relative to the detected CPAN author directory. Otherwise it is the path
that was passed in.

=item maturity

The maturity of the distribution. This will be either C<released> or C<developer>

=item extension

The extension of the distribution, often used to denote the archive type (e.g. 'tar.gz')

=item pathname

The pathname that was passed to the constructor when creating the object.

=item properties

This will return a list of key-value pairs, suitable for assigning to a hash,
for the known properties.

=item version

The extracted version

=back

=head1 AUTHOR

Graham Barr <gbarr@pobox.com>

=head1 COPYRIGHT

=cut

Batal