#!/usr/bin/perl --
use Path::Class;
use constant THISFILE => file( __FILE__ )->absolute->stringify;
use constant THISDIR  => file( THISFILE )->dir->stringify;
use strict; use warnings;
use Tie::File;
use Fcntl 'O_RDWR', 'O_CREAT';
use Encode;
    
chdir THISDIR or die Fudge( 'chdir', THISDIR );

Main( @ARGV );
exit( 0 );

sub Main {
    binmode STDOUT;
    my $FileName = "".file( THISFILE . '.tf.utf8.txt' );
    tie
        my(@Tied),
        'Tie::File',
        $FileName,
        recsep => "\x0D\x0A",
        mode => O_RDWR | O_CREAT,
    or die Fudge( tie => $FileName );
    
    if( @Tied > 2 ){
        print 'size ', int @Tied, "\n";
        print map { decode('UTF-8', $_ ); "($_)" } @Tied;
    } else {
        push @Tied, encode('UTF-8', chr $_) for 272 .. 30000;
    }
    untie @Tied;
}


sub Fudge {
    use Errno();
    join qq/\n/,
      "Error @_",
      map { "  $_" } int( $! ) . q/ / . $!,
      int( $^E ) . q/ / . $^E,
      grep( { $!{$_} } keys %! ),
      q/ /;
}

__END__


##</code><code>##

package Tie::File::UTF8;
use parent qw[ Tie::File ];
sub TIEARRAY {
    my $class = shift;
    $class->SUPER::new(
        @_,
        recsep => "\x0D\x0A",
        discipline => ':raw',
    );
}
sub FETCH {
    my( $self, $n ) = @_;
    my $rec = $self->SUPER::FETCH( $n );
    $rec = decode( 'UTF-8', $rec );
    $rec;
}
sub STORE {
    my( $self, $n, $rec ) = @_;
    $rec = encode( 'UTF-8', $rec );
    $self->SUPER::FETCH( $n, $rec );
}