File Coverage

lib/ChordPro/lib/SVGPDF/Polygon.pm
Criterion Covered Total %
statement 14 18 77.7
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 19 25 76.0


line stmt bran cond sub pod time code
1             #! perl
2              
3 10     10   161 use v5.26;
  10         43  
4 10     10   70 use Object::Pad;
  10         24  
  10         109  
5 10     10   1707 use utf8;
  10         26  
  10         95  
6 10     10   384 use Carp;
  10         21  
  10         1448  
7              
8 10     10   4613 class SVGPDF::Polygon :isa(SVGPDF::Polyline);
  10         34  
  10         1514  
9              
10 0     0 0   method process () {
  0            
  0            
11 0           $self->process_polyline(1);
12             }
13              
14             1;