diff options
| author | dakkar <dakkar@thenautilus.net> | 2010-11-25 21:16:35 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2010-11-25 21:16:35 +0000 |
| commit | 26f864e4b84dfae2364b6e7f42818df2b4ec5f1e (patch) | |
| tree | dafd3bddd139049acfb4eccdf56a015abc3bb3e4 /script/qr-color.pl | |
| parent | use the real data (diff) | |
| download | qr-builder-26f864e4b84dfae2364b6e7f42818df2b4ec5f1e.tar.gz qr-builder-26f864e4b84dfae2364b6e7f42818df2b4ec5f1e.tar.bz2 qr-builder-26f864e4b84dfae2364b6e7f42818df2b4ec5f1e.zip | |
big refactoring
Diffstat (limited to 'script/qr-color.pl')
| -rw-r--r-- | script/qr-color.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/script/qr-color.pl b/script/qr-color.pl index 35f22dd..8d78a2f 100644 --- a/script/qr-color.pl +++ b/script/qr-color.pl @@ -7,7 +7,7 @@ use TextPrinter::StarGrid; use GridFiller; use Path::Class; use Log::Log4perl qw(:easy); -Log::Log4perl->easy_init($INFO); +Log::Log4perl->easy_init($DEBUG); my $data='MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;'; @@ -23,9 +23,9 @@ my @words = grep { length($_) > 2 } my $filler=GridFiller->new({words=>\@words,grid=>$arr}); -$filler->fill; +my $result = $filler->fill; -TextPrinter::ColourGrid->new->draw_whole($filler->result,1); +TextPrinter::ColourGrid->new->draw_whole($result->grid,1); print "\n\n"; |