return sprintf "\003%d%s", $rcolors[$col % @rcolors], $nick;
}
-use base qw<Exporter>;
-
+use base qw<Exporter>;
+
our @EXPORT = ();
our %EXPORT_TAGS = ('funcs' => [ qw<dye_nick> ]);
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
$EXPORT_TAGS{'all'} = [ @EXPORT_OK ];
-
+
1;