more refactoring

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/GridFiller.pm b/lib/GridFiller.pm
index 44f0a50..022b14b 100644
--- a/lib/GridFiller.pm
+++ b/lib/GridFiller.pm
@@ -4,6 +4,7 @@ use namespace::autoclean;
 use GridFiller::Types qw(GridT WordListT);
 use GridFiller::Status;
 use GridFiller::Result;
+use GridFiller::Chooser;
 use Carp;
 
 with 'MooseX::Log::Log4perl';
@@ -25,13 +26,14 @@ sub fill {
 
     my $status = GridFiller::Status->new({grid => $self->grid, words => $self->words});
     my $result = GridFiller::Result->new({source_grid => $self->grid});
+    my $chooser = GridFiller::Chooser->new({status => $status});
 
     while ($status->unfilled() && $status->has_next_word()) {
         my $word = $status->get_next_word();
 
         $self->log->debug("Placing $word");
 
-        my ($x,$y,$dir) = $status->find_place_for($word);
+        my ($x,$y,$dir) = $chooser->find_place_for($word);
 
         if (! defined $x) {
             $self->log->debug("No place for $word");