File Coverage

lib/Draft/Entity/Line.pm
Criterion Covered Total %
statement 12 13 92.3
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 19 84.2


line stmt bran cond sub pod time code
1             package Draft::Entity::Line;
2              
3             =head1 NAME
4              
5             Draft::Entity::Line - CAD line drawing-object
6              
7             =head1 SYNOPSIS
8              
9             A line consists of two points.
10              
11             =cut
12              
13 1     1   5 use strict;
  1         2  
  1         31  
14 1     1   5 use warnings;
  1         1  
  1         20  
15              
16             # FIXME shouldn't depend on Tk
17 1     1   395 use Draft::TkGui::Entity::Line;
  1         2  
  1         28  
18 1     1   6 use vars qw /@ISA/;
  1         1  
  1         70  
19             @ISA = qw /Draft::TkGui::Entity::Line/;
20              
21             =pod
22              
23             =head1 DESCRIPTION
24              
25             Though a line consists of just two points, it should really be
26             extended to an arbitrary number of points - A polyline.
27              
28             =cut
29              
30 0     0 0   sub Process {}
31              
32             1;