diff options
| author | dakkar <dakkar@thenautilus.net> | 2010-11-25 21:53:10 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2010-11-25 21:53:10 +0000 |
| commit | 7dcd422c45573ce803f2bb6192daab8713e89105 (patch) | |
| tree | 3a1c3ab12a37d5a1afaf7d90c08b4d48cad19937 /lib/GridFiller.pm | |
| parent | more refactoring (diff) | |
| download | qr-builder-7dcd422c45573ce803f2bb6192daab8713e89105.tar.gz qr-builder-7dcd422c45573ce803f2bb6192daab8713e89105.tar.bz2 qr-builder-7dcd422c45573ce803f2bb6192daab8713e89105.zip | |
smarter chooser
Diffstat (limited to 'lib/GridFiller.pm')
| -rw-r--r-- | lib/GridFiller.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/GridFiller.pm b/lib/GridFiller.pm index 022b14b..2b92285 100644 --- a/lib/GridFiller.pm +++ b/lib/GridFiller.pm @@ -4,7 +4,7 @@ use namespace::autoclean; use GridFiller::Types qw(GridT WordListT); use GridFiller::Status; use GridFiller::Result; -use GridFiller::Chooser; +use GridFiller::Chooser::Smarter; use Carp; with 'MooseX::Log::Log4perl'; @@ -26,7 +26,7 @@ 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}); + my $chooser = GridFiller::Chooser::Smarter->new({status => $status}); while ($status->unfilled() && $status->has_next_word()) { my $word = $status->get_next_word(); |