view release on metacpan or  search on metacpan

t/005_text.t  view on Meta::CPAN

$art->text('Test',2,0,['b1','b2','b3','b4'],[4..7]);
is_deeply([$art->result],[("  \0031,4\002T\002\003\0032,5\002e\002\003\0033,6\002s\002\003\0034,7\002t\002\003  ")]);


$art->rectangle(0,0,7,0,5,-1);
$art->text('1234',2,0,2,5);
is_deeply([$art->result],[("  \00302,051\003\00302,052\003\00302,053\003\00302,054\003  ")]);

$art->rectangle(0,0,7,0,5,-1);
$art->text('1234',2,0,'b2',5);
is_deeply([$art->result],[("  \00302,05\0021\002\003\00302,05\0022\002\003\00302,05\0023\002\003\00302,05\0024\002\003  ")]);

$art->rectangle(0,0,7,0,5,-1);
$art->text('1234',2,0,'b2',14);
is_deeply([$art->result],[("  \00302,14\0021\002\003\00302,14\0022\002\003\00302,14\0023\002\003\00302,14\0024\002\003  ")]);