File Coverage

blib/lib/Acme/Tango.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	6	8	75.0
condition	1	2	50.0
subroutine	8	8	100.0
pod	1	1	100.0
total	45	48	93.7

#!perl
package Acme::Tango;
BEGIN {
  $Acme::Tango::VERSION = '0.07';
}

use strict;
use warnings;
use Carp qw(croak);
use Convert::Color;
use Convert::Color::RGB8;
use Convert::Color::HSV;

our %flavours = (
	apple        => 105,
	blackcurrant => 300,
	cherry       => 0,
	lemon        => 60,
	orange       => 40
);

sub drink {
	my ( $hex, $flavour ) = @_;
	$flavour ||= 'orange';

	# Pick the transformation hue
	my $new_hue = $flavours{$flavour};
	croak "Unknown flavour [$flavour]" unless defined $new_hue;

	# Sanity-check the incoming colour
	my $prefix = $hex =~ s/^#// ? '#' : '';
	croak "Please provide a valid hex colour"
		unless $hex =~ m/^([0-9a-f]{3}|[0-9a-f]{6})$/i;
	$hex =~ s/(.)/$1$1/g if length($hex) == 3;

	# Convert to HSV
	my ( $old_hue, $s, $v ) = Convert::Color::RGB8->new( $hex )->as_hsv->hsv;

	# Back to RGB
	my $new_color = Convert::Color::HSV->new( $new_hue, $s, $v )->as_rgb8->hex;

	# Back to the user!
	return uc($prefix . $new_color);
}

1;

=head1 NAME

Acme::Tango - Turn colours orange

=head1 VERSION

version 0.07

=head1 SYNOPSIS

	use Acme::Tango;

	my $hex_string = Acme::Tango::drink('#00bbff');

 # But then also

  my $hex_string = Acme::Tango::drink('#00bbcc', 'apple');

=head1 METHODS

=head2 drink

Given a hex rgb colour string (like: "#aaff4f" or "44f567" or "#fab"),
returns the hex string of the shade of orange with the same I
and I values. Unless you specifically specify that Apple or Lemon
tango are what you're after, by passing C or C as the
second argument. See:

L

=head1 EXAMPLE

C should give you an HTML segment to look
at. If you're reading this page in an HTML-compatible POD reader, you
can see the results below:

=begin html

 




87




 





 





 





 





 





 



 Orange 




88




 





 





 





 





 





 



 0000000000000000333322000000666644000000999965000000CCCC88000000FFFFAA000033003322000033333322000033666644000033999965000033CCCC88000033FFFFAA000066006644000066336644000066666644000066999965000066CCCC88000066FFFFAA000099009965000099339965000099669965000099999965000099CCCC88000099FFFFAA0000CC00CC880000CC33CC880000CC66CC880000CC99CC880000CCCCCC880000CCFFFFAA0000FF00FFAA0000FF33FFAA0000FF66FFAA0000FF99FFAA0000FFCCFFAA0000FFFFFFAA003300003322003300333322003300666644003300999965003300CCCC88003300FFFFAA003333003322003333333333333333666655333333999977333333CCCC99333333FFFFBB323366006644003366336655333366666655333366999977333366CCCC99333366FFFFBB323399009965003399339977333399669977333399999977333399CCCC99333399FFFFBB3233CC00CC880033CC33CC993333CC66CC993333CC99CC993333CCCCCC993333CCFFFFBB3233FF00FFAA0033FF33FFBB3233FF66FFBB3233FF99FFBB3233FFCCFFBB3233FFFFFFBB326600006644006600336644006600666644006600999965006600CCCC88006600FFFFAA006633006644006633336655336633666655336633999977336633CCCC99336633FFFFBB326666006644006666336655336666666666666666999988666666CCCCAA666666FFFFCC666699009965006699339977336699669988666699999988666699CCCCAA666699FFFFCC6666CC00CC880066CC33CC993366CC66CCAA6666CC99CCAA6666CCCCCCAA6666CCFFFFCC6666FF00FFAA0066FF33FFBB3266FF66FFCC6666FF99FFCC6666FFCCFFCC6666FFFFFFCC669900009965009900339965009900669965009900999965009900CCCC88009900FFFFAA009933009965009933339977339933669977339933999977339933CCCC99339933FFFFBB329966009965009966339977339966669988669966999988669966CCCCAA669966FFFFCC669999009965009999339977339999669988669999999999999999CCCCBB999999FFFFDD9999CC00CC880099CC33CC993399CC66CCAA6699CC99CCBB9999CCCCCCBB9999CCFFFFDD9999FF00FFAA0099FF33FFBB3299FF66FFCC6699FF99FFDD9999FFCCFFDD9999FFFFFFDD99CC0000CC8800CC0033CC8800CC0066CC8800CC0099CC8800CC00CCCC8800CC00FFFFAA00CC3300CC8800CC3333CC9933CC3366CC9933CC3399CC9933CC33CCCC9933CC33FFFFBB32CC6600CC8800CC6633CC9933CC6666CCAA66CC6699CCAA66CC66CCCCAA66CC66FFFFCC66CC9900CC8800CC9933CC9933CC9966CCAA66CC9999CCBB99CC99CCCCBB99CC99FFFFDD99CCCC00CC8800CCCC33CC9933CCCC66CCAA66CCCC99CCBB99CCCCCCCCCCCCCCCCFFFFEECCCCFF00FFAA00CCFF33FFBB32CCFF66FFCC66CCFF99FFDD99CCFFCCFFEECCCCFFFFFFEECCFF0000FFAA00FF0033FFAA00FF0066FFAA00FF0099FFAA00FF00CCFFAA00FF00FFFFAA00FF3300FFAA00FF3333FFBB32FF3366FFBB32FF3399FFBB32FF33CCFFBB32FF33FFFFBB32FF6600FFAA00FF6633FFBB32FF6666FFCC66FF6699FFCC66FF66CCFFCC66FF66FFFFCC66FF9900FFAA00FF9933FFBB32FF9966FFCC66FF9999FFDD99FF99CCFFDD99FF99FFFFDD99FFCC00FFAA00FFCC33FFBB32FFCC66FFCC66FFCC99FFDD99FFCCCCFFEECCFFCCFFFFEECCFFFF00FFAA00FFFF33FFBB32FFFF66FFCC66FFFF99FFDD99FFFFCCFFEECCFFFFFFFFFFFF 




