File Coverage

blib/lib/Term/ExtendedColor/Dzen.pm
Criterion Covered Total %
statement 16 26 61.5
branch 0 12 0.0
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 23 47 48.9


line stmt bran cond sub pod time code
1             package Term::ExtendedColor::Dzen;
2 1     1   61851 use strict;
  1         2  
  1         25  
3 1     1   4 use warnings;
  1         1  
  1         35  
4              
5             BEGIN {
6 1     1   5 use Exporter;
  1         1  
  1         40  
7 1     1   5 use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
  1         1  
  1         110  
8              
9 1     1   4 $VERSION = '0.006';
10 1         13 @ISA = qw(Exporter);
11              
12 1         3 @EXPORT_OK = qw(
13             fgd
14             bgd
15             );
16              
17 1         206 %EXPORT_TAGS = (
18             attributes => [ qw(fgd bgd) ],
19             all => [ @EXPORT_OK ],
20             );
21             }
22              
23              
24             sub fgd {
25 0 0   0 1   if(!@_) {
26 0           return "^fg()"
27             }
28 0           my ($color, $data) = @_;
29 0 0         $color = "#$color" unless $color =~ m/^#/;
30              
31 0 0         return (defined($data))
32             ? "^fg($color)$data^fg()"
33             : "^fg($color)"
34             }
35              
36             sub bgd {
37 0 0   0 1   if(!@_) {
38 0           return "^bg()"
39             }
40 0           my ($color, $data) = @_;
41 0 0         $color = "#$color" unless $color =~ m/^#/;
42              
43 0 0         return (defined($data))
44             ? "^bg($color)$data^bg()"
45             : "^bg($color)"
46             }
47              
48              
49              
50              
51             1;
52              
53             __END__