Group
Extension

Matches 1303

perl_mlb ( I/IL/ILYAZ/os2/582+/perl_mlb.zip, ILYAZ, 2003; MetaCPAN )
perl_mlb/perl5db.pl ( view source; MetaCPAN )
nes to list (a windowful).
        $incr = $window - 1;

        # Set the start to the argument given (if there was one).
       $start = $1 if $1;

        # Back up by the context amount.
        $
perl_mlb ( I/IL/ILYAZ/os2/582+/perl_mlb.zip, ILYAZ, 2003; MetaCPAN )
perl_mlb/Pod/Text.pm ( view source; MetaCPAN )
 given could not be opened.

=item Invalid quote specification "%s"

(F) The quote specification given (the quotes option to the constructor) was
invalid.  A quote specification must be one, two, or f
perl_mlb ( I/IL/ILYAZ/os2/582+/perl_mlb.zip, ILYAZ, 2003; MetaCPAN )
perl_mlb/Pod/Man.pm ( view source; MetaCPAN )
 accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\
ndicates a bug in Pod::Man.

=item Invalid quote specification "%s"

(F) The quote specification given (the quotes option to the constructor) was
invalid.  A quote specification must be one, two, or f
perl_ste ( I/IL/ILYAZ/os2/582+/perl_ste.zip, ILYAZ, 2003; MetaCPAN )
perl_ste/MIME/Head.pm ( view source; MetaCPAN )
 MIME entities to scalars.

Also, it defaults to the I<currently-selected> filehandle if none is given
(not STDOUT!), so I<please> supply a filehandle to prevent confusion.

=cut

sub print {
    my (
perl_ste ( I/IL/ILYAZ/os2/582+/perl_ste.zip, ILYAZ, 2003; MetaCPAN )
perl_ste/Date/Manip.pod ( view source; MetaCPAN )
t be given
in the correct order.

The word "in" may be given (prepended in English) to the delta ("in 5 years")
and the word "ago" may be given (appended in English) ("6 months ago").  The
"in" is com
perl_ste ( I/IL/ILYAZ/os2/582+/perl_ste.zip, ILYAZ, 2003; MetaCPAN )
perl_ste/HTML/Formatter.pm ( view source; MetaCPAN )
consisting of the result of using the given class
to format the given HTML file according to the given (optional) options.
Internally it calls C<< SomeClass->new( ... )->format( ... ) >> on a new
HTML
nsisting of the result of using the given class
to format the given HTML source according to the given (optional)
options. Internally it calls C<< SomeClass->new( ... )->format( ... ) >>
on a new HTML
 space (dimension)

    $self->{output} = [];
}

sub end
{
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub set_version_tag {
  my($self, $html) = @_;
  
  if($html) 
perl_ste ( I/IL/ILYAZ/os2/582+/perl_ste.zip, ILYAZ, 2003; MetaCPAN )
perl_ste/HTML/FormatPS.pm ( view source; MetaCPAN )
ntscale};
}

# Determine the current font and set font-related members.
# If $plain_with_size is given (a number), use a plain font
# of that size.  Otherwise, use the font specified by the
# HTML con
y($self) = @_;
    $self->{collectingTheTitle} = 0;
    1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

my($counter, $last_state_filename);

# For use in circumstanc
f.bat $last_state_filename $filename > $filename.diff");
    }

    $last_state_filename = $filename;
    return 1;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


1;
perl_ste ( I/IL/ILYAZ/os2/582+/perl_ste.zip, ILYAZ, 2003; MetaCPAN )
perl_ste/Net/HTTP.pm ( view source; MetaCPAN )
ive> might also be added depending on the status of the
C<keep_alive> attribute.

If $content is given (and it is non-empty), then a C<Content-Length>
header is automatically added unless it was alrea
perl_ste ( I/IL/ILYAZ/os2/582+/perl_ste.zip, ILYAZ, 2003; MetaCPAN )
perl_ste/Regexp/Common/URI/pop.pm ( view source; MetaCPAN )
m $2

The I<scheme>.

=item $3

The I<user>, if given.

=item $4

The I<authentication type>, if given (could be a I<*>).

=item $5

The I<host>.

=item $6

The I<port>, if given.

=back

=head1 REFER
perl_mlb ( I/IL/ILYAZ/os2/582+/perl_mlb.zip, ILYAZ, 2003; MetaCPAN )
perl_mlb/Unicode/Collate.pm ( view source; MetaCPAN )
hangul_terminator

-- see Condition B.2. in 7.1.4 Trailing Weights, UTS #10.

If a true value is given (non-zero but should be positive),
it will be added as a terminator primary weight to the end of
perl_debug ( G/GE/GERRIT/perl_debug-5.8.1-2-srctree.tar.bz2, GERRIT, 2003; MetaCPAN )
perl_debug/perl/perl_debug-5.8.1/pod/perlform.pod ( view source; MetaCPAN )
 '^' . '<' x $cols . "\n"
             . '$entry' . "\n"
             . "\t^" . "<" x ($cols-8) . "~~\n"
             . '$entry' . "\n"
             . ".\n";
    print $format if $Debugging;
    eval 
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
 $entry
 .

