package Games::Chess::Position::Unicode;

our $VERSION = '0.01';

use strict;
use utf8;

use Encode       ();
use Games::Chess ();

use base 'Games::Chess::Position';

sub to_text {
    my $self = shift;

    my $pos = $self->SUPER::to_text;
    $pos =~ tr/pnbrqkPNBRQK/♟♞♝♜♛♚♙♘♗♖♕♔/;

    return Encode::encode_utf8($pos);

1 && q[Queens Of The Stone Age - Long Slow Goodbye];

=head1 NAME

Games::Chess::Position::Unicode - Chess position with Unicode pieces


    use Games::Chess::Position::Unicode;
    use feature 'say';

    my $p = Games::Chess::Position::Unicode->new;
    say $p->to_text;

=head1 SEE ALSO

L<Games::Chess::Position|> - base class

L<Games::Chess::Referee> - play the game!

=head1 AUTHOR

Sergey Romanov, C<>.


Copyright (C) 2013 by Sergey Romanov.

This library is free software; you can redistribute it and/or modify
it under the terms of the Artistic License version 2.0.