File Coverage

blib/lib/Games/Chess/Position/Unicode.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 16 87.5


line stmt bran cond sub pod time code
1             package Games::Chess::Position::Unicode;
2              
3             our $VERSION = '0.01';
4              
5 2     2   24307 use strict;
  2         4  
  2         87  
6 2     2   1950 use utf8;
  2         20  
  2         11  
7              
8 2     2   1806 use Encode ();
  2         27684  
  2         46  
9 2     2   2053 use Games::Chess ();
  0            
  0            
10              
11             use base 'Games::Chess::Position';
12              
13             sub to_text {
14             my $self = shift;
15              
16             my $pos = $self->SUPER::to_text;
17             $pos =~ tr/pnbrqkPNBRQK/♟♞♝♜♛♚♙♘♗♖♕♔/;
18              
19             return Encode::encode_utf8($pos);
20             }
21              
22             1 && q[Queens Of The Stone Age - Long Slow Goodbye];
23              
24             __END__