File Coverage

blib/lib/PDF/Make/Extract/Block.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


line stmt bran cond sub pod time code
1             package PDF::Make::Extract::Block;
2 42     42   198 use strict;
  42         63  
  42         1758  
3 42     42   146 use warnings;
  42         78  
  42         1510  
4 42     42   142 use Object::Proto;
  42         66  
  42         1935  
5 42     42   17022 use PDF::Make::Extract::Line;
  42         106  
  42         1485  
6              
7             BEGIN {
8 42     42   1213 Object::Proto::define('PDF::Make::Extract::Block',
9             'x0:Num',
10             'y0:Num',
11             'x1:Num',
12             'y1:Num',
13             '_lines:ArrayRef:arg(lines):default([])',
14             );
15 42         7464 Object::Proto::import_accessors('PDF::Make::Extract::Block');
16             }
17              
18 1     1 1 829 sub bbox { (x0($_[0]), y0($_[0]), x1($_[0]), y1($_[0])) }
19              
20             sub lines {
21 260     260 1 1052 my ($self) = @_;
22 260         261 return map { PDF::Make::Extract::Line->new(%$_) } @{_lines($self)};
  729         2509  
  260         350  
23             }
24              
25 1     1 1 613 sub line_count { scalar @{_lines($_[0])} }
  1         6  
26              
27             sub to_string {
28 57     57 1 84 my ($self) = @_;
29 57         125 return join "\n", map { $_->to_string } $self->lines;
  119         213  
30             }
31              
32             1;
33              
34             __END__