File Coverage

blib/lib/Text/Layout/Testing.pm

Criterion	Covered	Total	%
statement	30	37	81.0
branch	4	4	100.0
condition	13	15	86.6
subroutine	8	11	72.7
pod	1	4	25.0
total	56	71	78.8

#! perl

use strict;
use warnings;
use utf8;
use Carp;

package Text::Layout::Testing;

use parent 'Text::Layout';

use Text::Layout::FontConfig;

my $fc = Text::Layout::FontConfig->new( corefonts => 1 );

#### API
sub new {
    my ( $pkg, @data ) = @_;
    my $self = $pkg->SUPER::new;
    $self->set_font_description( $fc->from_string("Times 10") );
    $self;
}

#### API
sub render {
    my ( $self ) = @_;
    my $res = "Testing 1 2 3";
    $res;
}

#### API
sub bbox {
    my ( $self ) = @_;
    [ 0, -5, 10, 15 ];		# dummy
}

#### API
sub load_font {
    my ( $self, $description ) = @_;
    return $description;
}

# For testing.
sub _debug_text {
    my $c = $_[0]->{_content};
    for my $f ( @$c ) {
	$f->{font} = $f->{font}->{loader_data} . "(" .
	  join(",", $f->{font}->{family},
	       $f->{font}->{style},
	       $f->{font}->{weight},
	       $f->{font}->{size} // $f->{size}) . ")";
	for ( keys %$f ) {
	    $f->{$_} = sprintf("%.3f",$f->{$_})
	      if $_ eq "size" && defined($f->{$_}) && int($f->{$_}) != $f->{$_};
	    next if defined($f->{$_})
	      && ! ( !$f->{$_} || /col/ && $f->{$_} eq 'black' );
	    delete $f->{$_};
	}
    }
    return $c;
}

1;