1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
package Data::Printer::Theme::Monokai;
# inspired by Wimer Hazenberg's Monokai theme: monokai.nl
use strict;
use warnings;
sub colors {
my %code_for = (
grey => '#75715E',
yellow => '#E6DB74',
violet => '#AE81FF',
pink => '#F92672',
cyan => '#66D9EF',
green => '#A6E22E',
orange => '#FD971F',
empty => '',
);
return {
array => $code_for{orange}, # array index numbers
number => $code_for{violet}, # numbers
string => $code_for{yellow}, # (or 'very_light_gray'?) # strings
class => $code_for{green}, # class names
method => $code_for{green}, # method names
undef => $code_for{pink}, # the 'undef' value
hash => $code_for{cyan}, # hash keys
regex => $code_for{green}, # regular expressions
code => $code_for{orange}, # code references
glob => $code_for{violet}, # globs (usually file handles)
vstring => $code_for{cyan}, # version strings (v5.16.0, etc)
lvalue => $code_for{green}, # lvalue label
format => $code_for{violet}, # format type
true => $code_for{violet}, # boolean type (true)
false => $code_for{violet}, # boolean type (false)
repeated => $code_for{pink}, # references to seen values
caller_info => $code_for{grey}, # details on what's being printed
weak => $code_for{green}, # weak references flag
tainted => $code_for{green}, # tainted flag
unicode => $code_for{green}, # utf8 flag
escaped => $code_for{pink}, # escaped characters (\t, \n, etc)
brackets => $code_for{empty}, # (), {}, []
separator => $code_for{empty}, # the "," between hash pairs, array elements, etc
quotes => $code_for{yellow},
unknown => $code_for{pink}, # any (potential) data type unknown to Data::Printer
};
}
1;
__END__
=head1 NAME
Data::Printer::Theme::Monokai - Monokai theme for DDP
=head1 SYNOPSIS
In your C<.dataprinter> file:
theme = Monokai
Or during runtime:
use DDP theme => 'Monokai';
=head1 DESCRIPTION
This module implements the Monokai theme for Data::Printer, inspired by
L<Wimer Hazenberg's original work|https://monokai.nl>.
=for html <a href="https://metacpan.org/pod/Data::Printer::Theme::Monokai"><img src="https://raw.githubusercontent.com/garu/Data-Printer/master/examples/theme-monokai.png" alt="Monokai Theme" /></a>
=head1 SEE ALSO
L<Data::Printer>
L<Data::Printer::Theme>
|
