diff options
| author | dakkar <dakkar@thenautilus.net> | 2010-11-23 20:59:28 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2010-11-23 20:59:28 +0000 |
| commit | 2844aba0f859497e13d0168a0e0171edcfdeabca (patch) | |
| tree | 166c45d6020299eb4bfb8a244dc7c79d10265138 | |
| parent | first proof of concept (diff) | |
| download | qr-builder-2844aba0f859497e13d0168a0e0171edcfdeabca.tar.gz qr-builder-2844aba0f859497e13d0168a0e0171edcfdeabca.tar.bz2 qr-builder-2844aba0f859497e13d0168a0e0171edcfdeabca.zip | |
refactor
| -rw-r--r-- | lib/TextPrinter.pm (renamed from qr-color.pl) | 15 | ||||
| -rw-r--r-- | script/qr-color.pl | 16 |
2 files changed, 18 insertions, 13 deletions
diff --git a/qr-color.pl b/lib/TextPrinter.pm index dc8c825..d786b86 100644 --- a/qr-color.pl +++ b/lib/TextPrinter.pm @@ -1,7 +1,6 @@ -#!/usr/bin/perl +package TextPrinter; use strict; use warnings; -use Text::QRCode; use Term::ANSIColor; { @@ -77,14 +76,4 @@ sub draw_whole { draw_empty_row($arr->[0],$scale); } - -my $data='MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;'; - -my $qr=Text::QRCode->new( - level=>'H', - mode=>'8-bit', -); - -my $arr=$qr->plot($data); - -draw_whole($arr,1); +1; diff --git a/script/qr-color.pl b/script/qr-color.pl new file mode 100644 index 0000000..ecf7025 --- /dev/null +++ b/script/qr-color.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl +use strict; +use warnings; +use Text::QRCode; +use TextPrinter; + +my $data='MECARD:N:Ceccarelli,Gianni;TEL:+447564023056;EMAIL:dakkar@thenautilus.net;URL:http://www.thenautilus.net/contacts/;NICKNAME:dakkar;;'; + +my $qr=Text::QRCode->new( + level=>'H', + mode=>'8-bit', +); + +my $arr=$qr->plot($data); + +TextPrinter::draw_whole($arr,1); |