File Coverage

blib/lib/Term/Maze.pm

Criterion	Covered	Total	%
statement	11	27	40.7
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	2	2	100.0
total	17	39	43.5

package Term::Maze;

use 5.006;
use strict;
use warnings;
use Term::ReadKey;
our $VERSION = '0.04';

require XSLoader;
XSLoader::load('Term::Maze', $VERSION);

sub run {
	my ($self, $width, $height) = @_;
	ReadMode("cbreak");
	my $maze = Term::Maze->new($width, $height);
	$maze->refresh();
	while (!$maze->at_exit) {
		my $key = ReadKey(0);
		next unless defined $key;
		if ($key =~ m/^[wasdhjkl]$/){
			$maze->move_player($key);
		}
		$maze->refresh();
	}
	print "You win!\n";
}

sub refresh {
	my ($self) = @_;
	print "\e[H\e[2J";
	my $rows = $self->get_maze_with_player();
	print "$_\n" for @$rows;
	print "Use WASD or HJKL to move. Reach the exit to win.\n";
}

1;

__END__