\bsay[ (] results from the CPAN

script/pmchkver view on Meta::CPAN


    my $mods = $args{module};

    my @recs;
    for my $mod (@{$mods}) {
        #say "D:Checking $mod ...";
        my $rec = {
            module => $mod,
            cpan_version => undef,
            local_version => undef,
            installed => undef,

view all matches for this distribution

App-PP-Autolink

1 match

        (map {("--link" => $_)} @$argv_linkers),
        @$args_array,
    );

    my $method   = $self->{autolink_list_method};
    say 'Scanning dependent dynamic libs';
    my @dll_list = $self->$method;
    my $alien_sys_installs = $self->{alien_sys_installs};
    
    # two-step process to get unique paths
    my %tmp   = map {($_ => '--link')} (@dll_list, @$alien_sys_installs);
    my @links = reverse %tmp;

    if (@$alien_sys_installs) {
        say 'Alien sys dlls added: ' . join ' ', @$alien_sys_installs;
        say '';
    }
    else {
      say "No alien system dlls detected\n";
    }

    say 'Detected link list: '   . join ' ', grep {$_ ne '--link'} @links;
    say '';

    my @aliens = uniq @{$self->{alien_deps}};
    my @alien_deps = map {; '-M' => $_} @aliens;
    say 'Detected aliens: '  . join ' ', sort @aliens;
    say '';

    my @command = (
        'pp',
        @links,
        #"--cachedeps=$cache_file",
        @alien_deps,
        @args_for_pp,
    );

    say 'CMD: ' . join ' ', @command;
    system (@command) == 0
      or die "system @command failed: $?";

    return;
}

            @exe_path;
        @exe_path
          = map {path($_)->stringify}
            grep {$_ and (-e $_) and $_ !~ m|^\Q$system_root\E|i}
            @exe_path;
        #say "PATHS: " . join ' ', @exe_path;
    }
    #  what to skip for linux or mac?
    
    #  get all the DLLs in the path - saves repeated searching lower down
    my @dll_files


    #  lc is dirty and underhanded
    #  - need to find a different approach to get
    #  canonical file name while handling case,
    #  poss Win32::GetLongPathName
    say "Getting dependent DLLs";
    my @dlls = @$argv_linkers;
    push @dlls,
      $self->get_dep_dlls;

    if (CASE_INSENSITIVE_OS) {
        @dlls = map {path ($_)->stringify} map {lc $_} @dlls;
    }
    #say join "\n", @dlls;
    
    my $re_skippers = $self->get_dll_skipper_regexp();
    my %full_list;
    my %searched_for;
    my $iter = 0;

    my @missing;

  DLL_CHECK:
    while (1) {
        $iter++;
        say "DLL check iter: $iter";
        #say join ' ', @dlls;
        my ( $stdout, $stderr, $exit ) = capture {
            system( $OBJDUMP, '-p', @dlls );
        };
        if( $exit ) {
            $stderr =~ s{\s+$}{};

            grep {$_ !~ /$re_skippers/}
            uniq
            @dlls;
        
        if (!@dlls) {
            say 'no more DLLs';
            last DLL_CHECK;
        }

        my @dll2;
        foreach my $file (@dlls) {

              if any {; -e "$_/$file"} @system_paths;
            push @missing2, $file;
        }
        
        if (@missing2) {
            say STDERR "\nUnable to locate these DLLS, packed script might not work: "
                     . join  ' ', sort {$a cmp $b} @missing2;
            say '';
        }
    }

    return wantarray ? @l2 : \@l2;
}

sub _resolve_rpath_mac {
    my ($source, $target) = @_;

    say "Resolving rpath for $source wrt $target";

    #  clean up the target
    $target =~ s|\@rpath/||;

    my @results = qx /otool -l $source/;

    return $checked_paths[0];
}

sub _resolve_loader_path_mac {
    my ($source, $target) = @_;
    say "Resolving loader_path for $source wrt $target";
    my $source_path = path($source)->parent->stringify;
    $target =~ s/\@loader_path/$source_path/;
    return $target;
}

        #'/usr/local/opt/libffi/lib/libffi.6.dylib',
        #($pixbuf_query_loader,
        #find_so_files ($gdk_pixbuf_dir) ) if $pack_gdkpixbuf,
    );
    while (my $lib = shift @target_libs) {
        say "otool -L $lib";
        my @lib_arr = qx /otool -L $lib/;
        warn qq["otool -L $lib" failed\n]
          if not $? == 0;
        shift @lib_arr;  #  first result is dylib we called otool on
      DEP_LIB:

            my $dylib = $1;
            if ($dylib =~ /\@rpath/i) {
                my $orig_name = $dylib;
                $dylib = _resolve_rpath_mac($lib, $dylib);
                if (!defined $dylib) {
                    say STDERR "Cannot resolve rpath for $orig_name, dependency of $lib";
                    next DEP_LIB;
                }
            }
	    elsif ($dylib =~ /\@loader_path/) {
                my $orig_name = $dylib;

            next if $dylib =~ m{^/System};  #  skip system libs
            #next if $dylib =~ m{^/usr/lib/system};
            next if $dylib =~ m{^/usr/lib/libSystem};
            next if $dylib =~ m{^/usr/lib/};
            next if $dylib =~ m{\Qdarwin-thread-multi-2level/auto/share/dist/Alien\E};  #  another alien
            say "adding $dylib for $lib";
            push @libs_to_pack, $dylib;
            $seen{$dylib}++;
            #  add this dylib to the search set
            push @target_libs, $dylib;
        }

        @$argv_linkers,
        @bundle_list,
    );
    while (my $lib = shift @target_libs) {
        if ($lib =~ $RE_skip) {
            say "skipping $lib";
            next;
        }
        
        say "ldd $lib";
        my $out = qx /ldd $lib/;
        warn qq["ldd $lib" failed\n]
          if not $? == 0;
        
        #  much of this logic is from PAR::Packer
        #  https://github.com/rschupp/PAR-Packer/blob/04a133b034448adeb5444af1941a5d7947d8cafb/myldr/find_files_to_embed/ldd.pl#L47
        my %dlls = $out =~ /^ \s* (\S+) \s* => \s* ( \/ \S+ ) /gmx;

      DLL:
        foreach my $name (keys %dlls) {
            #say "$name, $dlls{$name}";
            if ($seen{$name} or $name =~ $RE_skip) {
                delete $dlls{$name};
                next DLL;
            }
            
            $seen{$name}++;

            my $path = path($dlls{$name})->realpath;
            
            #say "Checking $name => $path";
            
            if (not -r $path) {
                warn qq[# ldd reported strange path: $path\n];
                delete $dlls{$name};
            }

                 #$path =~ m{^(?:/usr)?/lib(?:32|64)?/}  #  system lib
                 $path =~ $RE_skip
              or $path =~ m{\Qdarwin-thread-multi-2level/auto/share/dist/Alien\E}  #  alien in share
              or $name =~ m{^lib(?:c|gcc_s|stdc\+\+)\.}  #  should already be packed?
              ) {
                #say "skipping $name => $path";
                #warn "re1" if $path =~ m{^(?:/usr)?/lib(?:32|64)/};
                #warn "re2" if $path =~ m{\Qdarwin-thread-multi-2level/auto/share/dist/Alien\E};
                #warn "re3" if $name =~ m{^lib(?:gcc_s|stdc\+\+)\.};
                delete $dlls{$name};
            }


    #my @lib_paths 
    #  = map {path($_)->absolute}
    #    grep {defined}  #  needed?
    #    @Config{qw /installsitearch installvendorarch installarchlib/};
    #say join ' ', @lib_paths;
    my @lib_paths
      = reverse sort {length $a <=> length $b}
        map {path($_)->absolute}
        @INC;

    my $paths = join '|', map {quotemeta} map {path($_)->stringify} @lib_paths;
    my $inc_path_re = qr /^($paths)/i;
    #say $inc_path_re;

    #say "DEPS HASH:" . join "\n", keys %$deps_hash;
    my %dll_hash;
    my @aliens;
    foreach my $package (keys %$deps_hash) {
        my $details = $deps_hash->{$package};
        my @uses = @{$details->{uses} // []};

        $package =~ s/\.pm$//;
        if (!$INC{$package_inc_name}) {
            #  if the execute flag was off then try to load the package
            eval "require $package";
            if ($@) {
                say "Unable to require $package, skipping (error is $@)";
                next ALIEN;
            }
        }
        # some older aliens might do different things
        next ALIEN if !$package->isa ('Alien::Base');  
        say "Finding dynamic libs for $package";
        foreach my $path ($package->dynamic_libs) {
    # warn $path;
            $dll_hash{$path}++;
        }
        if ($package->install_type eq 'system') {

}

sub process_gdk_pixbuf_loaders {
    my ($self) = @_;

    say 'Scanning gdk-pixbuf-query-loaders result';

    my $ql = which 'gdk-pixbuf-query-loaders';

    return if !$ql;

view all matches for this distribution

App-PPIUtils

1 match

lib/App/PPIUtils.pm view on Meta::CPAN

                if ($sorter_meta->{compares_record}) {
                    my $rec0 = [$children[$_[0]]->name, $_[0]];
                    my $rec1 = [$children[$_[1]]->name, $_[1]];
                    $sorter->($rec0, $rec1);
                } else {
                    #say "D: ", $children[$_[0]]->name, " vs ", $children[$_[1]]->name;
                    $sorter->($children[$_[0]]->name, $children[$_[1]]->name);
                }
            },
            sub { $children[$_]->isa('PPI::Statement::Sub') && $children[$_]->name },
            0..$#children);

view all matches for this distribution

App-PRT

1 match

lib/App/PRT/Command/IntroduceVariables.pm view on Meta::CPAN

sub execute {
    my ($self, $file, $out) = @_;

    my $variables = $self->collect_variables($file);
    for my $variable (@$variables) {
        say $out $variable;
    }
}

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

view all matches for this distribution

App-PTP

1 match

script/ptp view on Meta::CPAN

the input files are entirely loaded in memory at the same time.

Handling of the user supplied code might differ depending on whether the
B<--safe> option is in effect or not. In particular, currently any exception
thrown by user code in safe mode is entirely ignored. While this is a bug, one
could say that this contribute to prevent that anything unpredictable will
happen to the calling code...

=head1 AUTHOR

This program has been written by L<Mathias Kende|mailto:mathias@cpan.org>.

view all matches for this distribution

App-Padadoy

1 match

lib/App/Padadoy.pm view on Meta::CPAN

sub _msg (@) { 
    my $fh = shift;
    my $caller = ref($_[0]) ? ${(shift)} :
            ((caller(2))[3] =~ /^App::Padadoy::(.+)/ ? $1 : '');
    my $text  = shift;
    say $fh (($caller ? "[$caller] " : "") 
        . (@_ ? sprintf($text, @_) : $text));
}

sub fail (@) {
    _msg(*STDERR, @_);

lib/App/Padadoy.pm view on Meta::CPAN

        $self->{user}, hostname, $self->{repository});
}


sub config {
    say shift->_config;
}

sub _config {
    my $self = shift;
    Dump( { map { $_ => $self->{$_} // '' } @configs } );

lib/App/Padadoy.pm view on Meta::CPAN

    run('tail','-F', map { catfile($logs,$_) } qw(error.log access.log));
}


sub version {
    say 'This is padadoy version '.($App::Padadoy::VERSION || '??');
    exit;
}

1;

view all matches for this distribution

App-PaloAlto-PolicyVerify

1 match

lib/App/PaloAlto/PolicyVerify.pm view on Meta::CPAN

            next unless $result;

            # Add the result to the cache if needed.
            $run_cache{$flow_cache_key} //= $result;

            say $result->rulename . ','
              . $result->action . ','
              . $result->index . ',';
        }

    }

view all matches for this distribution

App-Pastebin-Create2

1 match

bin/pastebin-create2 view on Meta::CPAN

    desc    => $desc_input
  )
  or die "You need at least to declare --text flag. Debug-message-> "
  . $bin->error;

say "Your paste URL: $bin";

__END__

=pod

view all matches for this distribution

App-Pastebin-sprunge

2 results

lib/App/Pastebin/sprunge.pm view on Meta::CPAN

    my $lang = shift;

    if ($self->{paste_id}) {    # READ
        $self->{reader}->retrieve($self->{paste_id})
            or die "Reading paste $self->{paste_id} failed: ", $self->{reader}->error();
        say $self->{reader};
    }
    else {                      # WRITE
        my $text = do { local $/; <STDIN> };
        $self->{writer}->paste($text, lang => $lang)
            or die 'Paste failed: ', $self->{writer}->error();
        say $self->{writer};
    }
    return;
}

1;

view all matches for this distribution

App-PerinciUtils

2 results

script/peri-htserve view on Meta::CPAN

            for my $pkg (@pkgs) {
                my $pkgp = $pkg; $pkgp =~ s!::!/!g;
                push @ep_urls, $root_url . "api/$pkgp/";
            }
        }
        say "Try accessing one of the following URLs with curl/riap/etc:";
        print map { "- $_\n" } @ep_urls;
        say "";
    }

    push @argv, "-D" if $args{daemonize};
    my $runner = Plack::Runner->new;
    $runner->parse_options(@argv);

