File Coverage

blib/lib/Term/VT102/ZeroBased.pm
Criterion Covered Total %
statement 28 28 100.0
branch 11 18 61.1
condition n/a
subroutine 9 9 100.0
pod 6 6 100.0
total 54 61 88.5


line stmt bran cond sub pod time code
1             package Term::VT102::ZeroBased;
2 13     13   33661 use strict;
  13         30  
  13         544  
3 13     13   104 use warnings;
  13         24  
  13         507  
4 13     13   76 use base 'Term::VT102';
  13         27  
  13         16331  
5              
6             our $VERSION = '1.02';
7              
8 1     1 1 1760 sub x { shift->SUPER::x(@_) - 1 }
9 1     1 1 988 sub y { shift->SUPER::y(@_) - 1 }
10              
11             sub status {
12 1     1 1 501 my ($x, $y, @others) = shift->SUPER::status(@_);
13 1         14 return ($x - 1, $y - 1, @others);
14             }
15              
16             sub row_attr {
17 14     14 1 668 my $self = shift;
18 14 50       36 my $row = @_ ? 1 + shift : undef;
19 14 50       28 my $start = @_ ? 1 + shift : undef;
20 14 50       27 my $end = @_ ? 1 + shift : undef;
21              
22 14         58 $self->SUPER::row_attr($row, $start, $end, @_);
23             }
24              
25             sub row_text {
26 202     202 1 134756 my $self = shift;
27 202 50       1098 my $row = @_ ? 1 + shift : undef;
28 202 50       379 my $start = @_ ? 1 + shift : undef;
29 202 50       334 my $end = @_ ? 1 + shift : undef;
30              
31 202         659 $self->SUPER::row_text($row, $start, $end, @_);
32             }
33              
34             sub row_plaintext {
35 2     2 1 1471 my $self = shift;
36 2 50       9 my $row = @_ ? 1 + shift : undef;
37 2 100       6 my $start = @_ ? 1 + shift : undef;
38 2 100       7 my $end = @_ ? 1 + shift : undef;
39              
40 2         14 $self->SUPER::row_plaintext($row, $start, $end, @_);
41             }
42              
43             1;
44              
45             __END__