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   69 use strict;
  10         16  
  10         319  
4 10     10   50 use warnings;
  10         20  
  10         251  
5 10     10   49 use Panotools::Script::Line::Image;
  10         14  
  10         226  
6              
7 10     10   44 use vars qw /@ISA/;
  10         20  
  10         889  
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 36 my $self = shift;
27 15         89 return "o";
28             }
29              
30             1;
31