view all matches for this distribution

App-PerlGlue

1 match

    my $cmd = shift @argv // 'help';

    return _help() if $cmd eq 'help' || $cmd eq '--help' || $cmd eq '-h';

    if ($cmd eq 'version' || $cmd eq '--version' || $cmd eq '-v') {
        say "perlglue $VERSION";
        return 0;
    }

    return _cmd_command_help($cmd)            if @argv && ($argv[0] eq '--help' || $argv[0] eq '-h');

    my $fh = _open_in($file);
    my @rows = _parse_csv_rows($fh);
    my $header = shift @rows // [];
    my %idx; @idx{@$header} = (0 .. $#$header);

    say join ',', @wanted;
    for my $r (@rows) {
        my @out = map { defined $idx{$_} ? $r->[ $idx{$_} ] : '' } @wanted;
        say join ',', @out;
    }
    return 0;
}

sub _cmd_convert {

    my @rows = _parse_csv_rows($fh);
    my $header = shift @rows // [];
    for my $r (@rows) {
        my %obj;
        @obj{@$header} = @$r;
        say encode_json(\%obj);
    }
    return 0;
}

sub _cmd_jsonl {

        local $_ = decode_json($line);
        if (defined $expr) {
            my $ok = eval $expr;
            next unless $ok;
        }
        say encode_json($_);
    }
    return 0;
}

sub _cmd_template {

    my $header = shift @rows // [];
    for my $r (@rows) {
        my %obj;
        @obj{@$header} = @$r;
        (my $out = $tpl) =~ s/\{\{\s*(\w+)\s*\}\}/defined $obj{$1} ? $obj{$1} : ''/ge;
        say $out;
    }
    return 0;
}

sub _cmd_rename {

        eval $expr;
        $new = $_;
        next if $new eq $old;
        die "Target exists: $new\n" if -e $new;
        rename $old, $new or die "rename $old -> $new failed: $!";
        say "$old -> $new";
    }
    return 0;
}

sub _cmd_command_help {

        version  => 'perlglue version',
        help     => 'perlglue help',
    );

    if (exists $usage{$cmd}) {
        say $usage{$cmd};
        return 0;
    }

    warn "Unknown command: $cmd\n";
    return 2;

view all matches for this distribution

App-PerlGzipScript

1 match

script/perl-gzip-script view on Meta::CPAN

my $out = \*STDOUT;
if ($in_place) {
    $out = File::Temp->new(DIR => File::Basename::dirname($script))
}

$out->say($shebang);
$out->print(<<'EOF');
use IO::Uncompress::Gunzip ();
IO::Uncompress::Gunzip::gunzip \*DATA, \my $script, AutoClose => 1 or die $IO::Uncompress::Gunzip::GunzipError;
eval '#line 1 "' . __FILE__ . "\"\n" . $script;
die $@ if $@;

view all matches for this distribution

App-PerlbrewUtils

1 match

lib/App/PerlbrewUtils.pm view on Meta::CPAN

        $v =~ s/^v?(\d+).+/v$1/;
    } elsif ($spec =~ s/^v?(\d+\.\d+)$/v$1/) {
        $v =~ s/^v?(\d+\.\d+).+/v$1/;
    }
    my $res = version->parse($v) > version->parse($spec);
    #say "D:comparing version $v vs $spec: $res";
    $res;
}

sub _version_lt {
    my ($v, $spec) = @_;

lib/App/PerlbrewUtils.pm view on Meta::CPAN

        $v =~ s/^v?(\d+).+/v$1/;
    } elsif ($spec =~ s/^v?(\d+\.\d+)$/v$1/) {
        $v =~ s/^v?(\d+\.\d+).+/v$1/;
    }
    my $res = version->parse($v) < version->parse($spec);
    #say "D:comparing version $v vs $spec: $res";
    $res;
}

sub _version_dev {
    my ($v) = @_;

lib/App/PerlbrewUtils.pm view on Meta::CPAN

}

sub _filter_perl {
    my ($perl, $args) = @_;

    #say "D:filtering perl $perl->{version} ...";

  FILTER_INCLUDE:
    {
        last unless $args->{include} && @{ $args->{include} };
        for (@{ $args->{include} }) {

view all matches for this distribution

App-Phoebe

19 results

    if (not open(my $fh, ">>:encoding(UTF-8)", $index)) {
      $log->error("Cannot write index $index: $!");
      result($stream, "59", "Unable to write index");
      return;
    } else {
      say $fh $id;
      close($fh);
    }
  }
  my $changes = "$dir/changes.log";
  if (not open(my $fh, ">>:encoding(UTF-8)", $changes)) {
    $log->error("Cannot write log $changes: $!");
    result($stream, "59", "Unable to write log");
    return;
  } else {
    my $peerhost = $stream->handle->peerhost;
    say $fh join("\x1f", scalar(time), $id, $revision + 1, bogus_hash($peerhost));
    close($fh);
  }
  mkdir "$dir/page" unless -d "$dir/page";
  eval { write_text($file, $text) };
  if ($@) {

    $log->error("Cannot write log $changes: $!");
    result($stream, "59", "Unable to write log");
    return;
  } else {
    my $peerhost = $stream->handle->peerhost;
    say $fh join("\x1f", scalar(time), $id, "ðŸ–¹", bogus_hash($peerhost));
    close($fh);
  }
  $log->info("Deleted page $id");
  result($stream, "30", to_url($stream, $host, $space, "page/$id"));
}

# being: the timestamp (as returned by time); the page or file name; the page
# revision or zero if a file; the code to represent the person that made the
# change, represented as a string of octal digits that will be fed to the
# colourize sub; the host, and the spaces, if any; and a boolean if space and
# page or file name should both be shown (up to seven arguments). Finally, the
# optional argument $kept is a code reference to say whether an old revision
# actually exists. If not, there's no point in showing a diff link. The default
# implementation checks for the existence of the keep file. $filter describes
# how changes are to be filtered: 'latest' means that only the latest change
# will be shown, i.e. a link to current revision. The default is to show all
# changes. $style is "coloured" or "fancy" or undefined to indicate what sort of

    $log->error("Cannot log $changes: $!");
    result($stream, "59", "Unable to write log");
    return;
  } else {
    my $peerhost = $stream->handle->peerhost;
    say $fh join("\x1f", scalar(time), $id, 0, bogus_hash($peerhost));
    close($fh);
  }
  mkdir "$dir/file" unless -d "$dir/file";
  eval { write_binary($file, $data) };
  if ($@) {

    $log->error("Cannot write log $changes: $!");
    result($stream, "59", "Unable to write log");
    return;
  } else {
    my $peerhost = $stream->handle->peerhost;
    say $fh join("\x1f", scalar(time), $id, "ðŸ–»", bogus_hash($peerhost));
    close($fh);
  }
  success($stream);
  $stream->write("# $id\n");
  $stream->write("The file was deleted.\n");

view all matches for this distribution

App-Photobear

3 results

lib/App/Photobear.pm view on Meta::CPAN

}

sub writeconfig {
    my ($filename, $config) = @_;
    open my $fh, '>', $filename or Carp::croak "Can't open $filename: $!";
    say $fh '[photobear]';
    foreach my $key (keys %$config) {
        print $fh "$key=$config->{$key}\n";
    }
}

