ANSI-Palette
view release on metacpan or search on metacpan
"requires" : {
"ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
"requires" : {
"Import::Export" : "0",
"perl" : "5.006"
}
},
"test" : {
"requires" : {
"Test::More" : "0"
}
}
},
"release_status" : "stable",
"version" : "0.05",
"x_serialization_backend" : "JSON::PP version 4.16"
}
Makefile.PL view on Meta::CPAN
'Import::Export' => 0,
#'ABC' => '1.6',
#'Foo::Bar::Module' => '5.0401',
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'ANSI-Palette-*' },
);
# Compatibility with old versions of ExtUtils::MakeMaker
unless (eval { ExtUtils::MakeMaker->VERSION('6.64'); 1 }) {
my $test_requires = delete $WriteMakefileArgs{TEST_REQUIRES} || {};
@{$WriteMakefileArgs{PREREQ_PM}}{keys %$test_requires} = values %$test_requires;
}
unless (eval { ExtUtils::MakeMaker->VERSION('6.55_03'); 1 }) {
my $build_requires = delete $WriteMakefileArgs{BUILD_REQUIRES} || {};
@{$WriteMakefileArgs{PREREQ_PM}}{keys %$build_requires} = values %$build_requires;
}
delete $WriteMakefileArgs{CONFIGURE_REQUIRES}
unless eval { ExtUtils::MakeMaker->VERSION('6.52'); 1 };
delete $WriteMakefileArgs{MIN_PERL_VERSION}
to provide version information here so that people can decide whether
fixes for the module are worth downloading.
INSTALLATION
To install this module, run the following commands:
perl Makefile.PL
make
make test
make install
SUPPORT AND DOCUMENTATION
After installing, you can find documentation for this module with the
perldoc command.
perldoc ANSI::Palette
You can also look for information at:
lib/ANSI/Palette.pm view on Meta::CPAN
Perhaps a little code snippet.
use ANSI::Palette qw/palette_256/;
palette_256();
...
use ANSI::Palette qw/ansi_256/;
background_text_256(208, 33, "This is a test for background_text_256\n");
background_bold_256(160, 33, "This is a test for background_bold_256\n");
background_underline_256(226, 33, "This is a test for background_underline_256\n");
background_italic_256(118, 33, "This is a test for background_italic_256\n");
=head1 EXPORT
A list of functions that can be exported. You can delete this section
if you don't export anything, such as for a purely object-oriented module.
=head2 reset
=cut
lib/ANSI/Palette.pm view on Meta::CPAN
208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224
224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240
240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256
=cut
=head2 text_8
print text using one of the 8 base colors.
text_8(32, "This is a test for text_8\n");
=cut
=head2 text_16
print text using one of the 16 base colors.
text_16(32, 1, "This is a test for text_16\n");
=cut
=head2 text_256
print text using one of the 256 base colors.
text_256(32, "This is a test for text_256\n");
=cut
=head2 bold_8
print bold text using one of the 8 base colors.
bold_8(32, "This is a test for bold_8\n");
=cut
=head2 bold_16
print bold text using one of the 16 base colors.
bold_16(32, 1, "This is a test for bold_16\n");
=cut
=head2 bold_256
print bold text using one of the 256 base colors.
bold_256(32, "this is a test for bold_256\n");
=cut
=head2 underline_8
print underlined text using one of the 8 base colors.
underline_8(32, "This is a test for underline_8\n");
=cut
=head2 underline_16
print underlined text using one of the 16 base colors.
underline_16(32, 1, "This is a test for underline_16\n");
=cut
=head2 underline_256
print underlined text using one of the 256 base colors.
underline_256(32, "This is a test for underline_256\n");
=cut
=head2 italic_8
print italic text using one of the 8 base colors.
italic_8(32, "This is a test for italic_8\n");
=cut
=head2 italic_16
print italic text using one of the 16 base colors.
italic_16(32, 1, "This is a test for italic_16\n");
=cut
=head2 italic_256
print italic text using one of the 256 base colors.
italic_256(32, "This is a test for italic_256\n");
=cut
=head2 background_text_8
print text using one of the 8 base colors on a background using one of the 8 base colors.
background_text_8(32, 40, "This is a test for background_text_8\n");
=cut
=head2 background_text_16
print text using one of the 16 base colors on a background using one of the 16 base colors (40-47) (100-107).
background_text_16(32, 1, 41, "This is a test for background_text_16\n");
=cut
=head2 background_text_256
print text using one of the 256 base colors on a background using one of the 256 base colors.
background_text_256(208, 33, "This is a test for background_text_256\n");
=cut
=head2 background_bold_8
print bold text using one of the 8 base colors on a background using one of the 8 base colors.
background_bold_8(32, 40, "This is a test for background_bold_8\n");
=cut
=head2 background_bold_16
print bold text using one of the 16 base colors on a background using one of the 16 base colors (40-47) (100-107).
background_bold_16(32, 1, 40, "This is a test for background_bold_16\n");
=cut
=head2 background_bold_256
print bold text using one of the 256 base colors on a background using one of the 256 base colors.
background_bold_256(208, 33, "this is a test for background_bold_256\n");
=cut
=head2 background_underline_8
print underlined text using one of the 8 base colors on a background using one of the 8 base colors.
background_underline_8(32, 40, "This is a test for background_underline_8\n");
=cut
=head2 background_underline_16
print underlined text using one of the 16 base colors using one of the 16 base colors (40-47) (100-107).
background_underline_16(32, 1, 40, "This is a test for background_underline_16\n");
=cut
=head2 background_underline_256
print underlined text using one of the 256 base colors on a background using one of the 256 base colors.
background_underline_256(208, 33, "This is a test for background_underline_256\n");
=cut
=head2 background_italic_8
print italic text using one of the 8 base colors on a background using one of the 8 base colors.
background_italic_8(32, 40, "This is a test for background_italic_8\n");
=cut
=head2 italic_16
print italic text using one of the 16 base colors on a background using one of the 16 base colors (40-47) (100-107).
background_italic_16(32, 1, 40, "This is a test for background_italic_16\n");
=cut
=head2 italic_256
print italic text using one of the 256 base colors on a background using on the 256 base colors.
background_italic_256(32, "This is a test for background_italic_256\n");
=cut
=head1 AUTHOR
LNATION, C<< <email at lnation.org> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-ansi-palette at rt.cpan.org>, or through
t/00-load.t view on Meta::CPAN
#!perl
use 5.006;
use strict;
use warnings;
use Test::More;
plan tests => 1;
BEGIN {
use_ok( 'ANSI::Palette' ) || print "Bail out!\n";
}
diag( "Testing ANSI::Palette $ANSI::Palette::VERSION, Perl $], $^X" );
t/01-colours.t view on Meta::CPAN
use Test::More;
use ANSI::Palette qw/all/;
text_8(32, "This is a test for text_8\n");
text_16(32, 1, "This is a test for text_16\n");
text_256(32, "This is a test for text_256\n");
bold_8(0, "This is a test for bold_8\n");
underline_8(0, "This is a test for underline_8\n");
italic_8(0, "This is a test for italic_8\n");
background_text_8(30, 41, "Hello\n");
background_text_16(30, 0, 101, "Hello\n");
background_bold_16(30, 0, 101, "Hello\n");
background_underline_16(30, 0, 101, "Hello\n");
background_italic_16(30, 0, 101, "Hello\n");
background_text_256(208, 33, "This is a test for background_text_256\n");
background_bold_256(208, 33, "This is a test for background_bold_256\n");
background_underline_256(208, 33, "This is a test for background_underline_256\n");
background_italic_256(208, 33, "This is a test for background_italic_256\n");
ok(1);
done_testing();
t/manifest.t view on Meta::CPAN
#!perl
use 5.006;
use strict;
use warnings;
use Test::More;
unless ( $ENV{RELEASE_TESTING} ) {
plan( skip_all => "Author tests not required for installation" );
}
my $min_tcm = 0.9;
eval "use Test::CheckManifest $min_tcm";
plan skip_all => "Test::CheckManifest $min_tcm required" if $@;
ok_manifest();
t/pod-coverage.t view on Meta::CPAN
#!perl
use 5.006;
use strict;
use warnings;
use Test::More;
unless ( $ENV{RELEASE_TESTING} ) {
plan( skip_all => "Author tests not required for installation" );
}
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
all_pod_coverage_ok();
#!perl
use 5.006;
use strict;
use warnings;
use Test::More;
unless ( $ENV{RELEASE_TESTING} ) {
plan( skip_all => "Author tests not required for installation" );
}
# Ensure a recent version of Test::Pod
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
all_pod_files_ok();
xt/boilerplate.t view on Meta::CPAN
#!perl
use 5.006;
use strict;
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
while (my $line = <$fh>) {
while (my ($desc, $regex) = each %regex) {
( run in 0.333 second using v1.01-cache-2.11-cpan-87723dcf8b7 )