more qrcode removal

master
yegg 2012-05-09 09:52:57 -04:00
parent 74a79ac1a6
commit bf94310aef
1 changed files with 0 additions and 25 deletions

View File

@ -1,25 +0,0 @@
package DDG::Goodie::QRCode;
# ABSTRACT: Generate a QR Code barcode.
use DDG::Goodie;
use HTML::Barcode::QRCode;
triggers start => 'qr', 'qrcode';
zci is_cached => 1;
zci answer_type => "qrcode";
handle query_parts => sub {
if (lc(shift) eq 'qr') {
return unless lc(shift) eq "code";
}
my $str = join(' ',@_);
my $html = HTML::Barcode::QRCode->new(text => $str)->render;
$html = qq( <div style="float:left;margin-right:10px;">$html</div> A QR code that means '$str'. <div class="clear"></div>);
return '', html => $html;
};
1;