File Coverage

lib/Panotools/Script/Line/ControlMorph.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package Panotools::Script::Line::ControlMorph;
2              
3 11     11   935 use strict;
  11         22  
  11         480  
4 11     11   60 use warnings;
  11         24  
  11         301  
5 11     11   464 use Panotools::Script::Line;
  11         22  
  11         291  
6              
7 11     11   76 use vars qw /@ISA/;
  11         24  
  11         1543  
8             @ISA = qw /Panotools::Script::Line/;
9              
10             =head1 NAME
11              
12             Panotools::Script::Line::ControlMorph - Panotools morph control-point
13              
14             =head1 SYNOPSIS
15              
16             A single morph control-point forms a 'C' line
17              
18             =head1 DESCRIPTION
19              
20             Morphing of control point lines
21             One line per point
22             Created automatically by optimizer
23              
24             i0 image
25             c0 control point
26             x363.726 starting x point position
27             y125.738 starting y point position
28             X363.838 morphed x point position
29             Y125.618 morphed y point position
30             D12.34 control point error
31             Dx7.89 control point error in horisontal direction
32             Dy-9.49 control point error in vertical direction
33              
34             C i0 c0 x363.726 y125.738 X363.838 Y125.618 D12.34 Dx7.89 Dy-9.49
35              
36             =cut
37              
38             sub _defaults
39             {
40 1     1   3 my $self = shift;
41             }
42              
43 5     5   11 sub _valid { return '^([icxXyY]|D[xy]?)(.*)' }
44              
45             sub Identifier
46             {
47 3     3 0 5 my $self = shift;
48 3         24 return "C";
49             }
50              
51             1;
52