1 files changed, 5 insertions, 4 deletions
diff --git a/script/qr-color.pl b/script/qr-color.pl
index 5841e0f..268d4c9 100644
--- a/script/qr-color.pl
+++ b/script/qr-color.pl
@@ -7,6 +7,7 @@ use TextPrinter::ColourGrid;
 use TextPrinter::StarGrid;
 use GridFiller;
 use GridFiller::Scaler;
+use GridFiller::Chooser::Smarter;
 use feature 'say';
 use open ':std',':locale';
 use Log::Log4perl qw(:easy);
@@ -29,10 +30,10 @@ my $filler=GridFiller->new({
     grid=> GridFiller::Scaler->scale($arr,2),
 });
 
-my $result = $filler->fill({
-    mode => 'longest',
-    chooser => 'Smarter',
-});
+$filler->status->mode('longest');
+$filler->fill();
+
+my $result=$filler->result;
 
 TextPrinter::ColourGrid->new->draw_whole($result->grid,1);