File Coverage

blib/lib/Term/DataMatrix.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch	0	4	0.0
condition	0	7	0.0
subroutine	4	7	57.1
pod	2	2	100.0
total	18	47	38.3

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

use Carp;
use Term::ANSIColor;
require Barcode::DataMatrix;

sub new {
    my($class, %args) = @_;
    bless {
	# Barcode::DataMatrix doesn't take any constructor params
        text_dmcode => Barcode::DataMatrix->new(),
        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_dmcode}->barcode($text);
    $self->_add_blank($arref);
    $self->{stdoutbuf} = join "\n", map { join '', map {
	    $_ ? $self->{black_text} : $self->{white_text}
    } @$_ } @$arref;
}

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

1;
__END__