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


line stmt bran cond sub pod time code
1             package ColorThemeBase::Base;
2              
3             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
4             our $DATE = '2020-06-19'; # DATE
5             our $DIST = 'ColorThemeBase-Static'; # DIST
6             our $VERSION = '0.007'; # VERSION
7              
8 1     1   372 use strict 'subs', 'vars';
  1         2  
  1         29  
9             #use warnings;
10 1     1   5 use parent 'ColorThemeBase::Constructor';
  1         2  
  1         4  
11              
12             sub get_struct {
13 1     1 0 10 my $self_or_class = shift;
14 1 50       4 if (ref $self_or_class) {
15 1         2 \%{"$self_or_class->{orig_class}::THEME"};
  1         5  
16             } else {
17 0         0 \%{"$self_or_class\::THEME"};
  0         0  
18             }
19             }
20              
21             sub get_args {
22 1     1 0 10 my $self = shift;
23 1         6 $self->{args};
24             }
25              
26             1;
27             # ABSTRACT: A suitable base class for all ColorTheme::* modules
28              
29             __END__