diff options
| author | dakkar <dakkar@thenautilus.net> | 2010-12-02 20:49:22 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2010-12-02 20:49:22 +0000 |
| commit | b66368ad64ceb4d30c79d079895199cf51301af4 (patch) | |
| tree | ed810f1af1e58711bfebf8450bc6cd1a262a180d /script/qr-color.pl | |
| parent | scaler, and __DATA__ (diff) | |
| download | qr-builder-b66368ad64ceb4d30c79d079895199cf51301af4.tar.gz qr-builder-b66368ad64ceb4d30c79d079895199cf51301af4.tar.bz2 qr-builder-b66368ad64ceb4d30c79d079895199cf51301af4.zip | |
mutable objects, all status in attributes
Diffstat (limited to 'script/qr-color.pl')
| -rw-r--r-- | script/qr-color.pl | 9 |
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); |