view release on metacpan or  search on metacpan

lib/AI/Genetic/Pro.pm  view on Meta::CPAN

	if(defined $params{-font}){
    	$graph->set_title_font  ($params{-font}, 12);
    	$graph->set_x_label_font($params{-font}, 10);
    	$graph->set_y_label_font($params{-font}, 10);
    	$graph->set_legend_font ($params{-font},  8);
	}
	
    $graph->set_legend(
    	$params{legend1} || q/Max value/,
    	$params{legend2} || q/Mean value/,
    	$params{legend3} || q/Min value/,
    );

    $graph->set(
        x_label_skip        => int(($data->[0]->[-1]*4)/100),
        x_labels_vertical   => 1,

lib/AI/Genetic/Pro.pm  view on Meta::CPAN

        values_format       => ($params{-format} || '%.2f'),

        zero_axis           => 1,
        #interlaced          => 1,
        logo_position       => 'BR',
        legend_placement    => 'RT',

        bgclr               => 'white',
        boxclr              => '#FFFFAA',
        transparent         => 0,

lib/AI/Genetic/Pro.pm  view on Meta::CPAN

=item -format

Format of values, like C<sprintf> (default: I<'%.2f'>).

=item -legend1

Description of min line (default: I<Min value>).

=item -legend2

Description of min line (default: I<Mean value>).

=item -legend3

Description of min line (default: I<Max value>).

=item -width

 view release on metacpan or  search on metacpan

applications/collector-test.pl  view on Meta::CPAN

    $layer->setBorderColor(0xF0F0F0);
  } else {
    $layer->setBorderColor($perlchartdir::Transparent);
  }

  # Add a legend box
  $c->addLegend(2, $hight - 34, 0, "arial.ttf", 8)->setBackground($perlchartdir::Transparent);

  # Add a custom CDML text at the bottom right of the plot area as the logo
  $c->addText($width - 3, 92, $APPLICATION . " @ " . $BUSINESS, "arial.ttf", 8, 0x999999, 6, 270);
  $c->addText($width - 18, $hight - 21, "Interval: " . $interval . " min, " . $DEPARTMENT . " @ " . $BUSINESS . ", created on: " . scalar(localtime()) . ".", "arial.ttf", 8, 0x000000, 6, 0);

 view release on metacpan or  search on metacpan

lib/Acme/DeepThoughts.pm  view on Meta::CPAN

The face of a child can say it all, especially the mouth part of the face.
Ambition is like a frog sitting on a Venus Flytrap. The flytrap can bite and bite, but it won't bother the frog because it only has little tiny plant teeth. But some other stuff could happen and it could be like ambition.
I'd rather be rich than stupid.
If you were a poor Indian with no weapons, and a bunch of conquistadors came up to you and asked where the gold was, I don't think it would be a good idea to say, "I swallowed it. So sue me."
If you define cowardice as running away at the first sign of danger, screaming and tripping and begging for mercy, then yes, Mr. Brave man, I guess I'm a coward.
I bet one legend that keeps recurring throughout history, in every culture, is the story of Popeye.
When you go in for a job interview, I think a good thing to ask is if they ever press charges.
To me, boxing is like a ballet, except there's no music, no choreography, and the dancers hit each other.
What is it that makes a complete stranger dive into an icy river to save a solid gold baby? Maybe we'll never know.
We tend to scoff at the beliefs of the ancients. But we can't scoff at them personally, to their faces, and this is what annoys me.
If you want to be the most popular person in your class, whenever the professor pauses in his lecture, just let out a big snort and say "How do you figger that!" real loud.  Then lean back and sort of smirk.

 view release on metacpan or  search on metacpan

lib/Acme/ID/CompanyName.pm  view on Meta::CPAN

laksana
langgeng
langit
lautan
layanan
legenda
lembayung
lentera
lestari
liberti
lima

 view release on metacpan or  search on metacpan

ManekiNeko.pm  view on Meta::CPAN

5.6 Perl, so if you can use this you really are more likely to have your program run to
completion, honest guv (no warranty!).

=head1 DESCRIPTION

"According to ancient legend, this cat stood in the doorway of the
Gotoku-ji temple and raised her paw in the traditional Japanese
beckoning gesture to a feudal lord who was passing by. The feudal lord
followed the cat into the temple and instantly, a lightning bolt
struck the place where the lord had been standing. Thus the cat had
saved his life. From then on, the Maneki Neko has been considered an

 view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/magic8ball.pm  view on Meta::CPAN

Acme::MetaSyntactic::magic8ball - The magic8ball theme

=head1 DESCRIPTION

The legendary fortune-telling toy, in yet another computer
programmed incarnation, this time using Acme::MetaSyntactic!

This metasyntactic Magic 8 Ball may be nice, even useful for
important choices in your life, but be sure to ask the Public
8 Ball as well: L<http://8ball.federated.com/>.

 view release on metacpan or  search on metacpan

lib/Acme/PM/Berlin/Meetings/History.pod  view on Meta::CPAN

=over

Strassenbahn, Laubacher Str. 29, 14197 Berlin Wilmersdorf

(Das einzige und damit legendE<auml>re von ANDK organisierte Treffen :)
:( )

=back

=over

 view release on metacpan or  search on metacpan

please.pm  view on Meta::CPAN

and the null string will be returned if the random number is larger. The
efault value is C<25>.

=head2 please

C<please>, named in honor of the legendary "politesse" compilation requirement
of Intercal, is the string which will be returned when the random number is
not larger. The default value is C<' please'> and it is reccommended that
the practice of using a leading blank space be adhered to for readability,
following the examples above.