File Coverage

blib/lib/HTML/QRCode.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package HTML::QRCode;

use strict;
use warnings;
our $VERSION = '0.01';

use Text::QRCode;
use Carp;

sub new {
    my ( $class, %args ) = @_;

    bless {
        text_qrcode => Text::QRCode->new,
        white => 'white',
        black => 'black',
        %args
    }, $class;
}

sub plot {
    my ( $self, $text ) = @_;
    croak 'Not enough arguments for plot()' unless $text;

    my $arref = $self->{text_qrcode}->plot($text);

    my ($white, $black) = ($self->{white}, $self->{black});
    my $w = "
    my $b = "

    my $html
        .= ''; ' ' 




33




 





 





 





 





 





 



     $html 




34




 





 





 





 





 





 



         .= '




35




 





 





 





 





 





 



         . join( '', map { $_ eq '*' ? $b : $w } @$_ ) . '




36




 





 





 





 





 





 



         for (@$arref); 




37




 





 





 





 





 





 



     $html .= '';
    $html
        .= '
        . join( '', map { $_ eq '*' ? $b : $w } @$_ ) . '
        for (@$arref);
    $html .= '

    return $html;
}

1;
__END__