Acme::CPANAuthors::Utils::Authors - Acme::CPANAuthors::Utils::Authors documentation

Acme-CPANAuthors documentation Contained in the Acme-CPANAuthors distribution.

Index

Code Index:

NAME

Top

Acme::CPANAuthors::Utils::Authors

SYNOPSIS

Top

  use Acme::CPANAuthors::Utils::Authors;

  # you can't pass the raw content of 01mailrc.txt(.gz)
  my $authors = Acme::CPANAuthors::Utils::Authors->new(
    'cpan/authors/01mailrc.txt.gz'
  );

  my $author = $authors->author('Acme::CPANAuthors');

DESCRIPTION

Top

This is a subset of Parse::CPAN::Authors. The reading methods are similar in general (accessors are marked as read-only, though). Internals and data-parsing methods may be different, but you usually don't need to care.

METHODS

Top

new

always takes a file name (both raw .txt file and .txt.gz file name are acceptable). Raw content of the file is not acceptable.

author

takes a name of an author, and returns an object that represents it.

authors

returns a list of stored author objects.

author_count

returns the number of stored authors.

AUTHOR ACCESSORS

Top

pauseid, name, email

  my $author = $authors->author('ISHIGAKI');
  print $author->pauseid, "\n"; # ISHIGAKI
  print $author->name, "\n";    # Kenichi Ishigaki
  print $author->email, "\n";   # ishigaki@cpan.org

SEE ALSO

Top

Parse::CPAN::Authors

AUTHOR

Top

Kenichi Ishigaki, <ishigaki@cpan.org>

COPYRIGHT AND LICENSE

Top

Copyright (C) 2010 by Kenichi Ishigaki.

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

Acme-CPANAuthors documentation Contained in the Acme-CPANAuthors distribution. 
package Acme::CPANAuthors::Utils::Authors;

use strict;
use warnings;
use base 'Acme::CPANAuthors::Utils::CPANIndex';

sub _mappings {+{author => 'authors'}}

sub _parse {
  my ($self, $file) = @_;

  my $handle = $self->_handle($file);

  while (my $line = $handle->getline) {
    $line =~ s/\r?\n$//;
    my ($alias, $pauseid, $long) = split ' ', $line, 3;
    $long =~ s/^"//;
    $long =~ s/"$//;
    my ($name, $email) = $long =~ /(.*) <(.+)>$/;
    my $author = Acme::CPANAuthors::Utils::Authors::Author->new({
      pauseid => $pauseid,
      name    => $name,
      email   => $email,
    });

    $self->{authors}{$pauseid} = $author;
  }
}

package #
  Acme::CPANAuthors::Utils::Authors::Author;

use strict;
use warnings;
use base 'Class::Accessor::Fast';

__PACKAGE__->mk_ro_accessors(qw/pauseid name email/);

1;

__END__