Here's a little program that's somewhat like fmt(1):

 format =
 ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
 $_

 .

 $/ = '';
 while (<>) {
 
perl_debug ( G/GE/GERRIT/perl_debug-5.8.1-2-srctree.tar.bz2, GERRIT, 2003; MetaCPAN )
perl_debug/perl/perl_debug-5.8.1/pod/perldiag.pod ( view source; MetaCPAN )
id ambiguity with subsequent unary operators.

=item Runaway format

(F) Your format contained the ~~ repeat-until-blank sequence, but it
produced 200 lines at once, and the 200th line looked exactly 
perl_debug ( G/GE/GERRIT/perl_debug-5.8.1-2-srctree.tar.bz2, GERRIT, 2003; MetaCPAN )
perl_debug/perl/perl_debug-5.8.1/lib/Switch/t/given.t ( view source; MetaCPAN )
 1	{ ok(0) } else { ok(1) }
	when 2	{ ok(0) } else { ok(1) }
	when 3	{ ok(1) } else { ok(0) }
}

given (3) {

	eval { when __ <= 1 || __ > 2	{ ok(0) } } || ok(1);
	when __ <= 2 		{ ok(0) };
	when __ <


# POSSIBLE ARGS: NUMERIC, STRING, ARRAY, HASH, REGEX, CODE

# 1. NUMERIC SWITCH

for (1..3)
{
	given ($_) {
		# SELF
		when ($_) { ok(1) } else { ok(0) }

		# NUMERIC
		when 1 { ok ($_==1) } else { 
{ ok (1) } else { ok (0) }	# ; -> SUB, NOT HASH
	}
}


# 2. STRING SWITCH

for ('a'..'c','1')
{
	given ($_) {
		# SELF
		when ($_)  { ok(1) } else { ok(0) }

		# NUMERIC
		when (1)   { ok ($_ !~ /[a-c
DBIx-Wrap ( E/EM/EMRYS/DBIx-Wrap-1.00.tar.gz, EMRYS, 2003; MetaCPAN )
DBIx-Wrap/Wrap.pm ( view source; MetaCPAN )
G

DBIx::Wrap provides the public method C<error> to do simple error
handling. If an argument is given (the error), it is stored, otherwise,
the stored error is returned.

C<error> may be called as a 
perl_debug ( G/GE/GERRIT/perl_debug-5.8.1-2-srctree.tar.bz2, GERRIT, 2003; MetaCPAN )
perl_debug/perl/perl_debug-5.8.1/lib/perl5db.pl ( view source; MetaCPAN )
nes to list (a windowful).
        $incr = $window - 1;

        # Set the start to the argument given (if there was one).
       $start = $1 if $1;

        # Back up by the context amount.
        $
perl_debug ( G/GE/GERRIT/perl_debug-5.8.1-2-srctree.tar.bz2, GERRIT, 2003; MetaCPAN )
perl_debug/perl/perl_debug-5.8.1/lib/File/Find.pm ( view source; MetaCPAN )
e structure of the directory tree (including symbolic
links to directories) you might traverse a given (physical) directory
more than once (only if C<follow_fast> is in effect). 
Furthermore, deleting
perl_debug ( G/GE/GERRIT/perl_debug-5.8.1-2-srctree.tar.bz2, GERRIT, 2003; MetaCPAN )
perl_debug/perl/perl_debug-5.8.1/lib/Pod/Man.pm ( view source; MetaCPAN )
 accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\
ndicates a bug in Pod::Man.

=item Invalid quote specification "%s"

(F) The quote specification given (the quotes option to the constructor) was
invalid.  A quote specification must be one, two, or f
perl_debug ( G/GE/GERRIT/perl_debug-5.8.1-2-srctree.tar.bz2, GERRIT, 2003; MetaCPAN )
perl_debug/perl/perl_debug-5.8.1/lib/Pod/Text.pm ( view source; MetaCPAN )
 given could not be opened.

=item Invalid quote specification "%s"

(F) The quote specification given (the quotes option to the constructor) was
invalid.  A quote specification must be one, two, or f
Macro ( S/SE/SEGV/Macro-0.2.tar.gz, SEGV, 2002; MetaCPAN )
Macro/RecDescent.pm ( view source; MetaCPAN )
>>>>>>>: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix,          $errortext
~~                     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                      
ormat TRACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracerulename, '|', $tracemsg
| ~~       |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
	    $tracemsg
.

select TRACE;
$| = 1;

open (TRAC
                        |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $tracerulename, '|',				   $tracecontext
| ~~       |                                      |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
						   $tracecontext
AI-ExpertSystem-Simple ( P/PE/PETERHI/AI-ExpertSystem-Simple.1.2.tgz, PETERHI, 2003; MetaCPAN )
AI-ExpertSystem-Simple/lib/AI/ExpertSystem/Simple/Rule.pm ( view source; MetaCPAN )
me, $value) = @_;

	die "Rule->given() takes 2 arguments" if(scalar(@_) != 3);
	die "Rule->given() argument 1 (NAME) is undefined" if(!defined($name));
	die "Rule->given() argument 2 (VALUE) is undefi
 )

Returns the name of the rule.

=item state( )

Returns the current state of the rule.

=item given( NAME, VALUE )

The NAME / VALUE attribute pair is checked against the rule's conditions to see i
lied.

=item Rule->given() takes 2 arguments

When the method is called it requires two arguments. This message is given if more or less arguments were supplied.

=item Rule->given() argument 1 (NAME)

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.