File Coverage

blib/lib/Parse/CPAN/Authors.pm

Criterion	Covered	Total	%
statement	49	49	100.0
branch	10	10	100.0
condition			n/a
subroutine	9	9	100.0
pod	3	3	100.0
total	71	71	100.0

package Parse::CPAN::Authors;
use strict;
use IO::Zlib;
use Parse::CPAN::Authors::Author;
use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_accessors(qw( mailrc data ));
use vars qw($VERSION);
$VERSION = '2.27';

sub new {
    my $class    = shift;
    my $filename = shift;
    my $self     = {};
    bless $self, $class;

    $filename = '01mailrc.txt.gz' if not defined $filename;

    if ( $filename =~ /^alias / ) {
        $self->mailrc($filename);
    } elsif ( $filename =~ /\.gz/ ) {
        my $fh = IO::Zlib->new( $filename, "rb" );
        die "Failed to read $filename: $!" unless $fh;
        $self->mailrc( join '', <$fh> );
        $fh->close;
    } else {
        open( IN, $filename ) || die "Failed to read $filename: $!";
        $self->mailrc( join '',  );
        close(IN);
    }

    $self->_parse;

    return $self;
}

sub _parse {
    my $self = shift;
    my $data;

    foreach my $line ( split "\n", $self->mailrc ) {
        my ( $alias, $pauseid, $long ) = split ' ', $line, 3;
        $long =~ s/^"//;
        $long =~ s/"$//;
        my ($name, $email) = $long =~ /(.*) <(.+)>$/;
        my $a = Parse::CPAN::Authors::Author->new;
        $a->pauseid($pauseid);
        $a->name($name);
        $a->email($email);
        $data->{$pauseid} = $a;
    }
    $self->data($data);
}

sub author {
    my ( $self, $pauseid ) = @_;
    return $self->data->{$pauseid};
}

sub authors {
    my ($self) = @_;
    return values %{ $self->data };
}

1;

__END__