File Coverage

blib/lib/Image/Caa/DriverTest.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	5	0.0
total	27	32	84.3

package Image::Caa::DriverTest;

use strict;
use warnings;

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

	my $self = bless {}, $class;

	return $self;
}

sub init {
	my ($self) = @_;

	$self->{color} = '';
	$self->{data} = {};
	$self->{buffer} = '';
}

sub set_color{
	my ($self, $fg, $bg) = @_;

	$self->{color} = "$fg:$bg";
	$self->{buffer} .= "($fg:$bg)";
}

sub putchar{
	my ($self, $x, $y, $outch) = @_;

	$self->{data}->{"$x,$y"} = "$self->{color}:$outch";
	$self->{buffer} .= $outch;
}

sub fini {
	my ($self) = @_;
}

1;