File Coverage

blib/lib/BorderStyleBase.pm

Criterion	Covered	Total	%
statement	22	33	66.6
branch	9	24	37.5
condition	0	6	0.0
subroutine	5	5	100.0
pod	0	3	0.0
total	36	71	50.7

package BorderStyleBase;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2021-02-06'; # DATE
our $DIST = 'BorderStyleBase'; # DIST
our $VERSION = '0.009'; # VERSION

use strict 'subs', 'vars';
#use warnings;
use parent 'BorderStyleBase::Constructor';

sub get_struct {
    my $self_or_class = shift;
    if (ref $self_or_class) {
        \%{"$self_or_class->{orig_class}::BORDER"};
    } else {
        \%{"$self_or_class\::BORDER"};
    }
}

sub get_args {
    my $self = shift;
    $self->{args};
}

sub get_border_char {
    my ($self, $y, $x, $n, $args) = @_;
    $n = 1 unless defined $n;

    my $bs_struct = $self->get_struct;

    my $c = $bs_struct->{chars}[$y][$x];
    if (!defined($c)) {
        if    ($y == 4 && $x == 6) { $c = $bs_struct->{chars}[4][0]  }
        elsif ($y == 4 && $x == 7) { $c = $bs_struct->{chars}[4][3]  }
        elsif ($y == 6)            { $c = $bs_struct->{chars}[0][$x] }
        elsif ($y == 7)            { $c = $bs_struct->{chars}[5][$x] }
    }
    return unless defined $c;

    if (ref $c eq 'CODE') {
        my $c2 = $c->($self, $y, $x, $n, $args);
        if (ref $c2 eq 'CODE') {
            die "Border character ($y, $x) of style $self->{orig_class} returns coderef, ".
                "which after called still returns a coderef";
        }
        return $c2;
    } else {
        $c = $c x $n if $n != 1;
        $c = "\e(0$c\e(B" if $bs_struct->{box_chars};
    }
    $c;
}

1;
# ABSTRACT: A suitable base class for most BorderStyle::* modules

__END__