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

package Term::ExtendedColor::Dzen;
use strict;
use warnings;

BEGIN {
  use Exporter;
  use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);

  $VERSION = '0.004';
  @ISA     = qw(Exporter);

  @EXPORT_OK = qw(
    fgd
    bgd
  );

  %EXPORT_TAGS = (
    attributes => [ qw(fgd bgd) ],
    all        => [ @EXPORT_OK ],
  );
}


sub fgd {
  if(!@_) {
    return "^fg()"
  }
  my ($color, $data) = @_;
  $color = "#$color" unless $color =~ m/^#/;

  return (defined($data))
    ? "^fg($color)$data^fg()"
    : "^fg($color)"
}

sub bgd {
  if(!@_) {
    return "^bg()"
  }
  my ($color, $data) = @_;
  $color = "#$color" unless $color =~ m/^#/;

  return (defined($data))
    ? "^bg($color)$data^bg()"
    : "^bg($color)"
}




1;

__END__