diff options
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"; |