89




 





 





 





 





 





 



 Lemon 




90




 





 





 





 





 





 



 0000000000000000333333000000666666000000999999000000CCCCCC000000FFFFFF000033003333000033333333000033666666000033999999000033CCCCCC000033FFFFFF000066006666000066336666000066666666000066999999000066CCCCCC000066FFFFFF000099009999000099339999000099669999000099999999000099CCCCCC000099FFFFFF0000CC00CCCC0000CC33CCCC0000CC66CCCC0000CC99CCCC0000CCCCCCCC0000CCFFFFFF0000FF00FFFF0000FF33FFFF0000FF66FFFF0000FF99FFFF0000FFCCFFFF0000FFFFFFFF003300003333003300333333003300666666003300999999003300CCCCCC003300FFFFFF003333003333003333333333333333666666333333999999333333CCCCCC333333FFFFFF323366006666003366336666333366666666333366999999333366CCCCCC333366FFFFFF323399009999003399339999333399669999333399999999333399CCCCCC333399FFFFFF3233CC00CCCC0033CC33CCCC3333CC66CCCC3333CC99CCCC3333CCCCCCCC3333CCFFFFFF3233FF00FFFF0033FF33FFFF3233FF66FFFF3233FF99FFFF3233FFCCFFFF3233FFFFFFFF326600006666006600336666006600666666006600999999006600CCCCCC006600FFFFFF006633006666006633336666336633666666336633999999336633CCCCCC336633FFFFFF326666006666006666336666336666666666666666999999666666CCCCCC666666FFFFFF666699009999006699339999336699669999666699999999666699CCCCCC666699FFFFFF6666CC00CCCC0066CC33CCCC3366CC66CCCC6666CC99CCCC6666CCCCCCCC6666CCFFFFFF6666FF00FFFF0066FF33FFFF3266FF66FFFF6666FF99FFFF6666FFCCFFFF6666FFFFFFFF669900009999009900339999009900669999009900999999009900CCCCCC009900FFFFFF009933009999009933339999339933669999339933999999339933CCCCCC339933FFFFFF329966009999009966339999339966669999669966999999669966CCCCCC669966FFFFFF669999009999009999339999339999669999669999999999999999CCCCCC999999FFFFFF9999CC00CCCC0099CC33CCCC3399CC66CCCC6699CC99CCCC9999CCCCCCCC9999CCFFFFFF9999FF00FFFF0099FF33FFFF3299FF66FFFF6699FF99FFFF9999FFCCFFFF9999FFFFFFFF99CC0000CCCC00CC0033CCCC00CC0066CCCC00CC0099CCCC00CC00CCCCCC00CC00FFFFFF00CC3300CCCC00CC3333CCCC33CC3366CCCC33CC3399CCCC33CC33CCCCCC33CC33FFFFFF32CC6600CCCC00CC6633CCCC33CC6666CCCC66CC6699CCCC66CC66CCCCCC66CC66FFFFFF66CC9900CCCC00CC9933CCCC33CC9966CCCC66CC9999CCCC99CC99CCCCCC99CC99FFFFFF99CCCC00CCCC00CCCC33CCCC33CCCC66CCCC66CCCC99CCCC99CCCCCCCCCCCCCCCCFFFFFFCCCCFF00FFFF00CCFF33FFFF32CCFF66FFFF66CCFF99FFFF99CCFFCCFFFFCCCCFFFFFFFFCCFF0000FFFF00FF0033FFFF00FF0066FFFF00FF0099FFFF00FF00CCFFFF00FF00FFFFFF00FF3300FFFF00FF3333FFFF32FF3366FFFF32FF3399FFFF32FF33CCFFFF32FF33FFFFFF32FF6600FFFF00FF6633FFFF32FF6666FFFF66FF6699FFFF66FF66CCFFFF66FF66FFFFFF66FF9900FFFF00FF9933FFFF32FF9966FFFF66FF9999FFFF99FF99CCFFFF99FF99FFFFFF99FFCC00FFFF00FFCC33FFFF32FFCC66FFFF66FFCC99FFFF99FFCCCCFFFFCCFFCCFFFFFFCCFFFF00FFFF00FFFF33FFFF32FFFF66FFFF66FFFF99FFFF99FFFFCCFFFFCCFFFFFFFFFFFF 




