6 use DataExtract
::FixedWidth
;
9 use Test
::More tests
=> 1;
12 my $file = File
::Spec
->catfile( 't', 'data', 'RightAlign1Col.txt' );
13 my $fh = IO
::File
->new( $file );
14 my @lines = grep /\w/, $fh->getlines;
16 my $defw = DataExtract
::FixedWidth
->new({
20 # 'a8a5a7a7A*' In pre v0.9 releases.
21 #say $defw->unpack_string;
26 , 'Spaces on left pass - right align ready'