File Coverage

blib/lib/Data/Printer/Theme/Monokai.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             package Data::Printer::Theme::Monokai;
2             # inspired by Wimer Hazenberg's Monokai theme: monokai.nl
3 2     2   21 use strict;
  2         4  
  2         62  
4 2     2   9 use warnings;
  2         4  
  2         362  
5              
6             sub colors {
7 3     3 0 20 my %code_for = (
8             grey => '#75715E',
9             yellow => '#E6DB74',
10             violet => '#AE81FF',
11             pink => '#F92672',
12             cyan => '#66D9EF',
13             green => '#A6E22E',
14             orange => '#FD971F',
15             empty => '',
16             );
17             return {
18             array => $code_for{orange}, # array index numbers
19             number => $code_for{violet}, # numbers
20             string => $code_for{yellow}, # (or 'very_light_gray'?) # strings
21             class => $code_for{green}, # class names
22             method => $code_for{green}, # method names
23             undef => $code_for{pink}, # the 'undef' value
24             hash => $code_for{cyan}, # hash keys
25             regex => $code_for{green}, # regular expressions
26             code => $code_for{orange}, # code references
27             glob => $code_for{violet}, # globs (usually file handles)
28             vstring => $code_for{cyan}, # version strings (v5.16.0, etc)
29             lvalue => $code_for{green}, # lvalue label
30             format => $code_for{violet}, # format type
31             repeated => $code_for{pink}, # references to seen values
32             caller_info => $code_for{grey}, # details on what's being printed
33             weak => $code_for{green}, # weak references flag
34             tainted => $code_for{green}, # tainted flag
35             unicode => $code_for{green}, # utf8 flag
36             escaped => $code_for{pink}, # escaped characters (\t, \n, etc)
37             brackets => $code_for{empty}, # (), {}, []
38             separator => $code_for{empty}, # the "," between hash pairs, array elements, etc
39             quotes => $code_for{yellow},
40             unknown => $code_for{pink}, # any (potential) data type unknown to Data::Printer
41 3         46 };
42             }
43              
44             1;
45             __END__