91




 





 





 





 





 





 



 Apple 




92




 





 





 





 





 





 



 0000000000000000330C33000000661966000000992699000000CC33CC000000FF3FFF000033000C33000033330C33000033661966000033992699000033CC33CC000033FF3FFF000066001966000066331966000066661966000066992699000066CC33CC000066FF3FFF000099002699000099332699000099662699000099992699000099CC33CC000099FF3FFF0000CC0033CC0000CC3333CC0000CC6633CC0000CC9933CC0000CCCC33CC0000CCFF3FFF0000FF003FFF0000FF333FFF0000FF663FFF0000FF993FFF0000FFCC3FFF0000FFFF3FFF003300000C33003300330C33003300661966003300992699003300CC33CC003300FF3FFF003333000C33003333333333333333663F66333333994C99333333CC59CC333333FF65FF323366001966003366333F66333366663F66333366994C99333366CC59CC333366FF65FF323399002699003399334C99333399664C99333399994C99333399CC59CC333399FF65FF3233CC0033CC0033CC3359CC3333CC6659CC3333CC9959CC3333CCCC59CC3333CCFF65FF3233FF003FFF0033FF3365FF3233FF6665FF3233FF9965FF3233FFCC65FF3233FFFF65FF326600001966006600331966006600661966006600992699006600CC33CC006600FF3FFF006633001966006633333F66336633663F66336633994C99336633CC59CC336633FF65FF326666001966006666333F66336666666666666666997299666666CC7FCC666666FF8CFF666699002699006699334C99336699667299666699997299666699CC7FCC666699FF8CFF6666CC0033CC0066CC3359CC3366CC667FCC6666CC997FCC6666CCCC7FCC6666CCFF8CFF6666FF003FFF0066FF3365FF3266FF668CFF6666FF998CFF6666FFCC8CFF6666FFFF8CFF669900002699009900332699009900662699009900992699009900CC33CC009900FF3FFF009933002699009933334C99339933664C99339933994C99339933CC59CC339933FF65FF329966002699009966334C99339966667299669966997299669966CC7FCC669966FF8CFF669999002699009999334C99339999667299669999999999999999CCA5CC999999FFB2FF9999CC0033CC0099CC3359CC3399CC667FCC6699CC99A5CC9999CCCCA5CC9999CCFFB2FF9999FF003FFF0099FF3365FF3299FF668CFF6699FF99B2FF9999FFCCB2FF9999FFFFB2FF99CC000033CC00CC003333CC00CC006633CC00CC009933CC00CC00CC33CC00CC00FF3FFF00CC330033CC00CC333359CC33CC336659CC33CC339959CC33CC33CC59CC33CC33FF65FF32CC660033CC00CC663359CC33CC66667FCC66CC66997FCC66CC66CC7FCC66CC66FF8CFF66CC990033CC00CC993359CC33CC99667FCC66CC9999A5CC99CC99CCA5CC99CC99FFB2FF99CCCC0033CC00CCCC3359CC33CCCC667FCC66CCCC99A5CC99CCCCCCCCCCCCCCCCFFD8FFCCCCFF003FFF00CCFF3365FF32CCFF668CFF66CCFF99B2FF99CCFFCCD8FFCCCCFFFFD8FFCCFF00003FFF00FF00333FFF00FF00663FFF00FF00993FFF00FF00CC3FFF00FF00FF3FFF00FF33003FFF00FF333365FF32FF336665FF32FF339965FF32FF33CC65FF32FF33FF65FF32FF66003FFF00FF663365FF32FF66668CFF66FF66998CFF66FF66CC8CFF66FF66FF8CFF66FF99003FFF00FF993365FF32FF99668CFF66FF9999B2FF99FF99CCB2FF99FF99FFB2FF99FFCC003FFF00FFCC3365FF32FFCC668CFF66FFCC99B2FF99FFCCCCD8FFCCFFCCFFD8FFCCFFFF003FFF00FFFF3365FF32FFFF668CFF66FFFF99B2FF99FFFFCCD8FFCCFFFFFFFFFFFF 




