File Coverage

blib/lib/PDF/Make/Extract/Result.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	4	4	100.0
condition			n/a
subroutine	10	10	100.0
pod	5	5	100.0
total	55	55	100.0

package PDF::Make::Extract::Result;
use strict;
use warnings;
use Object::Proto;
use PDF::Make::Extract::Block;

BEGIN {
    Object::Proto::define('PDF::Make::Extract::Result',
        'data:ArrayRef:default([])',
    );
    Object::Proto::import_accessors('PDF::Make::Extract::Result');
}

sub blocks {
    my ($self) = @_;
    return map { PDF::Make::Extract::Block->new(%$_) } @{data($self)};
}

sub block_count { scalar @{data($_[0])} }

sub text_positions {
    my ($self) = @_;
    my @items;
    for my $block ($self->blocks) {
        for my $line ($block->lines) {
            for my $word ($line->words) {
                push @items, {
                    text      => $word->text,
                    x         => $word->x0,
                    y         => $word->y0,
                    w         => $word->x1 - $word->x0,
                    h         => $word->y1 - $word->y0,
                    font_size => $word->font_size,
                    baseline  => $line->baseline,
                    (defined $word->mcid ? (mcid => $word->mcid) : ()),
                    (defined $word->tag  ? (tag  => $word->tag)  : ()),
                };
            }
        }
    }
    return @items;
}

sub words {
    my ($self) = @_;
    my @w;
    for my $block ($self->blocks) {
        for my $line ($block->lines) {
            push @w, $line->words;
        }
    }
    return @w;
}

sub to_string {
    my ($self) = @_;
    return join "\n\n", map { $_->to_string } $self->blocks;
}

1;

__END__