File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	4	4	100.0
total	37	37	100.0

package PDF::Make::Extract::Line;
use strict;
use warnings;
use Object::Proto;
use PDF::Make::Extract::Word;

BEGIN {
    Object::Proto::define('PDF::Make::Extract::Line',
        'x0:Num',
        'y0:Num',
        'x1:Num',
        'y1:Num',
        'baseline:Num',
        '_words:ArrayRef:arg(words):default([])',
    );
    Object::Proto::import_accessors('PDF::Make::Extract::Line');
}

sub bbox { (x0($_[0]), y0($_[0]), x1($_[0]), y1($_[0])) }

sub words {
    my ($self) = @_;
    return map { PDF::Make::Extract::Word->new(%$_) } @{_words($self)};
}

sub word_count { scalar @{_words($_[0])} }

sub to_string {
    my ($self) = @_;
    return join ' ', map { $_->text } $self->words;
}

1;

__END__