File Coverage

blib/lib/Term/QRCode.pm

Criterion	Covered	Total	%
statement	13	15	86.6
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	18	20	90.0

package Term::QRCode;
use strict;
use warnings;
our $VERSION = '0.01';

use Carp;
use Term::ANSIColor;
use Text::QRCode;

sub new {
    my($class, %args) = @_;
    bless {
        text_qrcode => Text::QRCode->new(delete $args{params} || +{}),
        white_text  => colored('  ', delete $args{white} || 'on_white'),
        black_text  => colored('  ', delete $args{black} || 'on_black'),
        %args,
    }, $class;
}

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

    my $arref = $self->{text_qrcode}->plot($text);
    $self->_add_blank($arref);
    $self->{stdoutbuf} = join "\n", map { join '', map { $_ eq '*' ? $self->{black_text} : $self->{white_text} } @$_ } @$arref;
}

sub _add_blank {
    my($self, $ref) = @_;
    unshift @$_, ' ' and push @$_, ' ' for @$ref;
    unshift @$ref, [(' ') x scalar @{$ref->[0]}];
    push    @$ref, [(' ') x scalar @{$ref->[0]}];
}

1;
__END__