File Coverage

blib/lib/BorderStyle/Test/Labeled.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package BorderStyle::Test::Labeled;
2              
3             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
4             our $DATE = '2020-06-19'; # DATE
5             our $DIST = 'BorderStyleBase'; # DIST
6             our $VERSION = '0.004'; # VERSION
7              
8 1     1   390 use strict;
  1         2  
  1         26  
9 1     1   4 use warnings;
  1         1  
  1         24  
10 1     1   4 use parent 'BorderStyleBase';
  1         1  
  1         4  
11              
12             our %BORDER = (
13             v => 2,
14             summary => 'A border style that uses labeled characters as described in specification, to show which character goes where',
15             chars => [ # y
16             # 0 1 2 3 <-- x
17             ['A', 'b', 'C', 'D'], # 0
18             ['E', 'F', 'G'], # 1
19             ['H', 'i', 'J', 'K'], # 2
20             ['L', 'M', 'N'], # 3
21             ['O', 'p', 'Q', 'R'], # 4
22             ['S', 't', 'U', 'V'], # 5
23             ],
24             );
25              
26             1;
27             # ABSTRACT:
28              
29             __END__