---
name: "SHARYANTO::ColorTheme::Util"
section: "3pm"
platform: "linux"
package: "libsharyanto-utils-perl"
version: "0.67-1"
release: "Debian 8 (Jessie)"
platforms: ["linux"]
url: "https://new.carta.tech/SHARYANTO::ColorTheme::Util"
---

# SHARYANTO::ColorTheme::Util(3pm)

Utility routines

## NAME

SHARYANTO::ColorTheme::Util - Utility routines

## VERSION

version 0.67

## FUNCTIONS

### create\_color\_theme\_transform($basect, $func) =\> HASH

Create a new color theme by applying transform function `$func` (code) to base theme `$basect` (hash). For example if you want to create a reddish color theme from the default theme:

```
 use Text::ANSITable;
 use SHARYANTO::Color::Util qw(mix_2_rgb_colors);
 use SHARYANTO::ColorTheme::Util qw(create_color_theme_transform);
 my $basect = Text::ANSITable->get_color_theme("Default::default_gradation");
 my $redct  = create_color_theme_transform(
     $basect, sub { mix_2_rgb_colors(shift, 'ff0000') });
 # use the color theme
 my $t = Text::ANSITable->new;
 $t->color_theme($redct);
```

## SEE ALSO

SHARYANTO

For more information about color themes, see SHARYANTO::Role::ColorTheme.

## HOMEPAGE

Please visit the project's homepage at \<https://metacpan.org/release/SHARYANTO-Utils\>.

## SOURCE

Source repository is at \<https://github.com/sharyanto/perl-SHARYANTO-Utils\>.

## BUGS

Please report any bugs or feature requests on the bugtracker website \<https://rt.cpan.org/Public/Dist/Display.html?Name=SHARYANTO-Utils\>

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.

## AUTHOR

Steven Haryanto \<stevenharyanto@gmail.com\>

## COPYRIGHT AND LICENSE

This software is copyright (c) 2014 by Steven Haryanto.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.