File Coverage

blib/lib/ColorThemeBase/Base.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	2	0.0
total	17	22	77.2

package ColorThemeBase::Base;

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

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-07-17'; # DATE
our $DIST = 'ColorThemeBase-Static'; # DIST
our $VERSION = '0.009'; # VERSION

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

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

1;
# ABSTRACT: A suitable base class for all ColorTheme::* modules

__END__