view release on metacpan or search on metacpan
"[constraint=false,color=pink]",
"[weight=5,color=lightgrey]",
"[constraint=false,color=red]"],
["[color=lightgrey]",
"[color=cyan]",
"[weight=10,color=magenta,style=bold]",
"[color=lightgrey]",
"[weight=10,color=red,style=bold]"]
]->[$style][$_[3] || 0], ";\n";
} elsif ($type eq "text") {
print "$_[0].$_[2] -> $_[1] ($_[3])\n";
}
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/B/ppport.h view on Meta::CPAN
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/BBCode/Tag.pm view on Meta::CPAN
my @body = $tag->body();
foreach my $subtag (@body) { ...; }
# Forcibly add a new child, overriding $tag->isPermitted()
my $body = $tag->body();
my $bold = BBCode::Tag->new($tag->parser(), 'B');
push @$body, $bold;
Returns the list of child tags for this tag. In list context, returns
a list; otherwise, returns an array reference.
CAUTION: The reference returned in scalar context is a direct pointer to a
view release on metacpan or search on metacpan
lib/BBDB/Export.pm view on Meta::CPAN
#
# TODO: make this configurable
my %colors = (
info => 'green',
command => 'bold yellow',
error => 'red',
verbose => 'blue',
);
#
view release on metacpan or search on metacpan
lib/BBS/Perm/Term.pm view on Meta::CPAN
my $font = Pango::FontDescription->from_string( $conf->{font} );
$term->set_font($font);
}
if ( $conf->{color} ) {
my @elements = qw/foreground background dim bold cursor highlight/;
for (@elements) {
if ( $conf->{color}{$_} ) {
no strict 'refs';
"Gnome2::Vte::Terminal::set_color_$_"->(
$term, Gtk2::Gdk::Color->parse( $conf->{color}{$_} )
view release on metacpan or search on metacpan
lib/BBS/Universal.pm view on Meta::CPAN
['FONT DOUBLE-HEIGHT TOP', "\e#3", 'Double-Height Font Top Portion'],
['FONT DOUBLE-HEIGHT BOTTOM', "\e#4", 'Double-Height Font Bottom Portion'],
['FONT DOUBLE-WIDTH', "\e#6", 'Double-Width Font'],
['FONT DEFAULT SIZE', "\e#5", 'Default Font Size'],
['RESET', "\e[0m", 'Restore all attributes and colors to their defaults'],
['BOLD', "\e[1m", 'Set to bold text'],
['NORMAL', "\e[22m", 'Turn off all attributes'],
['FAINT', "\e[2m", 'Set to faint (light) text'],
['ITALIC', "\e[3m", 'Set to italic text'],
['UNDERLINE', "\e[4m", 'Set to underlined text'],
['DEFAULT UNDERLINE COLOR', "\e[59m", 'Set underline color to the default'],
lib/BBS/Universal.pm view on Meta::CPAN
$f = 'IP ADDRESS';
}
my $le = 11 - length($f);
$f .= ' ' x $le;
$l = colored(['green'], uc($l)) if ($l =~ /^ok/i);
$l = colored(['bold red'], 'U') . colored(['bold bright_white'], 'S') . colored(['bold bright_blue'], 'A') if ($l =~ /^us/i);
$text .= colored(['bold bright_cyan'], sprintf("%${indent}s", $f)) . " = $l\n";
} else {
$text .= "$line\n";
}
} ## end foreach my $line (@in)
} else {
lib/BBS/Universal.pm view on Meta::CPAN
$orig =~ s/$1/$new/g;
} elsif ($orig =~ /(wayland)/i) {
$new = colored(['bright_yellow'], $1);
$orig =~ s/$1/$new/g;
}
$text .= colored(['bold white'], sprintf("%${MAX}s", $env)) . ' = ' . $orig . "\n";
} ## end else [ if ($ENV{$env} =~ /\n/g...)]
} ## end foreach my $env (sort(keys ...))
$self->{'debug'}->DEBUG(['End SysOp ShowENV']);
return ($text);
} ## end sub sysop_showenv
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
lib/Badger/Class/Methods.pm view on Meta::CPAN
methods on demand.
Suppose you have a view class that renders a view of a tree. In classic
I<double dispatch> style, each node in the tree calls a method against the
view object corresponding to the node's type. A C<text> node calls
C<$view-E<gt>view_text($self)>, a C<bold> node calls
C<$view-E<gt>view_bold($self)>, and so on (we're assuming that this is some
kind of document object model we're rendering, but it could apply to
anything).
Our view methods might look something like this:
sub view_text {
my ($self, $node) = @_;
print "TEXT: $node\n";
}
sub view_bold {
my ($self, $node) = @_;
print "BOLD: $node\n";
}
This can get rather repetitive and boring if you've got lots of different
view release on metacpan or search on metacpan
lib/BalanceOfPower/Relations/Friendship.pm view on Meta::CPAN
sub status_color
{
my $self = shift;
if($self->status eq 'ALLIANCE' || $self->status eq 'INFLUENCE PRESENT')
{
return color("cyan bold");
}
if($self->status eq 'HATE')
{
return color("red bold");
}
elsif($self->status eq 'FRIENDSHIP')
{
return color("green bold");
}
else
{
return "";
}
view release on metacpan or search on metacpan
#ifndef IVSIZE
#ifdef LONGSIZE
#define IVSIZE LONGSIZE
#else
#define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#endif
#ifndef UVTYPE
#define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
share/public/css/base/prettify.css
share/public/css/base/print.css
share/public/css/blog/main.css
share/public/css/plain/main.css
share/public/images/beagle.png
share/public/images/markitup/set/bold.png
share/public/images/markitup/set/clean.png
share/public/images/markitup/set/image.png
share/public/images/markitup/set/italic.png
share/public/images/markitup/set/link.png
share/public/images/markitup/set/list-bullet.png
view release on metacpan or search on metacpan
lib/Beam/Runner/Command/list.pm view on Meta::CPAN
next unless $name;
$services{ $name } = $abstract;
}
return 0 unless keys %services;
my ( $bold, $reset ) = ( color( 'bold' ), color( 'reset' ) );
print "$bold$cname$reset" . ( eval { " -- " . $wire->get( '$summary' ) } || '' ) . "\n";
my $size = max map { length } keys %services;
print join( "\n", map { sprintf "- $bold%-${size}s$reset -- %s", $_, $services{ $_ } } sort keys %services ), "\n";
return 1;
}
#=sub _list_service
#