93




 





 





 





 





 





 



 Blackcurrant 




94




 





 





 





 





 





 



 0000000000000000333300330000666600660000999900990000CCCC00CC0000FFFF00FF0033003300330033333300330033666600660033999900990033CCCC00CC0033FFFF00FF0066006600660066336600660066666600660066999900990066CCCC00CC0066FFFF00FF0099009900990099339900990099669900990099999900990099CCCC00CC0099FFFF00FF00CC00CC00CC00CC33CC00CC00CC66CC00CC00CC99CC00CC00CCCCCC00CC00CCFFFF00FF00FF00FF00FF00FF33FF00FF00FF66FF00FF00FF99FF00FF00FFCCFF00FF00FFFFFF00FF3300003300333300333300333300666600663300999900993300CCCC00CC3300FFFF00FF3333003300333333333333333333666633663333999933993333CCCC33CC3333FFFF32FF3366006600663366336633663366666633663366999933993366CCCC33CC3366FFFF32FF3399009900993399339933993399669933993399999933993399CCCC33CC3399FFFF32FF33CC00CC00CC33CC33CC33CC33CC66CC33CC33CC99CC33CC33CCCCCC33CC33CCFFFF32FF33FF00FF00FF33FF33FF32FF33FF66FF32FF33FF99FF32FF33FFCCFF32FF33FFFFFF32FF6600006600666600336600666600666600666600999900996600CCCC00CC6600FFFF00FF6633006600666633336633666633666633666633999933996633CCCC33CC6633FFFF32FF6666006600666666336633666666666666666666999966996666CCCC66CC6666FFFF66FF6699009900996699339933996699669966996699999966996699CCCC66CC6699FFFF66FF66CC00CC00CC66CC33CC33CC66CC66CC66CC66CC99CC66CC66CCCCCC66CC66CCFFFF66FF66FF00FF00FF66FF33FF32FF66FF66FF66FF66FF99FF66FF66FFCCFF66FF66FFFFFF66FF9900009900999900339900999900669900999900999900999900CCCC00CC9900FFFF00FF9933009900999933339933999933669933999933999933999933CCCC33CC9933FFFF32FF9966009900999966339933999966669966999966999966999966CCCC66CC9966FFFF66FF9999009900999999339933999999669966999999999999999999CCCC99CC9999FFFF99FF99CC00CC00CC99CC33CC33CC99CC66CC66CC99CC99CC99CC99CCCCCC99CC99CCFFFF99FF99FF00FF00FF99FF33FF32FF99FF66FF66FF99FF99FF99FF99FFCCFF99FF99FFFFFF99FFCC0000CC00CCCC0033CC00CCCC0066CC00CCCC0099CC00CCCC00CCCC00CCCC00FFFF00FFCC3300CC00CCCC3333CC33CCCC3366CC33CCCC3399CC33CCCC33CCCC33CCCC33FFFF32FFCC6600CC00CCCC6633CC33CCCC6666CC66CCCC6699CC66CCCC66CCCC66CCCC66FFFF66FFCC9900CC00CCCC9933CC33CCCC9966CC66CCCC9999CC99CCCC99CCCC99CCCC99FFFF99FFCCCC00CC00CCCCCC33CC33CCCCCC66CC66CCCCCC99CC99CCCCCCCCCCCCCCCCCCFFFFCCFFCCFF00FF00FFCCFF33FF32FFCCFF66FF66FFCCFF99FF99FFCCFFCCFFCCFFCCFFFFFFCCFFFF0000FF00FFFF0033FF00FFFF0066FF00FFFF0099FF00FFFF00CCFF00FFFF00FFFF00FFFF3300FF00FFFF3333FF32FFFF3366FF32FFFF3399FF32FFFF33CCFF32FFFF33FFFF32FFFF6600FF00FFFF6633FF32FFFF6666FF66FFFF6699FF66FFFF66CCFF66FFFF66FFFF66FFFF9900FF00FFFF9933FF32FFFF9966FF66FFFF9999FF99FFFF99CCFF99FFFF99FFFF99FFFFCC00FF00FFFFCC33FF32FFFFCC66FF66FFFFCC99FF99FFFFCCCCFFCCFFFFCCFFFFCCFFFFFF00FF00FFFFFF33FF32FFFFFF66FF66FFFFFF99FF99FFFFFFCCFFCCFFFFFFFFFFFFFF 




