File Coverage

blib/lib/Catmandu/Importer/BibTeX.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	21	21	100.0

package Catmandu::Importer::BibTeX;

our $VERSION = '0.18';

use namespace::clean;
use Catmandu::Sane;
use BibTeX::Parser;
use Moo;

with 'Catmandu::Importer';

sub _contributor_name {
    my ($self, $c) = @_;
    my $name = $c->to_string;
    $name =~ tr/\{\}//d;
    $name;
}

sub generator {
    my ($self) = @_;
    my $fh = $self->fh;
    sub {
        my $parser = BibTeX::Parser->new($fh);
        while (my $entry = $parser->next) {
            my $bib = {};
            if ($entry->parse_ok) {
                $bib->{type} = lc $entry->type;

                $bib->{_citekey} = $entry->key;

                if (my @authors = $entry->cleaned_author) {
                    $bib->{author}
                        = [map {$self->_contributor_name($_)} @authors];
                }
                if (my @editors = $entry->cleaned_editor) {
                    $bib->{editor}
                        = [map {$self->_contributor_name($_)} @editors];
                }

                for my $field ($entry->fieldlist) {
                    next if $field =~ /^type|author|editor$/;
                    $bib->{$field} = $entry->cleaned_field($field);
                }

                return $bib;
            }
            else {
                Catmandu::Error->throw($entry->error);
            }
        }
        return;
    }
}

=head1 NAME

Catmandu::Importer::BibTeX - a BibTeX importer

=head1 SYNOPSIS

    use Catmandu::Importer::BibTeX;

    my $importer = Catmandu::Importer::BibTeX->new(file => "/foo/bar.bib");

    my $n = $importer->each(sub {
        my $hashref = $_[0];
        # ...
    });

=head1 DESCRIPTION

Citekey and reference type are imported as field C<_citekey> and C<_type>,
respectively.

=head1 METHODS

All methods of L<Catmandu::Importer> and by this L<Catmandu::Iterable> are
inherited.

=head1 SEE ALSO

L<Catmandu::Exporter::BibTeX>,
L<BibTeX::Parser>

=cut

1;