CPAN::Groonga

italic* and alternate _italic_

Some ***BOLD ITALIC*** or alternate ___BOLD ITALIC___

Some ~~strikethrough~~

## Quote
> There Is More Than One Way To Do It

> Top level
>> Nested

> Quote with styli

ncestor to all the nodes given (in
nodes $node and LIST).  In other words, it answers the question: "What
node in the tree, as low as possible, is ancestor to the nodes given
($node and LIST)?"

If th

        # we're done by specific exit code
            return $post->(@_)
              if $set[0] ~~ $exit;

            # continue monitoring
            $monitor->(@set);
        }
    }
} #_monito

atch - Smartmatch done right

=head1 VERSION

version 0.011

=head1 SYNOPSIS

 say "YES" if $value ~~ [1, 2, qr/42/];

=head1 DESCRIPTION

B<NOTE: This module is currently still experimental and the d

_tags = map { sprintf("%03d", $_) } ( 1..999 );
    for my $tag (@all_tags) {
        next if $tag ~~ @tags || $tag == '410'; # On passe, déjà traité plus haut
        my @fields = $sudoc->field($t

 sub {
    my ($self, $record) = @_;

    # Suppression des champs SUDOC dont on ne veut pas dans le catalogue
    $record->fields( [ grep { not $_->tag ~~ @todelete } @{$record->fields} ] );
};


1;

t

=head2 |>

    a |> b

Returns the

=cut

=head2 ||

    a || b

Returns the

=cut

=head2 ~~

    a ~~ b

Returns the

Aliases: I<smartmatch>

=cut

=head2 ⫶

    a ⫶ b

Returns the

=cut

=he

 my $form = $self->form($base_args);

    for my $field ( @{ $build_args->{fields} } ) {
        given ( delete $field->{field_type} ) {
            when ('submit_button') {
                $form->add

= $pdf->get_font()  # Get

    $font = $pdf->get_font(%info)  # Set

=over

If no parameters are given (C<@current = $pdf-E<gt>get_font()>), a list
(array) is returned giving the I<current> font setti

t been explicitly set, the 
current font will be the default font.

If at least one parameter is given (C<%info> hash), the font manager will
attempt to discover the appropriate font (from within the 

{previous}->{class} .= 'previous';
        $base_args->{next}->{class}     .= 'next';
    }

    given ( $build_args->{disable} ) {
        my $dis = 'disabled';
        when ('previous') {
          

@corners);
    }

    my $UU = $self->{'pdf'}->{' userUnit'};
    # scale down size if User Unit given (e.g., Letter => 0 0 8.5 11)
    if ($isName && $UU != 1.0) {
        for (my $i=0; $i<4; $i++) {

lines. 

  --rootname=string  default: "Builder" for PDF::Builder. --rootname must be 
          given (not an empty string). For example, there are also PDF::API2 
          and PDF::Report, among ot

en=();   # from StackOverflow 7651
@FILES = grep { ! $seen{$_} ++ } @FILES;
# check for no files given (found)
if (0 == @FILES) {
	die "Please specify at least one file name or glob on command line\n"

onshine::Element->new($base_args);

    for my $header ( @{ $build_args->{headers} } ) {
        given ( delete $header->{header_type} ) {
            when ('link_image') {
                $header->{c

e, $f],
        'point'     => [$x,$y]
	'repeat'    => $boolean
    )

A six element list may be given (C<matrix>) for a 
further transformation matrix:

    $a = cos(rot) * scale factor for X 
    $b

in the
indicated order>.
A matrix of 6 values may also be given (C<matrix>). The transformation matrix 
is updated. 
A C<point> may be given (a point to be multiplied [transformed] by the 
completed m

Moonshine::Element->new($base_args);

    for my $field ( @{ $build_args->{fields} } ) {
        given ( delete $field->{field_type} ) {
            when ( 'text' ) {
                $form_group->add_

t = Moonshine::Element->new($base_args);

    for my $nav ( @{ $build_args->{navs} } ) {
        given ( delete $nav->{nav_type} ) {
            when ('nav') {
                $base_element->add_child

ectable
(clickable, to bring up the annotation text). These
are four sets of C<x,y> coordinates, given (for Left-to-Right text) as the 
upper bound Upper Left to Upper Right and then the lower bound L

is marked by a straight underline.

=back

=item color => I<array of values>

If C<color> is not given (an array of numbers in the range 0.0-1.0), a 
medium gray should be used by default. 
Named colo

s
to no border ([0 0 0]), if no /Border entry is given).
Optionally, a dash pattern array may be given (C<on> length, C<off> length,
as one or more I<pairs>). The default is a solid line.

The border 

rdinates given
        @corners = page_size(@corners);
    }

    # scale down size if User Unit given (e.g., Letter => 0 0 8.5 11)
    # we have a global userUnit, and possibly a page userUnit overri

d, to define a
# rectangular outline.
# $grfx is graphics context, non-dummy if 'outline' option given (draw outline)
#
# TBD: what to do if any line too short to use? 

sub _get_column_outline {
    

cket header

    my $length = 20 + length($attributes);

    # generate new sequential id if not given (one byte size)
    my $req_id = $h{request_id} // ($request_id++) & 0xff;

    # RFC3579 Message