95




 





 





 





 





 





 



 Cherry 




96




 





 





 





 





 





 



 0000000000000000333300000000666600000000999900000000CCCC00000000FFFF00000033003300000033333300000033666600000033999900000033CCCC00000033FFFF00000066006600000066336600000066666600000066999900000066CCCC00000066FFFF00000099009900000099339900000099669900000099999900000099CCCC00000099FFFF000000CC00CC000000CC33CC000000CC66CC000000CC99CC000000CCCCCC000000CCFFFF000000FF00FF000000FF33FF000000FF66FF000000FF99FF000000FFCCFF000000FFFFFF00003300003300003300333300003300666600003300999900003300CCCC00003300FFFF00003333003300003333333333333333666633333333999933333333CCCC33333333FFFF32323366006600003366336633333366666633333366999933333366CCCC33333366FFFF32323399009900003399339933333399669933333399999933333399CCCC33333399FFFF323233CC00CC000033CC33CC333333CC66CC333333CC99CC333333CCCCCC333333CCFFFF323233FF00FF000033FF33FF323233FF66FF323233FF99FF323233FFCCFF323233FFFFFF32326600006600006600336600006600666600006600999900006600CCCC00006600FFFF00006633006600006633336633336633666633336633999933336633CCCC33336633FFFF32326666006600006666336633336666666666666666999966666666CCCC66666666FFFF66666699009900006699339933336699669966666699999966666699CCCC66666699FFFF666666CC00CC000066CC33CC333366CC66CC666666CC99CC666666CCCCCC666666CCFFFF666666FF00FF000066FF33FF323266FF66FF666666FF99FF666666FFCCFF666666FFFFFF66669900009900009900339900009900669900009900999900009900CCCC00009900FFFF00009933009900009933339933339933669933339933999933339933CCCC33339933FFFF32329966009900009966339933339966669966669966999966669966CCCC66669966FFFF66669999009900009999339933339999669966669999999999999999CCCC99999999FFFF999999CC00CC000099CC33CC333399CC66CC666699CC99CC999999CCCCCC999999CCFFFF999999FF00FF000099FF33FF323299FF66FF666699FF99FF999999FFCCFF999999FFFFFF9999CC0000CC0000CC0033CC0000CC0066CC0000CC0099CC0000CC00CCCC0000CC00FFFF0000CC3300CC0000CC3333CC3333CC3366CC3333CC3399CC3333CC33CCCC3333CC33FFFF3232CC6600CC0000CC6633CC3333CC6666CC6666CC6699CC6666CC66CCCC6666CC66FFFF6666CC9900CC0000CC9933CC3333CC9966CC6666CC9999CC9999CC99CCCC9999CC99FFFF9999CCCC00CC0000CCCC33CC3333CCCC66CC6666CCCC99CC9999CCCCCCCCCCCCCCCCFFFFCCCCCCFF00FF0000CCFF33FF3232CCFF66FF6666CCFF99FF9999CCFFCCFFCCCCCCFFFFFFCCCCFF0000FF0000FF0033FF0000FF0066FF0000FF0099FF0000FF00CCFF0000FF00FFFF0000FF3300FF0000FF3333FF3232FF3366FF3232FF3399FF3232FF33CCFF3232FF33FFFF3232FF6600FF0000FF6633FF3232FF6666FF6666FF6699FF6666FF66CCFF6666FF66FFFF6666FF9900FF0000FF9933FF3232FF9966FF6666FF9999FF9999FF99CCFF9999FF99FFFF9999FFCC00FF0000FFCC33FF3232FFCC66FF6666FFCC99FF9999FFCCCCFFCCCCFFCCFFFFCCCCFFFF00FF0000FFFF33FF3232FFFF66FF6666FFFF99FF9999FFFFCCFFCCCCFFFFFFFFFFFF 




97












=end html

=head1 AUTHOR

Pete Sergeant - [e-mail]

=head1 SEE ALSO

http://www.tango.com

=head1 LICENSE

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

Tango is someone else's registered trademark - see: http://www.tango.com

=cut