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   1418 use v5.26;
  2         8  
4 2     2   11 use Object::Pad;
  2         4  
  2         21  
5 2     2   297 use utf8;
  2         4  
  2         18  
6 2     2   55 use Carp;
  2         4  
  2         261  
7              
8 2     2   791 class SVGPDF::Polygon :isa(SVGPDF::Polyline);
  2         7  
  2         276  
9              
10 2     2 0 5 method process () {
  2         9  
  2         5  
11 2         14 $self->process_polyline(1);
12             }
13              
14             1;