lib/App/Photobear.pm view on Meta::CPAN

            "mode":"$mode"
        }');
    $cmd =~ s/\n//g;
    
    if ($ENV{'DEBUG'}) {
        say STDERR "[DEBUG] $cmd";
    }

    my $output = $ENV{'DEBUG'} ? $TEST_ANSWER : `$cmd`;
    if ($? == -1) {
        Carp::croak("[photobear]", "Failed to execute: $!\n");

view all matches for this distribution

App-Physics-ParticleMotion

2 results

lib/App/Physics/ParticleMotion.pm view on Meta::CPAN

=head1 DESCRIPTION

tk-motion (and its implementation App::Physics::ParticleMotion)
is a tool to create particle simulations from any number of
correlated second order differential equations. From a more mathematical
point of view, one could also say it helps visualize the numeric solution
of such differential equations.

The program uses a 4th-order Runge-Kutta integrator to find the numeric
solution of the specified differential equations. We will walk through
an example configuration file step by step to show how the process works.

view all matches for this distribution

App-PickRandomLines

4 results

#sub _add_unquoted {
#    no warnings 'uninitialized';
#
#    my ($word, $is_cur_word, $after_ws) = @_;
#
#    #say "D:add_unquoted word=$word is_cur_word=$is_cur_word after_ws=$after_ws";
#
#    $word =~ s!^(~)(\w*)(/|\z) |  # 1) tilde  2) username  3) optional slash
#               \\(.)           |  # 4) escaped char
#               \$(\w+)            # 5) variable name
#              !

#                  ((?: \\\\|\\"|\\'|\\=|\\\s|[^"'@><=|&\(:\s])+)(\s*) |  #  8) unquoted word  9) space after
#                  ([\@><=|&\(:]+) |                                      #  10) non-whitespace word-breaking characters
#                  \s+
#              )!
#                  $pos += length($1);
#                  #say "D: \$1=<$1> \$2=<$3> \$3=<$3> \$4=<$4> \$5=<$5> \$6=<$6> \$7=<$7> \$8=<$8> \$9=<$9> \$10=<$10>";
#                  #say "D:<$1> pos=$pos, point=$point, cword=$cword, after_ws=$after_ws";
#
#                  if ($2 || $5 || defined($8)) {
#                      # double-quoted/single-quoted/unquoted chunk
#
#                      if (not(defined $cword)) {
#                          $pos_min_ws = $pos - length($2 ? $4 : $5 ? $7 : $9);
#                          #say "D:pos_min_ws=$pos_min_ws";
#                          if ($point <= $pos_min_ws) {
#                              $cword = @words - ($after_ws ? 0 : 1);
#                          } elsif ($point < $pos) {
#                              $cword = @words + 1 - ($after_ws ? 0 : 1);
#                              $add_blank = 1;

#                      if ($after_ws) {
#                          $is_cur_word = defined($cword) && $cword==@words;
#                      } else {
#                          $is_cur_word = defined($cword) && $cword==@words-1;
#                      }
#                      #say "D:is_cur_word=$is_cur_word";
#                      $chunk =
#                          $2 ? _add_double_quoted($3, $is_cur_word) :
#                              $5 ? _add_single_quoted($6) :
#                              _add_unquoted($8, $is_cur_word, $after_ws);
#                      if ($opts && $opts->{truncate_current_word} &&
#                              $is_cur_word && $pos > $point) {
#                          $chunk = substr(
#                              $chunk, 0, length($chunk)-($pos_min_ws-$point));
#                          #say "D:truncating current word to <$chunk>";
#                      }
#                      if ($after_ws) {
#                          push @words, $chunk;
#                      } else {
#                          $words[-1] .= $chunk;

#
#  WORKAROUND_WITH_WORDBREAKS:
#    # this is a workaround. since bash breaks words using characters in
#    # $COMP_WORDBREAKS, which by default is "'@><=;|&(: this presents a problem
#    # we often encounter: if we want to provide with a list of strings
#    # containing say ':', most often Perl modules/packages, if user types e.g.
#    # "Text::AN" and we provide completion ["Text::ANSI"] then bash will change
#    # the word at cursor to become "Text::Text::ANSI" since it sees the current
#    # word as "AN" and not "Text::AN". the workaround is to chop /^Text::/ from
#    # completion answers. btw, we actually chop /^text::/i to handle
#    # case-insensitive matching, although this does not have the ability to

#
#  WORD:
#    while (1) {
#        last WORD if ++$i >= @words;
#        my $word = $words[$i];
#        #say "D:i=$i, word=$word, ~~\@words=",~~@words;
#
#        if ($word eq '--' && $i != $cword) {
#            $expects[$i] = {separator=>1};
#            while (1) {
#                $i++;

#                $expects[$i]{nth} = $nth;
#                _mark_seen(\%seen_opts, $opt, \%opts);
#
#                my $min_vals = $opthash->{parsed}{min_vals};
#                my $max_vals = $opthash->{parsed}{max_vals};
#                #say "D:min_vals=$min_vals, max_vals=$max_vals";
#
#                # detect = after --opt
#                if ($i+1 < @words && $words[$i+1] eq '=') {
#                    $i++;
#                    $expects[$i] = {separator=>1, optval=>$opt, word=>'', nth=>$nth};

#    }
#
#    my $exp = $expects[$cword];
#    my $word = $exp->{word} // $words[$cword];
#
#    #use DD; say "D:opts: "; dd \%opts;
#    #use DD; print "D:words: "; dd \@words;
#    #say "D:cword: $cword";
#    #use DD; print "D:expects: "; dd \@expects;
#    #use DD; print "D:seen_opts: "; dd \%seen_opts;
#    #use DD; print "D:parsed_opts: "; dd \%parsed_opts;
#    #use DD; print "D:exp: "; dd $exp;
#    #use DD; say "D:word:<$word>";
#
#    my @answers;
#
#    # complete option names
#    {

#            !$exp->{do_complete_optname};
#        if ($exp->{comp_result}) {
#            push @answers, $exp->{comp_result};
#            last;
#        }
#        #say "D:completing option names";
#        my $opt = $exp->{optname};
#        my @o;
#        my @osumms;
#        my $o_has_summaries;
#        for my $optname (@optnames) {

#    }
#
#    # complete option value
#    {
#        last unless exists($exp->{optval});
#        #say "D:completing option value";
#        my $opt = $exp->{optval};
#        my $opthash; $opthash = $opts{$opt} if $opt;
#        my %compargs = (
#            %$extras,
#            type=>'optval', words=>\@words, cword=>$args{cword},

#
#    # extract leaf path, because this one is treated differently
#    my $leaf = pop @intermediate_dirs;
#    @intermediate_dirs = ('') if !@intermediate_dirs;
#
#    #say "D:starting_path=<$starting_path>";
#    #say "D:intermediate_dirs=[",join(", ", map{"<$_>"} @intermediate_dirs),"]";
#    #say "D:leaf=<$leaf>";
#
#    # candidate for intermediate paths. when doing case-insensitive search,
#    # there maybe multiple candidate paths for each dir, for example if
#    # word='../foo/s' and there is '../foo/Surya', '../Foo/sri', '../FOO/SUPER'
#    # then candidate paths would be ['../foo', '../Foo', '../FOO'] and the

#            last;
#        }
#
#        my @new_candidate_paths;
#        for my $dir (@dirs) {
#            #say "D:  intdir list($dir)";
#            my $listres = $list_func->($dir, $intdir, 1);
#            next unless $listres && @$listres;
#            #use DD; say "D: list res=", DD::dump($listres);
#            my $matches = Complete::Util::complete_array_elem(
#                word => $intdir, array => $listres,
#            );
#            my $exact_matches = [grep {
#                $_ eq $intdir || $_ eq $intdir_with_path_sep
#            } @$matches];
#            #use Data::Dmp; say "D: word=<$intdir>, matches=", dmp($matches), ", exact_matches=", dmp($exact_matches);
#
#            # when doing exp_im_path, check if we have a single exact match. in
#            # that case, don't use all the candidates because that can be
#            # annoying, e.g. you have 'a/foo' and 'and/food', you won't be able
#            # to complete 'a/f' because bash (e.g.) will always cut the answer
#            # to 'a' because the candidates are 'a/foo' and 'and/foo' (it will
#            # use the shortest common string which is 'a').
#            #say "D:  num_exact_matches: ", scalar @$exact_matches;
#            if (!$exp_im_path || @$exact_matches == 1) {
#                $matches = $exact_matches;
#            }
#
#            for (@$matches) {

#                    "$dir$_" : "$dir$path_sep$_";
#                push @new_candidate_paths, $p;
#            }
#
#        }
#        #say "D:  candidate_paths=[",join(", ", map{"<$_>"} @new_candidate_paths),"]";
#        return [] unless @new_candidate_paths;
#        @candidate_paths = @new_candidate_paths;
#    }
#    log_trace "[comppath] candidate paths: %s", \@candidate_paths if $ENV{COMPLETE_PATH_TRACE};
#
#    for my $dir (@candidate_paths) {
#        #say "D:opendir($dir)";
#        my $listres = $list_func->($dir, $leaf, 0);
#        next unless $listres && @$listres;
#        my $matches = Complete::Util::complete_array_elem(
#            word => $leaf, array => $listres,
#        );

#                  DIG_LEAF:
#                    {
#                        my $p2 = _dig_leaf($p, $list_func, $is_dir_func, $filter_func, $path_sep);
#                        last DIG_LEAF if $p2 eq $p;
#                        $p = $p2;
#                        #say "D:p=$p (dig_leaf)";
#
#                        # check again
#                        if ($p =~ $re_ends_with_path_sep) {
#                            $is_dir = 1;
#                        } else {

#                    }
#                    $editdists{$chopped} = $d;
#                } else {
#                    $d = $editdists{$chopped};
#                }
#                #say "D: d($word,$chopped)=$d (maxd=$maxd)";
#                next unless $d <= $maxd;
#                push @words, $array[$i];
#                push @wordsumms, $arraysumms[$i] if $summaries;
#                next ELEM;
#            }

#    v => 1.1,
#    summary => 'Given two or more answers, combine them into one',
#    description => <<'_',
#
#This function is useful if you want to provide a completion answer that is
#gathered from multiple sources. For example, say you are providing completion
#for the Perl tool <prog:cpanm>, which accepts a filename (a tarball like
#`*.tar.gz`), a directory, or a module name. You can do something like this:
#
#    combine_answers(
#        complete_file(word=>$word),

# combine_answers($answers, ...) -> hash
#
#Given two or more answers, combine them into one.
#
#This function is useful if you want to provide a completion answer that is
#gathered from multiple sources. For example, say you are providing completion
#for the Perl tool L<cpanm>, which accepts a filename (a tarball like
#C<*.tar.gz>), a directory, or a module name. You can do something like this:
#
# combine_answers(
#     complete_file(word=>$word),

#in list context. In scalar context, you can differentiate path from module
#source because the path is returned as a scalar reference. So to get the path:
#
# $source_or_pathref = module_source("Foo/Bar.pm", {find_prefix=>1});
# if (ref $source_or_pathref eq 'SCALAR') {
#     say "Path is ", $$source_or_pathref;
# } else {
#     say "Module source code is $source_or_pathref";
# }
#
#=item * all
#
#Bool. If set to true, then instead of stopping after one source is found, the

#
#        convert_wildcard_to_sql
#        convert_wildcard_to_re
#    );
#
#    say 1 if contains_wildcard(""));      # ->
#    say 1 if contains_wildcard("ab*"));   # -> 1
#    say 1 if contains_wildcard("ab\\*")); # ->
#
#    say 1 if contains_glob_wildcard("ab*"));   # -> 1
#    say 1 if contains_glob_wildcard("ab?"));   # ->
#    say 1 if contains_qmark_wildcard("ab?"));  # -> 1
#
#    say convert_wildcard_to_sql("foo*");  # -> "foo%"
#
#    say convert_wildcard_to_re("foo*");   # -> "foo.*"
#
#=head1 DESCRIPTION
#
#=for Pod::Coverage ^(qqquote)$
#

view all matches for this distribution

App-PigLatin

1 match

mild image he saw in the fountain, plunged into it and was drowned.

But that same image, we ourselves see in all rivers and oceans.

It is the image of the ungraspable phantom of life; and this is the key

to it all.



Now, when I say that I am in the habit of going to sea whenever I begin

to grow hazy about the eyes, and begin to be over conscious of my lungs,

I do not mean to have it inferred that I ever go to sea as a passenger.

For to go as a passenger you must needs have a purse, and a purse is but

a rag unless you have something in it.  Besides, passengers get sea-sick--

grow quarrelsome--don't sleep of nights--do not enjoy themselves much,

care of ships, barques, brigs, schooners, and what not.  And as for

going as cook,--though I confess there is considerable glory in that,

a cook being a sort of officer on ship-board--yet, somehow, I never

fancied broiling fowls;--though once broiled, judiciously buttered,

and judgmatically salted and peppered, there is no one who will speak more

respectfully, not to say reverentially, of a broiled fowl than I will.

It is out of the idolatrous dotings of the old Egyptians upon broiled

ibis and roasted river horse, that you see the mummies of those creatures

in their huge bakehouses the pyramids.



No, when I go to sea, I go as a simple sailor, right before the mast,

when I heard a heavy footfall in the passage, and saw a glimmer

of light come into the room from under the door.



Lord save me, thinks I, that must be the harpooneer,

the infernal head-peddler. But I lay perfectly still,

and resolved not to say a word till spoken to.  Holding a light

in one hand, and that identical New Zealand head in the other,

the stranger entered the room, and without looking towards

the bed, placed his candle a good way off from me on the floor

in one corner, and then began working away at the knotted cords

of the large bag I before spoke of as being in the room.

and by certain signs and sounds gave me to understand that,

if it pleased me, he would dress first and then leave me

to dress afterwards, leaving the whole apartment to myself.

Thinks I, Queequeg, under the circumstances, this is a very

civilized overture; but, the truth is, these savages have an

innate sense of delicacy, say what you will; it is marvellous

how essentially polite they are.  I pay this particular

compliment to Queequeg, because he treated me with so much

civility and consideration, while I was guilty of great rudeness;

staring at him from the bed, and watching all his toilette motions;

for the time my curiosity getting the better of my breeding.

contrasting climates, zone by zone.



"Grub, ho!" now cried the landlord, flinging open a door,

and in we went to breakfast.



They say that men who have seen the world, thereby become

quite at ease in manner, quite self-possessed in company.

Not always, though:  Ledyard, the great New England traveller,

and Mungo Park, the Scotch one; of all men, they possessed

the least assurance in the parlor.  But perhaps the mere

crossing of Siberia in a sledge drawn by dogs as Ledyard did,

among the Green Mountains.  A curious sight; these bashful bears,

these timid warrior whalemen!



But as for Queequeg--why, Queequeg sat there among them--

at the head of the table, too, it so chanced; as cool as an icicle.

To be sure I cannot say much for his breeding.  His greatest

admirer could not have cordially justified his bringing his harpoon

into breakfast with him, and using it there without ceremony;

reaching over the table with it, to the imminent jeopardy

of many heads, and grappling the beefsteaks towards him.

But that was certainly very coolly done by him, and every one

and Judges.  Delight,--top-gallant delight is to him, who acknowledges

no law or lord, but the Lord his God, and is only a patriot to heaven.

Delight is to him, whom all the waves of the billows of the seas

of the boisterous mob can never shake from this sure Keel

of the Ages.  And eternal delight and deliciousness will be his,

who coming to lay him down, can say with his final breath--O Father!--

chiefly known to me by Thy rod--mortal or immortal, here I die.

I have striven to be Thine, more than to be this world's, or mine own.

Yet this is nothing:  I leave eternity to Thee; for what is man

that he should live out the lifetime of his God?"

the larboard hand till we made a corner three points to the starboard,

and that done, then ask the first man we met where the place was;

these crooked directions of his very much puzzled us at first,

especially as, at the outset, Queequeg insisted that the yellow warehouse--

our first point of departure--must be left on the larboard hand,

whereas I had understood Peter Coffin to say it was on the starboard.

However, by dint of beating about a little in the dark, and now

and then knocking up a peaceable inhabitant to inquire the way,

we at last came to something which there was no mistaking.



Two enormous wooden pots painted black, and suspended by asses'

chewed up, crunched by the monstrousest parmacetty that ever chipped

a boat!--ah, ah!"



I was a little alarmed by his energy, perhaps also a little touched

at the hearty grief in his concluding exclamation, but said as calmly

as I could, "What you say is no doubt true enough, sir; but how could

I know there was any peculiar ferocity in that particular whale,

though indeed I might have inferred as much from the simple fact

of the accident."



"Look ye now, young man, thy lungs are a sort of soft, d'ye see;

hard task-master. They told me in Nantucket, though it

certainly seems a curious story, that when he sailed the old

Categut whaleman, his crew, upon arriving home, were mostly all

carried ashore to the hospital, sore exhausted and worn out.

For a pious man, especially for a Quaker, he was certainly

rather hard-hearted, to say the least.  He never used to swear,

though, at his men, they said; but somehow he got an inordinate

quantity of cruel, unmitigated hard work out of them.

When Bildad was a chief-mate, to have his drab-colored eye

intently looking at you, made you feel completely nervous,

till you could clutch something--a hammer or a marling-spike,

something of both Captain Peleg and his unaccountable old crony Bildad;

how that they being the principal proprietors of the Pequod,

therefore the other and more inconsiderable and scattered owners,

left nearly the whole management of the ship's affairs to these two.

And I did not know but what the stingy old Bildad might have a mighty

deal to say about shipping hands, especially as I now found him on board

the Pequod, quite at home there in the cabin, and reading his Bible

as if at his own fireside.  Now while Peleg was vainly trying to mend

a pen with his jack-knife, old Bildad, to my no small surprise,

considering that he was such an interested party in these proceedings;

Bildad never heeded us, but went on mumbling to himself out of his book,

fear lest thy conscience be but a leaky one; and will in the end

sink thee foundering down to the fiery pit, Captain Peleg."



"Fiery pit! fiery pit! ye insult me, man; past all natural bearing,

ye insult me.  It's an all-fired outrage to tell any human creature

that he's bound to hell.  Flukes and flames!  Bildad, say that again

to me, and start my soulbolts, but I'll--I'll--yes, I'll swallow a live

goat with all his hair and horns on.  Out of the cabin, ye canting,

drab-colored son of a wooden gun--a straight wake with ye!"



As he thundered out this he made a rush at Bildad, but with a

"And a very vile one.  When that wicked king was slain, the dogs,

did they not lick his blood?"



"Come hither to me--hither, hither," said Peleg,

with a significance in his eye that almost startled me.

"Look ye, lad; never say that on board the Pequod.  Never say

it anywhere.  Captain Ahab did not name himself .'Twas a foolish,

ignorant whim of his crazy, widowed mother, who died when

he was only a twelvemonth old.  And yet the old squaw Tistig,

at Gayhead, said that the name would somehow prove prophetic.

And, perhaps, other fools like her may tell thee the same.

if you please, and I will see to this strange affair myself."



Closing the door upon the landlady, I endeavored to prevail

upon Queequeg to take a chair; but in vain.  There he sat;

and all he could do--for all my polite arts and blandishments--

he would not move a peg, nor say a single word, nor even look

at me, nor notice my presence in any the slightest way.



I wonder, thought I, if this can possibly be a part of his Ramadan;

do they fast on their hams that way in his native island.

It must be so; yes, it's a part of his creed, I suppose;

to depart, yet; very loath to leave, for good, a ship bound

on so long and perilous a voyage--beyond both stormy Capes;

a ship in which some thousands of his hardearned dollars

were invested; a ship, in which an old shipmate sailed as captain;

a man almost as old as he, once more starting to encounter

all the terrors of the pitiless jaw; loath to say good-bye

to a thing so every way brimful of every interest to him,--

poor old Bildad lingered long; paced the deck with anxious strides;

ran down into the cabin to speak another farewell word there;

again came on deck, and looked to windward; looked towards

the wide and endless waters, only bounded by the far-off unseen



But, at last, he turned to his comrade, with a final sort of look

about him,--"Captain Bildad--come, old shipmate, we must go.

Back the mainyard there!  Boat ahoy!  Stand by to come

close alongside, now!  Careful, careful!--come, Bildad, boy--

say your last.  Luck to ye, Starbuck--luck to ye, Mr. Stubb--

luck to ye, Mr. Flask--good-bye and good luck to ye all--

and this day three years I'll have a hot supper smoking for ye

in old Nantucket.  Hurrah and away!"



"God bless ye, and have ye in His holy keeping, men," murmured old Bildad,

upon the man, who in mid-winter just landed from a four years'

dangerous voyage, could so unrestingly push off again for still

another tempestuous term.  The land seemed scorching to his feet.

Wonderfullest things are ever the unmentionable; deep memories

yield no epitaphs; this six-inch chapter is the stoneless grave

of Bulkington.  Let me only say that it fared with him as with

the storm-tossed ship, that miserably drives along the leeward land.

The port would fain give succor; the port is pitiful;

in the port is safety, comfort, hearthstone, supper,

warm blankets, friends, all that's kind to our mortalities.

But in that gale, the port, the land, is that ship's direst jeopardy;

If American and European men-of-war now peacefully ride

in once savage harbors, let them fire salutes to the honor

and glory of the whale-ship, which originally showed them

the way, and first interpreted between them and the savages.

They may celebrate as they will the heroes of Exploring Expeditions,

your Cookes, Your Krusensterns; but I say that scores of anonymous

Captains have sailed out of Nantucket, that were as great,

and greater, than your Cooke and your Krusenstern.  For in

their succorless empty-handedness, they, in the heathenish

sharked waters, and by the beaches of unrecorded, javelin islands,

battled with virgin wonders and terrors that Cooke with all his





*See subsequent chapters for something more on this head.





Grant it, since you cite it; but say what you will, there is no real

dignity in whaling.



No dignity in whaling?  The dignity of our calling the very

heavens attest.  Cetus is a constellation in the South!  No more!

Drive down your hat in presence of the Czar, and take it off

lighting one from the other to the end of the chapter; then loading

them again to be in readiness anew.  For, when Stubb dressed,

instead of first putting his legs into his trowsers, he put his pipe

into his mouth.



I say this continual smoking must have been one cause, at least of

his peculiar disposition; for every one knows that this earthly air,

whether ashore or afloat, is terribly infected with the nameless

miseries of the numberless mortals who have died exhaling it;

and as in time of the cholera, some people go about with a

camphorated handkerchief to their mouths; so, likewise, against all

one arm elevated, and holding by a shroud; Captain Ahab stood erect,

looking straight out beyond the ship's ever-pitching prow.

There was an infinity of firmest fortitude, a determinate,

unsurrenderable wilfulness, in the fixed and fearless,

forward dedication of that glance.  Not a word he spoke;

nor did his officers say aught to him; though by all their

minutest gestures and expressions, they plainly showed the uneasy,

if not painful, consciousness of being under a troubled

master-eye. And not only that, but moody stricken Ahab stood

before them with a crucifixion in his face; in all the nameless

regal overbearing dignity of some mighty woe.

that their dreams would have been of the crunching teeth of sharks.

But once, the mood was on him too deep for common regardings;

and as with heavy, lumber-like pace he was measuring the ship from

taffrail to mainmast, Stubb, the old second mate, came up from below,

and with a certain unassured, deprecating humorousness, hinted that if

Captain Ahab was pleased to walk the planks, then, no one could say nay;

but there might be some way of muffling the noise; hinting something

indistinctly and hesitatingly about a globe of tow, and the insertion

into it, of the ivory heel.  Ah!  Stubb, thou didst not know Ahab then.



"Am I a cannon-ball, Stubb," said Ahab, "that thou wouldst

gentleman, with a brimstone belly, doubtless got by scraping along

the Tartarian tiles in some of his profounder divings.  He is seldom seen;

at least I have never seen him except in the remoter southern seas,

and then always at too great a distance to study his countenance.

He is never chased; he would run away with rope-walks of line.

Prodigies are told of him.  Adieu, Sulphur Bottom!  I can say nothing

more that is true of ye, nor can the oldest Nantucketer.



Thus ends BOOK I. (Folio), and now begins BOOK II.  (Octavo).



OCTAVOES.* These embrace the whales of middling magnitude,

By some fishermen his approach is regarded as premonitory

of the advance of the great sperm whale.



BOOK II.  (Octavo), CHAPTER II.  (Black Fish).--I give the popular

fishermen's names for all these fish, for generally they are the best.

Where any name happens to be vague or inexpressive, I shall say so,

and suggest another.  I do so now touching the Black Fish,

so called because blackness is the rule among almost

all whales.  So, call him the Hyena Whale, if you please.

His voracity is well known and from the circumstance

that the inner angles of his lips are curved upwards,

and he is seldom hunted.  He is mostly found in the circumpolar seas.



BOOK II.  (Octavo), CHAPTER IV.  (Killer).--Of this whale

little is precisely known to the Nantucketer, and nothing

at all to the professed naturalists.  From what I have seen

of him at a distance, I should say that he was about the bigness

of a grampus.  He is very savage--a sort of Feegee fish.

He sometimes takes the great Folio whales by the lip, and hangs

there like a leech, till the mighty brute is worried to death.

The Killer is never hunted.  I never heard what sort of oil he has.

Exception might be taken to the name bestowed upon this whale,

artificialness of sea-usages, that while in the open air of the deck

some officers will, upon provocation, bear themselves boldly

and defyingly enough towards their commander; yet, ten to one,

let those very officers the next moment go down to their

customary dinner in that same commander's cabin, and straightway

their inoffensive, not to say deprecatory and humble air towards him,

as he sits at the head of the table; this is marvellous,

sometimes most comical.  Wherefore this difference?  A problem?

Perhaps not.  To have been Belshazzar, King of Babylon;

and to have been Belshazzar, not haughtily but courteously,

therein certainly must have been some touch of mundane grandeur.

Daggoo seated on the floor, for a bench would have brought

his hearse-plumed head to the low carlines; at every motion

of his colossal limbs, making the low cabin framework to shake,

as when an African elephant goes passenger in a ship.

But for all this, the great negro was wonderfully abstemious,

not to say dainty.  It seemed hardly possible that by such

comparatively small mouthfuls he could keep up the vitality

diffused through so broad, baronial, and superb a person.

But, doubtless, this noble savage fed strong and drank deep

of the abounding element of air; and through his dilated

nostrils snuffed in the sublime life of the worlds.

"Aye, aye! and I'll chase him round Good Hope, and round the Horn,

and round the Norway Maelstrom, and round perdition's flames

before I give him up.  And this is what ye have shipped for,

men! to chase that white whale on both sides of land, and over all

sides of earth, till he spouts black blood and rolls fin out.

What say ye, men, will ye splice hands on it, now?  I think ye

do look brave."



"Aye, aye!" shouted the harpooneers and seamen, running closer

to the excited old man:  "A sharp eye for the White Whale;

a sharp lance for Moby Dick!"

The prophecy was that I should be dismembered; and--Aye!  I lost

this leg.  I now prophesy that I will dismember my dismemberer.

Now, then, be the prophet and the fulfiller one.  That's more than ye,

ye great gods, ever were.  I laugh and hoot at ye, ye cricket-players,

ye pugilists, ye deaf Burkes and blinded Bendigoes!  I will not

say as schoolboys do to bullies--Take some one of your own size;

don't pommel me!  No, ye've knocked me down, and I am up again;

but ye have run and hidden.  Come forth from behind your cotton bags!

I have no long gun to reach ye.  Come, Ahab's compliments to ye;

come and see if ye can swerve me.  Swerve me? ye cannot swerve me,

else ye swerve yourselves! man has ye there.  Swerve me?

eating Amsterdam butter.



FRENCH SAILOR



Hist, boys! let's have a jig or two before we ride to anchor

in Blanket Bay.  What say ye?  There comes the other watch.

Stand by all legs!  Pip! little Pip! hurrah with your tambourine!



PIP (Sulky and sleepy)



Don't know where it is.

but excuse me.



MALTESE SAILOR



Me too; where's your girls?  Who but a fool would take his left hand

by his right, and say to himself, how d'ye do?  Partners!  I must

have partners!



SICILIAN SAILOR



Aye; girls and a green!--then I'll hop with ye; yea, turn grasshopper!



LONG-ISLAND SAILOR



Well, well, ye sulkies, there's plenty more of us.

Hoe corn when you may, say I. All legs go to harvest soon.

Ah! here comes the music; now for it!



AZORE SAILOR (Ascending, and pitching the tambourine up the scuttle.)



Here you are, Pip; and there's the windlass-bits;

common perils incident to wandering in the heart of unknown regions.

Meanwhile, the whale he had struck must also have been on its travels;

no doubt it had thrice circumnavigated the globe, brushing with its

flanks all the coasts of Africa; but to no purpose.  This man and

this whale again came together, and the one vanquished the other.

I say I, myself, have known three instances similar to this;

that is in two of them I saw the whales struck; and, upon the second

attack, saw the two irons with the respective marks cut in them,

afterwards taken from the dead fish.  In the three-year instance,

it so fell out that I was in the boat both times, first and last,

and the last time distinctly recognized a peculiar sort of huge mole

under the whale's eye, which I had observed there three years previous.

I say three years, but I am pretty sure it was more than that.

Here are three instances, then, which I personally know the truth of;

but I have heard of many other instances from persons whose veracity

in the matter there is no good ground to impeach.



Secondly:  It is well known in the Sperm Whale Fishery, however ignorant

O Timor Tom! thou famed leviathan, scarred like an iceberg,

who so long did'st lurk in the Oriental straits of that name,

whose spout was oft seen from the palmy beach of Ombay?  Was it

not so, O New Zealand Jack! thou terror of all cruisers that crossed

their wakes in the vicinity of the Tattoo Land?  Was it not so,

O Morquan!  King of Japan, whose lofty jet they say at times

assumed the semblance of a snow-white cross against the sky?

Was it not so, O Don Miguel! thou Chilian whale, marked like

an old tortoise with mystic hieroglyphics upon the back!

In plain prose, here are four whales as well known to the students

of Cetacean History as Marius or Sylla to the classic scholar.

But I must be content with only one more and a concluding illustration;

a remarkable and most significant one, by which you will not fail

to see, that not only is the most marvellous event in this book

corroborated by plain facts of the present day, but that these marvels

(like all marvels) are mere repetitions of the ages; so that for

the millionth time we say amen with Solomon--Verily there is nothing

new under the sun.



In the sixth Christian century lived Procopius, a Christian

magistrate of Constantinople, in the days when Justinian

was Emperor and Belisarius general.  As many know, he wrote

As I kept passing and repassing the filling or woof of marline

between the long yarns of the warp, using my own hand for the shuttle,

and as Queequeg, standing sideways, ever and anon slid his heavy

oaken sword between the threads, and idly looking off upon

the water, carelessly and unthinkingly drove home every yarn;

I say so strange a dreaminess did there then reign all over

the ship and all over the sea, only broken by the intermitting

dull sound of the sword, that it seemed as if this were

the Loom of Time, and I myself were a shuttle mechanically

weaving and weaving away at the Fates.  There lay the fixed

threads of the warp subject to but one single, ever returning,



"Never heed yonder yellow boys, Archy."



"Oh, I don't mind'em, sir," said Archy; "I knew it all before now.

Didn't I hear 'em in the hold?  And didn't I tell Cabaco here of it?

What say ye, Cabaco?  They are stowaways, Mr. Flask."



"Pull, pull, my fine hearts-alive; pull, my children;

pull, my little ones," drawlingly and soothingly sighed Stubb

to his crew, some of whom still showed signs of uneasiness.

"Why don't you break your backbones, my boys?  What is it you stare at?

because he had rather a peculiar way of talking to them in general,

and especially in inculcating the religion of rowing.

But you must not suppose from this specimen of his sermonizings

that he ever flew into downright passions with his congregation.

Not at all; and therein consisted his chief peculiarity.

He would say the most terrific things to his crew, in a tone

so strangely compounded of fun and fury, and the fury seemed

so calculated merely as a spice to the fun, that no oarsman

could hear such queer invocations without pulling for

dear life, and yet pulling for the mere joke of the thing.

Besides he all the time looked so easy and indolent himself,



"Pull, pull, my good boys," said Starbuck, in the lowest possible

but intensest concentrated whisper to his men; while the sharp

fixed glance from his eyes darted straight ahead of the bow,

almost seemed as two visible needles in two unerring binnacle compasses.

He did not say much to his crew, though, nor did his crew say anything

to him.  Only the silence of the boat was at intervals startlingly

pierced by one of his peculiar whispers, now harsh with command,

now soft with entreaty.



How different the loud little King-Post. "Sing out and

say something, my hearties.  Roar and pull, my thunderbolts!

Beach me, beach me on their black backs, boys; only do that for me,

and I'll sign over to you my Martha's Vineyard plantation, boys;

including wife and children, boys.  Lay me on--lay me on!

O Lord, Lord! but I shall go stark, staring mad!  See! see that

white water!"  And so shouting, he pulled his hat from his head,

Without much emotion, though soaked through just like me, he gave me

to understand that such things did often happen.



"Mr. Stubb," said I, turning to that worthy, who, buttoned up in his

oil-jacket, was now calmly smoking his pipe in the rain; "Mr. Stubb, I

think I have heard you say that of all whalemen you ever met,

our chief mate, Mr. Starbuck, is by far the most careful and prudent.

I suppose then, that going plump on a flying whale with your sail

set in a foggy squall is the height of a whaleman's discretion?"



"Certain.  I've lowered for whales from a leaking ship in a gale

Do you want to sink the ship, by knocking off at a time like this?

Turn to!' and he once more raised a pistol.



"'Sink the ship?' cried Steelkilt.  'Aye, let her sink.

Not a man of us turns to, unless you swear not to raise a rope-yarn

against us.  What say ye, men?' turning to his comrades.

A fierce cheer was their response.



"The Lakeman now patrolled the barricade, all the while keeping

his eye on the Captain, and jerking out such sentences as these:--

'It's not our fault; we didn't want it; I told him to take

his hammer away; it was boy's business; he might have known

me before this; I told him not to prick the buffalo;

I believe I have broken a finger here against his cursed jaw;

ain't those mincing knives down in the forecastle there,

men? look to those handspikes, my hearties.  Captain, by God,

look to yourself; say the word; don't be a fool; forget it all;

we are ready to turn to; treat us decently, and we're your men;

but we won't be flogged.'



"'Turn to!  I make no promises, turn to, I say!'

"'Turn to!' roared the Captain.



"Steelkilt glanced round him a moment, and then said:--'I tell

you what it is now, Captain, rather than kill ye, and be hung

for such a shabby rascal, we won't lift a hand against ye unless

ye attack us; but till you say the word about not flogging us,

we don't do a hand's turn.'



"'Down into the forecastle then, down with ye, I'll keep ye there

till ye're sick of it.  Down ye go.'

their heads sideways, as the two crucified thieves are drawn.



"'My wrist is sprained with ye!' he cried, at last; 'but there is still

rope enough left for you, my fine bantam, that wouldn't give up.

Take that gag from his mouth, and let us hear what he can

say for himself.'



"For a moment the exhausted mutineer made a tremulous motion

of his cramped jaws, and then painfully twisting round his head,

said in a sort of hiss, 'What I say is this--and mind it well---

if you flog me, I murder you!'



"'Say ye so? then see how ye frighten me'--and the Captain drew

off with the rope to strike.

the Spermaceti Whale Fisheries."  In this book is an outline

purporting to be a "Picture of a Physeter or Spermaceti whale,

drawn by scale from one killed on the coast of Mexico, August, 1793,

and hoisted on deck."  I doubt not the captain had this veracious

picture taken for the benefit of his marines.  To mention but one

thing about it, let me say that it has an eye which applied,

according to the accompanying scale, to a full grown sperm whale,

would make the eye of that whale a bow-window some five feet long.

Ah, my gallant captain, why did ye not give us Jonah looking

out of that eye!



Then, again, in 1825, Bernard Germain, Count de Lacepede,

a great naturalist, published a scientific systemized whale book,

wherein are several pictures of the different species of

the Leviathan.  All these are not only incorrect, but the picture

of the Mysticetus or Greenland whale (that is to say the Right

whale), even Scoresby, a long experienced man as touching

that species, declares not to have its counterpart in nature.



But the placing of the cap-sheaf to all this blundering business

was reserved for the scientific Frederick Cuvier, brother to the

and contains it in itself, as the seemingly harmless rifle

holds the fatal powder, and the ball, and the explosion;

so the graceful repose of the line, as it silently serpentines

about the oarsmen before being brought into actual play--

this is a thing which carries more of true terror than any other

aspect of this dangerous affair.  But why say more?  All men live

enveloped in whale-lines. All are born with halters round their necks;

but it is only when caught in the swift, sudden turn of death,

that mortals realize the silent, subtle, everpresent perils of life.

And if you be a philosopher, though seated in the whale-boat,

you would not at heart feel one whit more of terror, than though

inclining his head, so as to bring his best ear into play.



"Cook," said Stubb, rapidly lifting a rather reddish morsel

to his mouth, "don't you think this steak is rather overdone?

You've been beating this steak too much, cook; it's too tender.

Don't I always say that to be good, a whale-steak must be tough?

There are those sharks now over the side, don't you see they

prefer it tough and rare?  What a shindy they are kicking up!

Cook, go and talk to 'em; tell 'em they are welcome to help

themselves civilly, and in moderation, but they must keep quiet.

Blast me, if I can hear my own voice.  Away, cook, and deliver

low over the sea, so as to get a good view of his congregation,

with the other hand he solemnly flourished his tongs, and leaning

far over the side in a mumbling voice began addressing the sharks,

while Stubb, softly crawling behind, overheard all that was said.



"Fellow-critters: I'se ordered here to say dat you must stop dat

dam noise dare.  You hear?  Stop dat dam smackin' ob de lips!

Massa Stubb say dat you can fill your dam bellies up to de hatchings,

but by Gor! you must stop dat dam racket!"



"Cook," here interposed Stubb, accompanying the word with a sudden slap

on the shoulder,--Cook! why, damn your eyes, you mustn't swear that way

when you're preaching.  That's no way to convert sinners, Cook!  Who dat?

"'Hind de hatchway, in ferry-boat, goin' ober de Roanoke."



"Born in a ferry-boat! That's queer, too.  But I want to know

what country you were born in, cook!"



"Didn't I say de Roanoke country?" he cried sharply.



"No, you didn't, cook; but I'll tell you what I'm coming to, cook.

You must go home and be born over again; you don't know how to cook

a whale-steak yet."



"So, then, you expect to go up into our main-top, do you, cook,

when you are dead?  But don't you know the higher you climb,

the colder it gets?  Main-top, eh?"



"Didn't say dat t'all," said Fleece, again in the sulks.



"You said up there, didn't you? and now look yourself, and see

where your tongs are pointing.  But, perhaps you expect to get

into heaven by crawling through the lubber's hole, cook; but, no,

no, cook, you don't get there, except you go the regular way,

This allusion to the Indian rocks reminds me of another thing.

Besides all the other phenomena which the exterior of the Sperm Whale

presents, he not seldom displays the back, and more especially his flanks,

effaced in great part of the regular linear appearance, by reason

of numerous rude scratches, altogether of an irregular, random aspect.

I should say that those New England rocks on the seacoast,

which Agassiz imagines to bear the marks of violent scraping

contact with vast floating icebergs--I should say, that those rocks

must not a little resemble the Sperm Whale in this particular.

It also seems to me that such scratches in the whale are probably

made by hostile contact with other whales; for I have most remarked

unconditional perdition, in case this intention was carried out.

So strongly did he work upon his disciples among the crew,

that at last in a body they went to the captain and told him

if Gabriel was sent from the ship, not a man of them would remain.

He was therefore forced to relinquish his plan.  Nor would they

permit Gabriel to be any way maltreated, say or do what he would;

so that it came to pass that Gabriel had the complete freedom

of the ship.  The consequence of all this was, that the archangel

cared little or nothing for the captain and mates; and since

the epidemic had broken out, he carried a higher hand than ever;

declaring that the plague, as he called it, was at his sole command;

situation of mine was the precise situation of every mortal

that breathes; only, in most cases, he, one way or other,

has this Siamese connexion with a plurality of other mortals.

If your banker breaks, you snap; if your apothecary by mistake

sends you poison in your pills, you die.  True, you may

say that, by exceeding caution, you may possibly escape

these and the multitudinous other evil chances of life.

But handle Queequeg's monkey-rope heedfully as I would,

sometimes he jerked it so, that I came very near sliding overboard.

Nor could I possibly forget that, do what I would, I only had

the management of one end of it.*

and then he'll surrender Moby Dick."



"Pooh!  Stubb, you are skylarking; how can Fedallah do that?"



"I don't know, Flask, but the devil is a curious chap, and a

wicked one, I tell ye.  Why, they say as how he went a sauntering

into the old flag-ship once, switching his tail about devilish easy

and gentlemanlike, and inquiring if the old governor was at home.

Well, he was at home, and asked the devil what he wanted.

The devil, switching his hoofs, up and says, 'I want John.'  'What for?'

says the old governor.  'What business is that of yours,' says the devil,

"Three Spaniards?  Adventures of those three bloody-minded soldadoes?

Did ye read it there, Flask?  I guess ye did?"



"No:  never saw such a book; heard of it, though.  But now,

tell me, Stubb, do you suppose that that devil you was speaking

of just now, was the same you say is now on board the Pequod?"



"Am I the same man that helped kill this whale?  Doesn't the devil

live for ever; who ever heard that the devil was dead?

Did you ever see any parson a wearing mourning for the devil?

And if the devil has a latch-key to get into the admiral's

Upon my word were I at Mackinaw, I should take this to be the inside

of an Indian wigwam.  Good Lord! is this the road that Jonah went?

The roof is about twelve feet high, and runs to a pretty sharp angle,

as if there were a regular ridge-pole there; while these ribbed,

arched, hairy sides, present us with those wondrous, half vertical,

scimitar-shaped slats of whalebone, say three hundred on a side,

which depending from the upper part of the head or crown bone,

form those Venetian blinds which have elsewhere been cursorily mentioned.

The edges of these bones are fringed with hairy fibres,

through which the Right Whale strains the water, and in whose

intricacies he retains the small fish, when openmouthed he goes

and gazing upon its thousand pipes?  For a carpet to the organ

we have a rug of the softest Turkey--the tongue, which is glued,

as it were, to the floor of the mouth.  It is very fat

and tender, and apt to tear in pieces in hoisting it on deck.

This particular tongue now before us; at a passing glance I

should say it was a six-barreler; that is, it will yield you

about that amount of oil.



Ere this, you must have plainly seen the truth of what I started with--

that the Sperm Whale and the Right Whale have almost entirely

different heads.  To sum up, then:  in the Right Whale's there

and the ship seemed on the point of going over.



"Hold on, hold on, won't ye?" cried Stubb to the body,

"don't be in such a devil of a hurry to sink!

By thunder, men, we must do something or go for it.

No use prying there; avast, I say with your handspikes,

and run one of ye for a prayer book and a pen-knife, and cut

the big chains."



"Knife?  Aye, aye," cried Queequeg, and seizing the carpenter's

heavy hatchet, he leaned out of a porthole, and steel to iron,

and so make modern history a liar.



But all these foolish arguments of old Sag-Harbor only evinced his

foolish pride of reason--a thing still more reprehensible in him,

seeing that he had but little learning except what he had picked up from

the sun and the sea.  I say it only shows his foolish, impious pride,

and abominable, devilish rebellion against the reverend clergy.

For by a Portuguese Catholic priest, this very idea of Jonah's going to

Nineveh via the Cape of Good Hope was advanced as a signal magnification

of the general miracle.  And so it was.  Besides, to this day,

the highly enlightened Turks devoutly believe in the historical story

is furnished with a sort of locks (that open and shut)

for the downward retention of air or the upward exclusion of water,

therefore the whale has no voice; unless you insult him by saying,

that when he so strangely rumbles, he talks through his nose.

But then again, what has the whale to say?  Seldom have I known

any profound being that had anything to say to this world,

unless forced to stammer out something by way of getting a living.

Oh! happy that the world is such an excellent listener!



Now, the spouting canal of the Sperm Whale, chiefly intended as it

is for the conveyance of air, and for several feet laid along,

how I may, then, I but go skin deep.  I know him not, and never will.

But if I know not even the tail of this whale, how understand his

head? much more, how comprehend his face, when face he has none?

Thou shalt see my back parts, my tail, he seems to say, but my face

shall not be seen.  But I cannot completely make out his back parts;

and hint what he will about his face, I say again he has no face.









CHAPTER 87

Stripped to our shirts and drawers, we sprang to the white-ash,

and after several hours' pulling were almost disposed to renounce

the chase, when a general pausing commotion among the whales gave

animating tokens that they were now at last under the influence

of that strange perplexity of inert irresolution, which, when the

fishermen perceive it in the whale, they say he is gallied*. The

compact martial columns in which they had been hitherto rapidly

and steadily swimming, were now broken up in one measureless rout;

and like King Porus' elephants in the Indian battle with Alexander,

they seemed going mad with consternation.  In all directions

expanding in vast irregular circles, and aimlessly swimming hither

Here the storms in the roaring glens between the outermost whales,

were heard but not felt.  In this central expanse the sea

presented that smooth satin-like surface, called a sleek,

produced by the subtle moisture thrown off by the whale

in his more quiet moods.  Yes, we were now in that enchanted

calm which they say lurks at the heart of every commotion.

And still in the distracted distance we beheld the tumults of

the outer concentric circles, and saw successive pods of whales,

eight or ten in each, swiftly going round and round, like multiplied

spans of horses in a ring; and so closely shoulder to shoulder,

that a Titanic circus-rider might easily have over-arched

and wore a red cotton velvet vest with watch-seals at his side.

To this gentleman, Stubb was now politely introduced by

the Guernsey-man, who at once ostentatiously put on the aspect

of interpreting between them.



"What shall I say to him first?" said he.



"Why," said Stubb, eyeing the velvet vest and the watch and seals,

"you may as well begin by telling him that he looks a sort of babyish

to me, though I don't pretend to be a judge."

the cause, and by others the effect, of the dyspepsia in the whale.

How to cure such a dyspepsia it were hard to say, unless by administering

three or four boat loads of Brandreth's pills, and then running out

of harm's way, as laborers do in blasting rocks.



I have forgotten to say that there were found in this ambergris,

certain hard, round, bony plates, which at first Stubb thought

might be sailors' trousers buttons; but it afterwards turned

out that they were nothing, more than pieces of small squid

bones embalmed in that manner.

This coin speaks wisely, mildly, truly, but still sadly to me.

I will quit it, lest Truth shake me falsely."



"There now's the old Mogul," soliloquized Stubb by the try-works,

"he's been twigging it; and there goes Starbuck from the same,

and both with faces which I should say might be somewhere

within nine fathoms long.  And all from looking at a piece

of gold, which did I have it now on Negro Hill or in

Corlaer's Hook, I'd not look at it very long ere spending it.

Humph! in my poor, insignificant opinion, I regard this as queer.

I have seen doubloons before now in my voyagings; your doubloons

Then again, if it stays here, that is ugly, too, for when aught's

nailed to the mast it's a sign that things grow desperate.

Ha! ha! old Ahab! the White Whale; he'll nail ye!  This is a pine tree.

My father, in old Tolland county, cut down a pine tree once, and found

a silver ring grown over in it; some old darkey's wedding ring.

How did it get there?  And so they'll say in the resurrection,

when they come to fish up this old mast, and find a doubloon lodged in it,

with bedded oysters for the shaggy bark.  Oh, the gold! the precious,

precious gold!--the green miser'll hoard ye soon!  Hish! hish!

God goes 'mong the worlds blackberrying.  Cook! ho, cook! and cook us!

Jenny! hey, hey, hey, hey, hey, Jenny, Jenny! and get your hoe-cake done!"

It was a fine gam we had, and they were all trumps--every soul on board.

A short life to them, and a jolly death.  And that fine gam I had--

long, very long after old Ahab touched her planks with his ivory heel--

it minds me of the noble, solid, Saxon hospitality of that ship;

and may my parson forget me, and the devil remember me, if I ever

lose sight of it.  Flip?  Did I say we had flip?  Yes, and we flipped

it at the rate of ten gallons the hour; and when the squall came

(for it's squally off there by Patagonia), and all hands--

visitors and all--were called to reef topsails, we were so top-heavy

that we had to swing each other aloft in bowlines; and we ignorantly

furled the skirts of our jackets into the sails, so that we hung there,

and grievous loss might ensue to Nantucket and New Bedford.



But no more; enough has been said to show that the old Dutch

whalers of two or three centuries ago were high livers; and that

the English whalers have not neglected so excellent an example.

For, say they, when cruising in an empty ship, if you can get nothing

better out of the world, get a good dinner out of it, at least.

And this empties the decanter.

yet there are considerations which render even this circumstance

of little or no account as an opposing argument in this matter.



Natural as it is to be somewhat incredulous concerning the populousness

of the more enormous creatures of the globe, yet what shall we

say to Harto, the historian of Goa, when he tells us that at one

hunting the King of Siam took 4,000 elephants; that in those regions

elephants are numerous as droves of cattle in the temperate climes.

And there seems no reason to doubt that if these elephants,

which have now been hunted for thousands of years, by Semiramis,

by Porus, by Hannibal, and by all the successive monarchs of the East--

Take the hint, then; and when thou art dead, never bury thyself

under living people's noses.



Sir?--oh! ah!--I guess so; so;--yes, yes--oh dear!



Look ye, carpenter, I dare say thou callest thyself a right good

workmanlike workman, eh?  Well, then, will it speak thoroughly well

for thy work, if, when I come to mount this leg thou makest, I shall

nevertheless feel another leg in the same identical place with it;

that is, carpenter, my old lost leg; the flesh and blood one, I mean.

Canst thou not drive that old Adam away?

and saw as strange things in his face, as any beheld who were

bystanders when Zoroaster died.  For whatever is truly wondrous

and fearful in man, never yet was put into words or books.

And the drawing near of Death, which alike levels all,

alike impresses all with a last revelation, which only an author

from the dead could adequately tell.  So that--let us say it again--

no dying Chaldee or Greek had higher and holier thoughts

than those, whose mysterious shades you saw creeping over the face

of poor Queequeg, as he quietly lay in his swaying hammock,

and the rolling sea seemed gently rocking him to his final rest,

and the ocean's invisible flood-tide lifted him higher and higher

the steel soon pointed the end of the iron; and as the blacksmith

was about giving the barbs their final heat, prior to tempering them,

he cried to Ahab to place the water-cask near.



"No, no--no water for that; I want it of the true death-temper.

Ahoy, there!  Tashtego, Queequeg, Daggoo!  What say ye, pagans!  Will ye

give me as much blood as will cover this barb?" holding it high up.

A cluster of dark nods replied, Yes.  Three punctures were made

in the heathen flesh, and the White Whale's barbs were then tempered.



"Ego non baptizo te in nomine patris, sed in nomine diaboli!"





No, Stubb; you may pound that knot there as much as you please,

but you will never pound into me what you were just now saying.

And how long ago is it since you said the very contrary?

Didn't you once say that whatever ship Ahab sails in,

that ship should pay something extra on its insurance policy,

just as though it were loaded with powder barrels aft and boxes

of lucifers forward?  Stop, now; didn't you say so?"



"Well, suppose I did?  What then!  I've part changed my flesh

since that time, why not my mind?  Besides, supposing we

are loaded with powder barrels aft and lucifers forward;

how the devil could the lucifers get afire in this drenching

a fair wind to him.  But how fair?  Fair for death and doom,--

that's fair for Moby Dick.  It's a fair wind that's only fair for

that accursed fish.--The very tube he pointed at me!--the very one;

this one--I hold it here; he would have killed me with the very

thing I handle now.--Aye and he would fain kill all his crew.

Does he not say he will not strike his spars to any gale?

Has he not dashed his heavenly quadrant? and in these same

perilous seas, gropes he not his way by mere dead reckoning

of the error-abounding log? and in this very Typhoon, did he not

swear that he would have no lightning-rods? But shall this crazed

old man be tamely suffered to drag a whole ship's company down



Meantime, now the stranger was still beseeching his poor boon of Ahab;

and Ahab still stood like an anvil, receiving every shock, but without

the least quivering of his own.



"I will not go," said the stranger, "till you say aye to me.

Do to me as you would have me do to you in the like case.

For you too have a boy, Captain Ahab--though but a child,

and nestling safely at home now--a child of your old age too--

Yes, yes, you relent; I see it--run, run, men, now, and stand

by to square in the yards."

coast is to him.  So that to this hunter's wondrous skill,

the proverbial evanescence of a thing writ in water, a wake,

is to all desired purposes well nigh as reliable as the steadfast land.

And as the mighty iron Leviathan of the modern railway is so familiarly

known in its every pace, that, with watches in their hands, men time

his rate as doctors that of a baby's pulse; and lightly say of it,

the up train or the down train will reach such or such a spot,

at such or such an hour; even so, almost, there are occasions

when these Nantucketers time that other Leviathan of the deep,

according to the observed humor of his speed; and say to themselves,

so many hours hence this whale will have gone two hundred miles,

will have about reached this or that degree of latitude or longitude.

But to render this acuteness at all successful in the end, the wind

and the sea must be the whaleman's allies; for of what present avail

to the becalmed or wind-bound mariner is the skill that assures him

Even Ahab is a braver thing--a nobler thing than that.

Would now the wind but had a body; but all the things that most

exasperate and outrage mortal man, all these things are bodiless,

but only bodiless as objects, not as agents.  There's a

most special, a most cunning, oh, a most malicious difference!

And yet, I say again, and swear it now, that there's something

all glorious and gracious in the wind.  These warm Trade Winds,

at least, that in the clear heavens blow straight on, in strong

and steadfast, vigorous mildness; and veer not from their mark,

however the baser currents of the sea may turn and tack,

and mightiest Mississippies of the land swift and swerve about,



So fare thee well, poor devil of a Sub-Sub, whose commentator I am.

Thou belongest to that hopeless, sallow tribe which no wine of this world

will ever warm; and for whom even Pale Sherry would be too rosy-strong;

but with whom one sometimes loves to sit, and feel poor-devilish, too;

and grow convivial upon tears; and say to them bluntly, with full

eyes and empty glasses, and in not altogether unpleasant sadness--

Give it up, Sub-Subs! For by how much more pains ye take to please

the world, by so much the more shall ye for ever go thankless!

Would that I could clear out Hampton Court and the Tuileries for ye!

But gulp down your tears and hie aloft to the royal-mast with

ship upon them."

  --SCHOUTEN'S SIXTH CIRCUMNAVIGATION.



  "We set sail from the Elbe, wind N. E. in the ship called The

Jonas-in-the-Whale. ...

  Some say the whale can't open his mouth, but that is a fable. ...

  They frequently climb up the masts to see whether they can see a

whale, for the first discoverer has a ducat for his pains. ...

  I was told of a whale taken near Shetland, that had above a barrel

of herrings in his belly. ...

  One of our harpooneers told me that he caught once a whale in

view all matches for this distribution

App-Pinpp

1 match

lib/App/Pinpp.pm view on Meta::CPAN

        # Iff we're producing a PDF, then remove speaker comments
        $content =~ s{^#[^\n]*\n}{}gsm;

        my ($tmp_fh, $tmp_filename) = tempfile( DIR => '.' );

        say {$tmp_fh} $content;
        close($tmp_fh);

        system("pinpoint", "--output=$opts{o}", $tmp_filename);
    }
    else {
        # Otherwise just display our text
        say $content;
    }

    # And we're done!

    # Success!

view all matches for this distribution

App-PipeFilter

1 match

eg/reddit.json view on Meta::CPAN

{"kind": "Listing", "data": {"modhash": "", "children": [{"kind": "t3", "data": {"domain": "i.imgur.com", "media_embed": {}, "levenshtein": null, "subreddit": "pics", "selftext_html": null, "selftext": "", "likes": null, "saved": false, "id": "hgb1p"...

view all matches for this distribution

App-Plex-Archiver

1 match

bin/plex-archiver view on Meta::CPAN

unless (-d "$destination_dir") {
  my $create_dest = ask_yes_or_no("Destination directory '$destination_dir' does not exist. Do you wish to create it? ");
  if ($create_dest) {
    printf("Creating desitnation directory '%s'...", $destination_dir);
    if ($dry_run) {
      say " SKIPPED [DRY RUN]";
    } else {
      eval {
        make_path($destination_dir);
      };
      die("Failed to create path '$destination_dir': $@") if ($@);
      say " DONE!";
    }
  }
}

#----------------------------

bin/plex-archiver view on Meta::CPAN

  my $new_dest_filename = File::Spec->catfile($new_dest_dir, $new_filename);


  # Make the new destination directory
  if ($dry_run) {
    say "DRY RUN: Make directory '$new_dest_dir'";
  } else {
    eval {
      make_path($new_dest_dir);
    };
    die("Failed to create path '$new_dest_dir': $@") if ($@);
  }

  my $action = ($move ? "Moving" : "Copying");
  printf("%s original file '%s' to '%s'...", $action, $entry, $new_dest_filename);
  if ($dry_run) {
    say " SKIPPED [DRY RUN]";
  } else {
    copy_file($entry, $new_dest_filename, $move);
    say " DONE!";
  }
}

exit(1);

view all matches for this distribution

App-Pod

6 results

      ->Sortkeys( 1 )
      ->Terse( 1 )
      ->Useqq( 1 )
      ->Dump;
    return $data if defined wantarray;
    say $data;
}

#
# Run
#

        for ( keys %$data ) {    # Keep the dump simple.
            delete $data->{$_} if /^_cache_/ and !/path/;
        }
    }

    say "self=" . _dumper $data;
}

# Spec

sub _define_spec {


sub _process_core_flags {
    my ( $self ) = @_;

    for ( $self->_core_flags->@* ) {
        say "Processing: $_->{name}" if $self->_opts->{dump};
        my $handler = $_->{handler};
        return 1 if $self->$handler;
    }

    return 0;

# Help

sub _show_help {
    my ( $self ) = @_;

    say $self->_process_template(
        $self->_define_help_template,
        $self->_build_help_options,
    );

    return 1;


sub _show_version {
    my ( $self ) = @_;
    my $version = $self->VERSION;

    say "pod (App::Pod) $version";

    return 1;
}

# List

    my ( $self ) = @_;
    my $class = $self->_class;

    if ( not $class ) {
        if ( not $self->_opts->{no_error} ) {
            say "";
            say _red( "Class name not provided!" );
            say _reset( "" );
        }
        return 1;
    }

    # No wierd class names.
    if ( $class !~ m{ ^ [-~\w_:\\/. ]+ $ }x ) {
        if ( not $self->_opts->{no_error} ) {
            say "";
            say _red( "Invalid class name: $class" );
            say _reset( "" );
        }
        return 1;
    }

    # Make sure the path is not empty (error signal from Pod::Query).
    if ( not $self->_get_path ) {
        if ( not $self->_opts->{no_error} ) {
            say "";
            say _red( "Class not found: $class" );
            say _reset( "" );
        }
        return 1;
    }

    return 0;

# Non Main
#

sub _process_non_main {
    my ( $self ) = @_;
    say "_process_non_main()" if $self->_opts->{dump};

    for ( $self->_non_main_flags->@* ) {
        say "Processing: $_->{name}" if $self->_opts->{dump};
        my $handler = $_->{handler};
        return 1 if $self->$handler;
    }
}

    if ( $cache->{class} ne $self->_class ) {
        $cache = $self->store_cache;
    }

    # Show possible options
    say for $cache->{options}->@*;
}

# Edit

=head2 edit_class

sub query_class {
    my ( $self ) = @_;

    local $Pod::Query::DEBUG_FIND_DUMP = 1 if $self->_opts->{dump};

    say for $self->_get_pod->find( $self->_opts->{query} );
}

#
# Main
#

sub _process_main {
    my ( $self ) = @_;
    say "_process_main()" if $self->_opts->{dump};

    # Go on.
    $self->show_header;
    if ( $self->_method ) {
        $self->show_method_doc;

    my @path_line = ( _grey( "Path:" ), _grey( $self->_get_path ), );

    my $max    = max map { length } $package_line[0], $path_line[0];
    my $format = "%-${max}s %s";

    say "";
    _sayt sprintf( $format, @package_line );
    _sayt sprintf( $format, @path_line );

    say "";
    my ( $name, $summary ) = $self->_get_name_and_summary->@*;
    return unless $name and $summary;

    _sayt _yellow( $name ) . " - " . _green( $summary );
    say _reset( "" );
}

# Inheritance

sub _get_isa {

sub show_inheritance {
    my ( $self ) = @_;
    my $isa      = $self->_get_isa;
    my $size     = @$isa;
    return if $size <= 1;
    say _neon( "Inheritance ($size):" );
    say _grey( " $_" ) for @$isa;
    say _reset( "" );
}

# Events

sub _get_events {

    return unless $size;

    my $len    = max map { length( _green( $_ ) ) } @names;
    my $format = " %-${len}s - %s";

    say _neon( "Events ($size):" );
    for ( @names ) {
        _sayt sprintf $format, _green( $_ ), _grey( $events->{$_} );
    }
    say _reset( "" );
}

# Methods

sub _get_methods {

    # Documented methods
    my @all_method_docs = grep { $_->[1] } @$all_method_names_and_docs;

    # If we have methods, but none are documented (or found).
    if ( @$all_method_names_and_docs and not @all_method_docs ) {
        say _grey(
            "Warning: All methods are undocumented! (reverting to --all)\n" );
        $self->_opts->{all} = 1;
    }

    my @methods =
      $self->_opts->{all} ? @$all_method_names_and_docs : @all_method_docs;
    my $max              = max 0, map { length _green( $_->[0] ) } @methods;
    my $format_with_desc = " %-${max}s%s";
    my $format_no_desc   = " %s%s";
    my $size             = @methods;
    say _neon( "Methods ($size):" );

    for my $list ( @methods ) {
        my ( $method, $doc_raw ) = @$list;
        my $doc = $doc_raw ? " - $doc_raw" : "";
        $doc =~ s/\n+/ /g;

        my $format = $doc_raw ? $format_with_desc : $format_no_desc;
        _sayt sprintf $format, _green( $method ), _grey( $doc );
    }

    say _grey( "\nUse --all (or -a) to see all methods." )
      unless $self->_opts->{all};
    say _reset( "" );
}

=head2 show_method_doc

Show documentation for a specific module method.


        # Comments.
        s/ (\#.+) / _grey($1) /xge;
    }

    say $doc;
    say _reset( "" );
}

#
# Caching
#

    join "", @parts;
}

sub _sayt {

    say trim( @_ );
}

sub _red {

    colored( "@_", "RESET RED" );

-
-    my @keys = sort @keys_raw;
-
-    return @keys if defined wantarray;
-
-    say join "\n  ", "\n$class", @keys;
- }

=head1 ENVIRONMENT

Install bash completion support.

view all matches for this distribution

App-PrettyRes

1 match

bin/pretty-res view on Meta::CPAN


    my $res = Getopt::Long::GetOptions(
        'input|i=s'  => \$Opts{input},
        'output|o=s' => \$Opts{output},
        'version|v'  => sub {
            say "pretty-res version ", ($main::VERSION // '?');
            exit 0;
        },
        'help|h'     => sub {
            print <<USAGE;
Usage:

view all matches for this distribution

App-Prolix

2 results

has_option "verbose" => (isa => "Bool", cmd_aliases => "v",
    documentation => "Prints extra information.");
has_option "pipe" => (isa => "Bool", cmd_aliases => "p",
    documentation => "Reads from stdin instead of interactively.");
has_option "log" => (isa => "Str", cmd_aliases => "l",
    documentation => q{Logs output to a filename (say "auto" } .
        q{to let prolix pick one for you)});

# Flags affecting filtering.
has_option "ignore_re" => (isa => "ArrayRef", cmd_aliases => "r",
    "default" => sub { [] },

    } else {
        $self->run_spawn;
    }

    if ($self->verbose) {
        say "Done. " . $self->stats;
    }

    $self->close_log;
}

        $filename eq "auto";
    $filename = File::Spec->catfile(File::Spec->tmpdir, $filename) if
        $filename !~ m{[/\\]};  # Put in /tmp/ or similar unless we got a path.
    $filename =~ s/%d/$now/;  # TODO(gaal): implement incrementing %n.

    say "Logging output to $filename" if $self->verbose;

    my $fh = IO::File->new($filename, "w") or die "open: $filename: $!";
    $self->_log($fh);
}

}

sub run_pipe {
    my($self) = @_;

    say "Running in pipe mode" if $self->verbose;

    while (<STDIN>) {
        chomp;
        $self->on_out($_)
    }
}

sub run_spawn {
    my($self) = @_;
    say "Running: " .
        String::ShellQuote::shell_quote_best_effort(@{$self->_cmd})
        if $self->verbose;

    Term::ReadKey::ReadMode("noecho");
    END { Term::ReadKey::ReadMode("normal"); }

    return if not defined Term::ReadKey::ReadKey(-1);

    # Enter interactive prompt mode. We hope this will be brief, and
    # IPC::Run can buffer our watched command in the meanhwile.

	say q{Press ENTER to go back, or enter "help" for a list of commands.}
		if $self->verbose;

    Term::ReadKey::ReadMode("normal");
    while (my $cmd = $self->_term->readline("prolix>")) {
        $self->_term->addhistory($cmd);

            when ("stack")     { _dump_stack }
            when ("bufs")      { $self->dump_bufs }
            when (/q|quit/)    { die "prolix-quit\n" }
            when (/h|help/)    { $self->help_interactive }
            when ("pats")      { $self->dump_pats }
            when ("stats")     { say $self->stats }
            default            { say q{Unknown command. Try "help".} }
        }
    } else {
        given ($cmd) {
            when (/^\s*(ignore_(?:line|re|substring))\s+(.*)/) {
                my($ignore_type, $pat) = ($1, $2);

            }
            when (/^\s*snippet\s(.*)/) {
                push @{ $self->snippet }, $1;
                $self->import_snippet($1);
            }
            default { say q{Unknown command. Try "help".} }
        }
    }
}

sub import_re {

}

sub dump_pats {
    my($self) = @_;

    say "* ignored lines";
    say for @{ $self->ignore_line };
    say "* ignored patterns";
    say for @{ $self->ignore_re };
    say "* ignored substrings";
    say for @{ $self->ignore_substring };
    say "* snippets";
    say for @{ $self->snippet };
}

sub help_interactive {
    my($self) = @_;

    say <<"EOF";
clear_all        - clear all patterns
ignore_line      - add a full match to ignore
ignore_re        - add an ignore pattern, e.g. ^(FINE|DEBUG)
ignore_substring - add a partial match to ignore
pats             - list ignore patterns

sub on_out {
    my($self, $line) = @_;
    
    $self->inc__output_lines;
    if (defined($line = $self->process_line($line))) {
        say $line;
        if ($self->_log) {
            $self->_log->print("$line\n");
        }
    } else {
        $self->inc__suppressed;

view all matches for this distribution

App-Prove-Plugin-Elasticsearch

1 match

bin/testd view on Meta::CPAN

            #XXX Net::Rabbitmq is doing something incorrectly, requiring us to re-import every time we fork to avoid 'connection reset by peer'
            my $q_f = &{\&{$queue . "::new"}}($queue);

            #Ensure we have no channel overlap with single-threaded things, like the write_channel, which testd does not use
            $q->{read_channel} = 10 + MCE->wid();
            MCE->say("Worker "
                  . MCE->wid()
                  . " started, checking queue on channel $q->{read_channel}");
            worker($conf, $worker_state, $jobspec, $q_f);
        }
        1 .. $conf->{'testd.max_workers'};

bin/testd view on Meta::CPAN

        return 1 unless sum(values(%$worker_state));

        $worker_state->{MCE->wid()} = 1;
        $0 = "$msg looking for jobs";
        my @jobs = $q->get_jobs($jobspec);
        MCE->say("Found " . scalar(@jobs) . " jobs for worker " . MCE->wid());
        if (!@jobs) {
            $worker_state->{MCE->wid()} = 0;
            $0 = "$msg waiting for jobs";
            sleep $interval;
            next;

view all matches for this distribution

App-Prove-Plugin-KohaBootstrap

1 match

lib/App/Prove/Plugin/KohaBootstrap.pm view on Meta::CPAN

    my $port = C4::Context->config('port');
    my $database = C4::Context->config('database');
    my $user = C4::Context->config('user');
    my $pass = C4::Context->config('pass');

    say "Create test database $database...";

    my $dbh = DBI->connect("dbi:mysql:;host=$host;port=$port", $user, $pass, {
        RaiseError => 1,
        PrintError => 0,
    });

view all matches for this distribution

App-Qmail-DMARC

1 match

bin/qmail-dmarc view on Meta::CPAN

$message->send == 0 or die "Error sending message: exit status $?\n";
debug action => 'queue';

END {
    debug 'exit code' => $?;
    say STDERR "$FindBin::Script\[$$]: " . join '; ', @debug;
}

__END__

=head1 NAME

view all matches for this distribution

App-QuoteCC

2 results

lib/App/QuoteCC.pm view on Meta::CPAN

system L<fortune(1)> can take ~100 ms from a cold start, although
subsequent invocations when it's in cache are ~10-20 ms.

Similarly using Perl is also slow, this is in the 80 ms range:

    perl -COEL -MYAML::XS=LoadFile -E'@q = @{ LoadFile("/path/to/quotes.yml") }; @q && say $q[rand @q]'

Either way, when you have a 40 ms ping time to the remote machine
showing that quote is the major noticeable delay when you do I<ssh
machine>.

view all matches for this distribution

App-REPL

1 match

README view on Meta::CPAN

  It -can- notice, but PPI currently handles quote-like operators
  strangely, treating qw## and qw() in oddly different ways, and I
  want to either resolve that or resolve my thinking about that
  before I add further magic to App-REPL

6. You say 'magic', but I hear 'fragile evil'.  What does App-REPL do
   that's fragile and evil?

  Well, several things.

  1. The current version monkey-patches a bug out of PPI, so that

view all matches for this distribution

App-Rad

1 match