File Coverage

blib/lib/SVGPDF/Polygon.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             #! perl
2              
3 2     2   1180 use v5.26;
  2         7  
4 2     2   8 use Object::Pad;
  2         2  
  2         13  
5 2     2   223 use utf8;
  2         4  
  2         19  
6 2     2   75 use Carp;
  2         4  
  2         188  
7              
8 2     2   651 class SVGPDF::Polygon :isa(SVGPDF::Polyline);
  2         4  
  2         195  
9              
10 2     2 0 5 method process () {
  2         4  
  2         3  
11 2         9 $self->process_polyline(1);
12             }
13              
14             1;