root/lang/perl/Acme-JapaneseCPANAuthors/trunk/lib/Acme/JapaneseCPANAuthors/Utils.pm

package Acme::JapaneseCPANAuthors::Utils;

use strict;
use warnings;
use base qw( Exporter );
use File::Spec;

our @EXPORT = qw( _package_file _author_file );

sub _author_file {
  _cpan_file( authors => '01mailrc.txt.gz' );
}

sub _package_file {
  _cpan_file( modules => '02packages.details.txt.gz' );
}

sub _cpan_file {
  my ($dir, $basename) = @_;

  require CPAN::Config;
  my $source_dir   = $CPAN::Config->{keep_source_where};
  my $file = _catfile( $source_dir, '/', $basename );
  unless ( -f $file ) {
    $file = _catfile( $source_dir, '/', $dir, '/', $basename );
  }
  die "$file not found" unless -f $file;

  return $file;
}

sub _catfile { File::Spec->canonpath( File::Spec->catfile( @_ ) ); }

1;

__END__

=head1 NAME

Acme::JapaneseCPANAuthors::Utils

=head1 DESCRIPTION

This is used internally, and exports several internal utility functions.

=head1 AUTHOR

Kenichi Ishigaki, E<lt>ishigaki at cpan.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2007 by Kenichi Ishigaki.

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut