diff options
author | dakkar <dakkar@thenautilus.net> | 2011-04-20 21:31:13 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2011-04-20 21:31:13 +0100 |
commit | d336dfe3d79faf0b80b4b5fafee886b3568b0e13 (patch) | |
tree | 380a3b309aebfe1be18ffdffc1f6fc345d4933b3 /script | |
parent | cmdline opts, external data (diff) | |
download | qr-builder-d336dfe3d79faf0b80b4b5fafee886b3568b0e13.tar.gz qr-builder-d336dfe3d79faf0b80b4b5fafee886b3568b0e13.tar.bz2 qr-builder-d336dfe3d79faf0b80b4b5fafee886b3568b0e13.zip |
make objects one-shot
Diffstat (limited to 'script')
-rw-r--r-- | script/qr-color.pl | 26 |
1 files changed, 18 insertions, 8 deletions
diff --git a/script/qr-color.pl b/script/qr-color.pl index 134c887..3490126 100644 --- a/script/qr-color.pl +++ b/script/qr-color.pl @@ -4,6 +4,8 @@ use strict; use warnings; use Text::QRCode; use GridFiller; +use GridFiller::Status; +use GridFiller::Chooser::Smarter; use GridFiller::Result::Pango; use feature 'say'; use open ':std',':locale'; @@ -51,20 +53,28 @@ my $qr=Text::QRCode->new( my $arr=$qr->plot($data); -my $filler=GridFiller->new({ - words=>\@words, - grid=> $arr, -}); - my $result = GridFiller::Result::Pango->new({ source_grid => $arr, cell_size => $size, ( $font_descr ? (font_description => $font_descr) : () ), }); -$filler->result($result); -$filler->status->mode('longest'); -$filler->status->length($result->length_closure); +my $status=GridFiller::Status->new({ + words=>\@words, + grid=> $arr, + length => $result->length_closure, + mode => 'longest', +}); + +my $chooser=GridFiller::Chooser::Smarter->new({ + status => $status, +}); + +my $filler=GridFiller->new({ + status => $status, + chooser => $chooser, + result => $result, +}); $filler->fill(); |