File Coverage

lib/Panotools/Script/Line/Output.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Panotools::Script::Line::Output;
2              
3 10     10   57 use strict;
  10         22  
  10         714  
4 10     10   58 use warnings;
  10         22  
  10         262  
5 10     10   57 use Panotools::Script::Line::Image;
  10         21  
  10         251  
6              
7 10     10   118 use vars qw /@ISA/;
  10         29  
  10         1055  
8             @ISA = qw /Panotools::Script::Line::Image/;
9              
10             =head1 NAME
11              
12             Panotools::Script::Line::Output - Panotools output image
13              
14             =head1 SYNOPSIS
15              
16             A single output image is described by an 'o' line
17              
18             =head1 DESCRIPTION
19              
20             Basically similar to an 'i' line.
21              
22             =cut
23              
24             sub Identifier
25             {
26 15     15 0 21 my $self = shift;
27 15         124 return "o";
28             }
29              
30             1;
31