File Coverage

blib/lib/Chess/NumberMoves.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	6	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	37	43.2

package Chess::NumberMoves;

use 5.008;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Chess::NumberMoves ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.03';


# Preloaded methods go here.

sub from_file {

    my $file = shift;
    use FileHandle;
    my $fh = new FileHandle "< $file";
    $fh or die $!;

    my @line;

    my $line = 1;
    my $space = '  '; # 2 spaces to start with
    while (<$fh>) {

	if (/^[A-Z]/i)
	  {

	      $line == 10 and $space = ' '; # now one space
	      $_ = "$line.$space$_";
	      ++$line;
	  }

	push @line, $_;
    }

    join '', @line;

}

1;

__END__