File Coverage

blib/lib/PDF/Make/Extract/Word.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 3 3 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package PDF::Make::Extract::Word;
2 42     42   200 use strict;
  42         183  
  42         1134  
3 42     42   150 use warnings;
  42         59  
  42         1597  
4 42     42   186 use Object::Proto;
  42         57  
  42         2602  
5              
6             BEGIN {
7 42     42   2187 Object::Proto::define('PDF::Make::Extract::Word',
8             'text:Str',
9             'x0:Num',
10             'y0:Num',
11             'x1:Num',
12             'y1:Num',
13             'font_size:Num',
14             'mcid',
15             'tag',
16             );
17 42         5362 Object::Proto::import_accessors('PDF::Make::Extract::Word');
18             }
19              
20 1     1 1 9 sub bbox { (x0($_[0]), y0($_[0]), x1($_[0]), y1($_[0])) }
21 2     2 1 2561 sub width { x1($_[0]) - x0($_[0]) }
22 2     2 1 14 sub height { y1($_[0]) - y0($_[0]) }
23              
24             1;
25              
26             __END__