File Coverage

blib/lib/ColorThemeBase/Base.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 15 17 88.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-09'; # DATE
5             our $DIST = 'ColorThemeBase-Static'; # DIST
6             our $VERSION = '0.006'; # VERSION
7              
8 1     1   364 use strict 'subs', 'vars';
  1         2  
  1         29  
9             #use warnings;
10 1     1   4 use parent 'ColorThemeBase::Constructor';
  1         1  
  1         5  
11              
12             sub get_struct {
13 1     1 0 8 my $self = shift;
14 1         2 \%{"$self->{orig_class}::THEME"};
  1         4  
15             }
16              
17             sub get_args {
18 1     1 0 9 my $self = shift;
19 1         4 $self->{args};
20             }
21              
22             1;
23             # ABSTRACT: A suitable base class for all ColorTheme::* modules
24              
25             __END__