guess results from the CPAN

    if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
        require Config;
        print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";

        # make an educated guess of whether we'll need root permission.
        print "    (You may need to do that as the 'root' user.)\n"
          if eval '$>';
    }
    print "*** $class configuration finished.\n";

              or _load('CPANPLUS::Shell::Default')
        )
    );
}

# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
    require Cwd;
    require File::Spec;

    my $cwd  = File::Spec->canonpath( Cwd::cwd() );

view all matches for this distribution

App-Nopaste

1 match

lib/App/Nopaste/Service/ssh.pm view on Meta::CPAN

    AddDefaultCharset utf-8
    Options -ExecCGI -FollowSymLinks -Includes -MultiViews

It prevents common means of script execution so that C<.pl> and C<.cgi>
files won't run and defaults the character set to UTF-8 so browsers
don't have to guess wrong.

=head1 SUPPORT

Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=App-Nopaste>
(or L<bug-App-Nopaste@rt.cpan.org|mailto:bug-App-Nopaste@rt.cpan.org>).

view all matches for this distribution

App-Nostray

1 match

bin/nostray view on Meta::CPAN

// value is the JSHINT function itself.

var JSHINT = (function () {
    "use strict";

    var anonname,       // The guessed name for anonymous functions.

// These are operators that should not be used with the ! operator.

        bang = {
            '<'  : true,

view all matches for this distribution

App-Office-Contacts-Import-vCards

1 match

lib/App/Office/Contacts/Import/vCards.pm view on Meta::CPAN


=head1 FAQ

=over 4

=item Does the import code guess any values?

Yes, both gender and title are derived from the data, rather than being just pieces
of data. This means neither of these 2 values are guaranteed to be correct.

=back

view all matches for this distribution

App-Oozie

2 results

    is       => 'rw',
    isa      => IsDir,
    lazy     => 1,
    default  => sub {
        my $self        = shift;
        my $first_guess = File::Spec->catdir( $self->local_oozie_code_path, 'lib' );
        return $first_guess if App::Oozie::Types::Common->get_type(IsDir)->check( $first_guess );
        (my $whereami = __FILE__) =~ s{ [.]pm \z }{}xms;
        my $base = File::Spec->catdir( $whereami, 'ttlib' );
        return $base if App::Oozie::Types::Common->get_type(IsDir)->check( $base );
        die 'Failed to locate the ttlib path!';
    },

    my($total_errors, $validation_errors);

    my @update_coord;
    for my $workflow ( @{ $wfs } ) {
        my($t_validation_errors, $t_total_errors, $dest, $cvc) =  $self->process_workflow( $workflow );
        push @update_coord, $self->guess_running_coordinator( $workflow, $cvc, $dest );
        $total_errors      += $t_validation_errors;
        $validation_errors += $t_total_errors;
    }

    if ($total_errors) {


    return $conf_val
            || $self->logger->logdie( 'Unable to fetch the ooozie configuration WorkflowDefinitionMaxLength!' );
}

sub guess_running_coordinator {
    state $is_running = { map { $_ => 1 } OOZIE_STATES_RUNNING };

    my $self     = shift;
    my $workflow = shift;
    my $cvc      = shift;


=head2 create_deployment_meta_file

=head2 destination_path

=head2 guess_running_coordinator

=head2 max_wf_xml_length

=head2 maybe_update_coordinators

view all matches for this distribution

App-Options

2 results

    $prog_dir =~ s!/$!! if ($prog_dir ne "/");   # remove trailing slash
    $prog_dir =  "." if ($prog_dir eq "");
    $prog_dir =  $prog_cat . $prog_dir if ($^O =~ /MSWin32/ and $prog_dir =~ m!^/!);

    #################################################################
    # 3. guess the "prefix" directory for the entire
    #    software installation.  The program is usually in
    #    $prefix/bin or $prefix/cgi-bin.
    #################################################################
    my $prefix = $values->{prefix};  # possibly set on command line
    my $prefix_origin = "command line";

    }
    else {
        my $libdir = "$prefix/lib";
        my $libdir_found = 0;
        # Look to see whether this PREFIX has been included already in @INC.
        # If it has, we do *not* want to automagically guess which directories
        # should be searched and in which order.
        foreach my $incdir (@INC) {
            if ($incdir =~ m!^$libdir!) {
                $libdir_found = 1;
                last;

        # with the "Build install" command.  If you are installing this
        # software to non-standard places, you would use the 
        # "perl Build.PL install_base=$PREFIX" command.  This would
        # typically put modules into the $PREFIX/lib directory.

        # So if we need to guess about extra directories to add to the
        # @INC variable ($PREFIX/lib is nowhere currently represented
        # in @INC), we should add directories which work for software
        # installed with either Module::Build or ExtUtils::MakeMaker.

        if (!$libdir_found) {

(separated by /[ ,;]+/) to be prepended to the @INC variable.

If "perlinc" is not set,
"$prefix/lib/perl5/$perlversion" and
"$prefix/lib/perl5/site_perl/$perlversion" are automatically
prepended to the @INC variable as a best guess.

=head2 Special Option debug_options

If the "debug_options" variable is set (often on the command
line), the list of option files that was searched is printed

view all matches for this distribution

App-PLab

1 match

lib/App/PLab/ManCen.pod view on Meta::CPAN

The box "Display neighbour .cen" shows neighbour centroids ( if available).
The box "look .cen forward" toggles the lookup direction, forward or backward.

=head2 Calculations

ManCen simplifies the tracking of centroids through the series, trying to guess how do
centroids move. When it saves the centroids positions, it confronts neighbour centroids and current ones.
If the number of centroids not match, or if it fails to correspond the points, it warns the user 
about possible problems.

=head2 Productivity tips

view all matches for this distribution

App-PM-Announce

1 match

    if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
        require Config;
        print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";

        # make an educated guess of whether we'll need root permission.
        print "    (You may need to do that as the 'root' user.)\n"
          if eval '$>';
    }
    print "*** $class configuration finished.\n";

              or _load('CPANPLUS::Shell::Default')
        )
    );
}

# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
    require Cwd;
    require File::Spec;

    my $cwd  = File::Spec->canonpath( Cwd::cwd() );

view all matches for this distribution

App-PMUtils

1 match

script/pwd2mod view on Meta::CPAN


our %SPEC;

$SPEC{pwd2mod} = {
    v => 1.1,
    summary => 'Try to guess/extract module name from current directory',
    description => <<'_',

Will return `.` if module name cannot be guessed.

_
    args => {
    },
    result_naked => 1,

script/pwd2mod view on Meta::CPAN

    url => "/main/pwd2mod",
    read_config => 0,
    read_env => 0,
)->run;

# ABSTRACT: Try to guess/extract module name from current directory
# PODNAME: pwd2mod

__END__

=pod

=encoding UTF-8

=head1 NAME

pwd2mod - Try to guess/extract module name from current directory

=head1 VERSION

This document describes version 0.745 of pwd2mod (from Perl distribution App-PMUtils), released on 2024-08-30.

script/pwd2mod view on Meta::CPAN

 % pwd2mod
 .

=head1 DESCRIPTION

Will return C<.> if module name cannot be guessed.

=head1 OPTIONS

C<*> marks required options.

view all matches for this distribution

App-PS1

1 match

lib/App/PS1/Plugin/Node.pm view on Meta::CPAN

    my ($self, $options) = @_;
    my $version;
    my $path;

    if ( $path = $ENV{NVM_BIN} ) {
        # best guess for nvm
        ($version) = $path =~ m{/([^/]+)/bin};
    }
    elsif ( $path = $ENV{NODE_PATH} ) {
        # best guess for nave
        ($version) = $path =~ /installed.(.*?).lib/;
    }
    else {
        return;
    }

view all matches for this distribution

App-PerinciUtils

1 match

script/wrap-with-perinci-sub-wrapper view on Meta::CPAN

        args_file => {
            schema => 'str*',
            summary => 'Retrieve args from file',
            description => <<'_',

JSON and YAML formats are supported. File type will be guessed from filename,
defaults to JSON.

_
            'x.schema.entity' => 'filename',
            tags => ['category:argument-specification'],

script/wrap-with-perinci-sub-wrapper view on Meta::CPAN


=item B<--args-file>=I<filename>

Retrieve args from file.

JSON and YAML formats are supported. File type will be guessed from filename,
defaults to JSON.


=item B<--args-json>=I<s>

view all matches for this distribution

App-Phoebe

3 results

lib/App/Phoebe/StaticFiles.pm view on Meta::CPAN

sub is_in {
  my ($parent, $child) = map { $_->to_abs } @_;
  return substr($child, 0, length($parent)) eq $parent;
}

# cheap MIME type guessing; alternatively, use File::MimeInfo
sub mime_type {
  $_ = shift;
  return 'text/gemini' if /\.gmi$/i;
  return 'text/plain' if /\.te?xt$/i;
  return 'text/markdown' if /\.md$/i;

view all matches for this distribution

App-PhotoDB

1 match

	}
}

=head2 parselensmodel

Parse lens model name to guess some data about the lens. Either specify which parameter you want
to be returned as a string, or expect a hashref of all params to be returned. Currently supports guessing
C<minfocal> (minimum focal length), C<maxfocal> (maximum focal length), C<zoom> (whether this is a zoom lens)
and C<aperture> (maximum aperture of lens).

=head4 Usage


	# Map alphabet to numbers
	my %h;
	@h{'A' .. 'Z'} = (0 .. 25);

	my @guesses;

	# AB1234, B1234A, B123A
	# From 1960-2012, the date code is in the form of "AB1234". "A" indicates the factory. Prior to 1986, "A" is moved to the end.
	# "B" is a year code that indicates the year of manufacture. Canon increments this letter each year starting with A in 1960
	# Of the 4 digits, the first two are the month of manufacture. Sometimes the leading 0 is omitted.

		my $epochstart = 1960;
		my $epochend = 2012;
		my $datenumber = $h{$dateletter};

		for (my $i=0; ; $i++) {
			my $guess = $epochstart + $datenumber + $i*26;

			# Stop if we go above the end date of the datecode epoch
			last if ($guess > $epochend);

			push(@guesses, $guess);
		}

	# From 2008, the date code is 10 digits. The first two correspond to the year & month of manufacture.
	# From 2008-2012 the month code runs from 38-97. In 2013, it is reset to 01. These are treated as different epochs.
	} elsif ($datecode =~ /^(\d{2})\d{8}$/ ) {

		if ($datenumber >= 38 and $datenumber <= 97) {
			my $epochstart = 2008;
			my $epochend = 2012;
			my $start = 38;

			my $guess = $epochstart + int(($datenumber - $start) / 12);
			push(@guesses, $guess);
		}

		# Second epoch
		{
			my $epochstart = 2013;
			my $epochend = 2100;
			my $start = 1;

			for (my $i=0; ; $i++) {
				my $guess = $epochstart + int((($datenumber + $i*100) - $start) / 12);
				last if ($guess > $epochend);
				push(@guesses, $guess);
			}
		}
	}

	# Now examine our guesses for plausibility based on when the lens was released & discontinued
	my @plausible;
	foreach my $guess (@guesses) {
		# Skip if our guess is before the lens was introduced
		next if ($guess < $introduced);

		# Stop if our guess is after the lens was discontinued
		next if ($guess > $discontinued);

		push(@plausible, $guess);
	}

	# If we narrowed it down to one year, return that. Otherwise, return nothing.
	if (scalar(@plausible) == 1) {
		return $plausible[0];

view all matches for this distribution

App-PigLatin

1 match



"I tell you what it is, landlord," said I quite calmly,

"you'd better stop spinning that yarn to me--I'm not green."



"May be not," taking out a stick and whittling a toothpick,

"but I rayther guess you'll be done brown if that ere harpooneer

hears you a slanderin' his head."



"I'll break it for him," said I, now flying into a passion again

at this unaccountable farrago of the landlord's.



"It's broke a'ready," said he.



"Broke," said I--"broke, do you mean?"



"Sartain, and that's the very reason he can't sell it, I guess."



"Landlord," said I, going up to him as cool as Mt.  Hecla in a

snowstorm--"landlord, stop whittling.  You and I must understand

one another, and that too without delay.  I come to your house

and want a bed; you tell me you can only give me half a one;

he tries to look all ease and confidence; in vain essays his

wretched smile.  Strong intuitions of the man assure the mariners

he can be no innocent.  In their gamesome but still serious way,

one whispers to the other--"Jack, he's robbed a widow;"

or, "Joe, do you mark him; he's a bigamist;" or, "Harry lad,

I guess he's the adulterer that broke jail in old Gomorrah,

or belike, one of the missing murderers from Sodom."  Another runs

to read the bill that's stuck against the spile upon the wharf

to which the ship is moored, offering five hundred gold coins

for the apprehension of a parricide, and containing a description

of his person.  He reads, and looks from Jonah to the bill;

And running up after me, she caught me as I was again trying to force

open the door.



"I won't allow it; I won't have my premises spoiled.

Go for the locksmith, there's one about a mile from here.  But avast!"

putting her hand in her side pocket, "here's a key that'll fit, I guess;

let's see."  And with that, she turned it in the lock; but alas!

Queequeg's supplemental bolt remained unwithdrawn within.



"Have to burst it open," said I, and was running down the entry

a little, for a good start, when the landlady caught at me,

bandana handkerchief, and putting them on very carefully,

came out of the wigwam, and leaning stiffly over the bulwarks,

took a good long look at Queequeg.



"How long hath he been a member?" he then said, turning to me;

"not very long, I rather guess, young man."



"No," said Peleg, "and he hasn't been baptized right either,

or it would have washed some of that devil's blue off his face."



"Do tell, now," cried Bildad, "is this Philistine a regular member



So down we went into the cabin, and to my great joy Queequeg was soon

enrolled among the same ship's company to which I myself belonged.



When all preliminaries were over and Peleg had got everything ready

for signing, he turned to me and said, "I guess, Quohog there don't

know how to write, does he?  I say, Quohog, blast ye! dost thou sign

thy name or make thy mark?



But at this question, Queequeg, who had twice or thrice before taken

part in similar ceremonies, looked no ways abashed; but taking

that deadly skrimmage with the Spaniard afore the altar in Santa?--

heard nothing about that, eh?  Nothing about the silver calabash

he spat into?  And nothing about his losing his leg last voyage,

according to the prophecy.  Didn't ye hear a word about them

matters and something more, eh?  No, I don't think ye did;

how could ye?  Who knows it?  Not all Nantucket, I guess.

But hows'ever, mayhap, ye've heard tell about the leg,

and how he lost it; aye, ye have heard of that, I dare say.

Oh, yes, that every one knows a'most--I mean they know he's

only one leg; and that a parmacetti took the other off."

It was nearly six o'clock, but only grey imperfect misty dawn,

when we drew nigh the wharf.



"There are some sailors running ahead there, if I see right,"

said I to Queequeg, "it can't be shadows; she's off by sunrise,

I guess; come on!"



"Avast!" cried a voice, whose owner at the same time coming

close behind us, laid a hand upon both our shoulders, and then

insinuating himself between us, stood stooping forward a little,

in the uncertain twilight, strangely peering from Queequeg to me.

"Find who?"



"Morning to ye! morning to ye!" he rejoined, again moving off.

"Oh!  I was going to warn ye against--but never mind, never mind--

it's all one, all in the family too;--sharp frost this morning,

ain't it?  Good-bye to ye.  Shan't see ye again very soon, I guess;

unless it's before the Grand Jury."  And with these cracked words

he finally departed, leaving me, for the moment, in no small

wonderment at his frantic impudence.



At last, stepping on board the Pequod, we found everything in

and he don't sleep then.  Didn't that Dough-Boy, the steward,

tell me that of a morning he always finds the old man's hammock

clothes all rumpled and tumbled, and the sheets down at the foot,

and the coverlid almost tied into knots, and the pillow a sort

of frightful hot, as though a baked brick had been on it?

A hot old man!  I guess he's got what some folks ashore

call a conscience; it's a kind of Tic-Dolly-row they say--

worse nor a toothache.  Well, well; I don't know what it is,

but the Lord keep me from catching it.  He's full of riddles;

I wonder what he goes into the after hold for, every night,

as Dough-Boy tells me he suspects; what's that for, I should

I should like to know, Mr. Humpback?  Do you want a kick?'

By the lord, Flask, I had no sooner said that, than he turned

round his stern to me, bent over, and dragging up a lot of seaweed

he had for a clout--what do you think, I saw?--why thunder alive,

man, his stern was stuck full of marlinspikes, with the points out.

Says I on second thought, 'I guess I won't kick you, old fellow.'

'Wise Stubb,' said he, 'wise Stubb;' and kept muttering it all

the time, a sort of eating of his own gums like a chimney hag.

Seeing he wasn't going to stop saying over his 'wise Stubb,

wise Stubb,' I thought I might as well fall to kicking the pyramid again.

But I had only just lifted my foot for it, when he roared out,

look down there, Flask"--pointing into the sea with a peculiar motion

of both hands--"Aye, will I!  Flask, I take that Fedallah to be

the devil in disguise.  Do you believe that cock and bull story about

his having been stowed away on board ship?  He's the devil, I say.

The reason why you don't see his tail, is because he tucks it up

out of sight; he carries it coiled away in his pocket, I guess.

Blast him! now that I think of it, he's always wanting oakum to stuff

into the toes of his boots."



"He sleeps in his boots, don't he?  He hasn't got any hammock;

but I've seen him lay of nights in a coil of rigging."

"I think I remember some such story as you were telling," said Flask,

when at last the two boats were slowly advancing with their burden

towards the ship, "but I can't remember where."



"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?"

very suspicious going on, I'll just take him by the nape of his neck,

and say--Look here, Beelzebub, you don't do it; and if he makes

any fuss, by the Lord I'll make a grab into his pocket for his tail,

take it to the capstan, and give him such a wrenching and heaving,

that his tail will come short off at the stump--do you see; and then,

I rather guess when he finds himself docked in that queer fashion,

he'll sneak off without the poor satisfaction of feeling his tail

between his legs."



"And what will you do with the tail, Stubb?"

all tattooing--looks like the signs of the Zodiac himself.  What says

the Cannibal?  As I live he's comparing notes; looking at his thigh bone;

thinks the sun is in the thigh, or in the calf, or in the bowels,

I suppose, as the old women talk Surgeon's Astronomy in the back country.

And by Jove, he's found something there in the vicinity of his thigh--

I guess it's Sagittarius, or the Archer.  No:  he don't know what to make

of the doubloon; he takes it for an old button off some king's trowsers.

But, aside again! here comes that ghost-devil, Fedallah; tail coiled

out of sight as usual, oakum in the toes of his pumps as usual.

What does he say, with that look of his?  Ah, only makes a sign

to the sign and bows himself; there is a sun on the coin--

Those buckskin legs and calves of legs I've seen in shop windows

wouldn't compare at all.  They soak water, they do; and of course

get rheumatic, and have to be doctored (sneezes) with washes and lotions,

just like live legs.  There; before I saw it off, now, I must call

his old Mogulship, and see whether the length will be all right;

too short, if anything, I guess.  Ha! that's the heel; we are in luck;

here he comes, or it's somebody else, that's certain.  AHAB (advancing)



(During the ensuing scene, the carpenter continues sneezing at times).

Bone is rather dusty, sir.



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;

Haul in, haul in, Tahitian!  These lines run whole, and whirling out:

come in broken, and dragging slow.  Ha, Pip? come to help; eh, Pip?"



"Pip? whom call ye Pip?  Pip jumped from the whaleboat.

Pip's missing.  Let's see now if ye haven't fished him

up here, fisherman.  It drags hard; I guess he's holding on.

Jerk him, Tahiti!  Jerk him off we haul in no cowards here.

Ho! there's his arm just breaking water.  A hatchet! a hatchet!

cut it off--we haul in no cowards here.  Captain Ahab! sir,

sir! here's Pip, trying to get on board again."

view all matches for this distribution

App-Pm2Port

1 match

    if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
        require Config;
        print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";

        # make an educated guess of whether we'll need root permission.
        print "    (You may need to do that as the 'root' user.)\n"
          if eval '$>';
    }
    print "*** $class configuration finished.\n";

              or _load('CPANPLUS::Shell::Default')
        )
    );
}

# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
    require Cwd;
    require File::Spec;

    my $cwd  = File::Spec->canonpath( Cwd::cwd() );

view all matches for this distribution

App-Pods2Site

1 match

lib/App/Pods2Site/Args.pm view on Meta::CPAN


sub __getDefaultBinLocations
{
	my $self = shift;

	# a somewhat guessed list for Config keys for scripts...
	# note: order is important
	#
	return $self->__getConfigLocations
		(
			qw

lib/App/Pods2Site/Args.pm view on Meta::CPAN


sub __getDefaultLibLocations
{
	my $self = shift;
	
	# a somewhat guessed list for Config keys for lib locations...
	# note: order is important
	#
	return $self->__getConfigLocations
		(
			qw

view all matches for this distribution

App-Prove-Dist

1 match

inc/Module/Install/Package.pm view on Meta::CPAN

}

1;

#-----------------------------------------------------------------------------#
# Take a guess at the primary .pm and .pod files for 'all_from', and friends.
# Put them in global magical vars in the main:: namespace.
#-----------------------------------------------------------------------------#
package Module::Package::PM;
use overload '""' => sub {
    $_[0]->guess_pm unless @{$_[0]};
    return $_[0]->[0];
};
sub set { $_[0]->[0] = $_[1] }
sub guess_pm {
    my $pm = '';
    my $self = shift;
    if (-e 'META.yml') {
        open META, 'META.yml' or die "Can't open 'META.yml' for input:\n$!";
        my $meta = do { local $/; <META> };

inc/Module/Install/Package.pm view on Meta::CPAN

            my $num = ($name =~ s!/+!/!g);
            my $ary = $array[$num] ||= [];
            push @$ary, $name;
        }, 'lib');
        shift @array while @array and not defined $array[0];
        die "Can't guess main module" unless @array;
        (($pm) = sort @{$array[0]}) or
            die "Can't guess main module";
    }
    my $pmc = $pm . 'c';
    $pm = $pmc if -e $pmc;
    $self->set($pm);
}

view all matches for this distribution

App-Prove-Plugin-Elasticsearch

1 match

lib/App/Prove/Plugin/Elasticsearch.pm view on Meta::CPAN

For example, App::Prove::Elasticsearch::Provisioner::Default provides the 'Default' versioner.

=head2 PLATFORMER

Given that tests run on various platforms, we need a flexible way to determine that information.
As such, I've provided (you guessed it) yet another pluggable interface, App::Prove::Elasticsearch::Platformer.
Here are the shipped plugins:

=over 4

=item B<Default>: use Sys::Info::OS to determine the operating system environment, and $^V for the interpreter environment.

view all matches for this distribution

App-Prove-Plugin-Idempotent

1 match

    if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
        require Config;
        print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";

        # make an educated guess of whether we'll need root permission.
        print "    (You may need to do that as the 'root' user.)\n"
          if eval '$>';
    }
    print "*** $class configuration finished.\n";

              or _load('CPANPLUS::Shell::Default')
        )
    );
}

# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
    require Cwd;
    require File::Spec;

    my $cwd  = File::Spec->canonpath( Cwd::cwd() );

view all matches for this distribution

App-Prun-Scaled

1 match

        else {
            print
"*** Dependencies will be installed the next time you type '$make'.\n";
        }

        # make an educated guess of whether we'll need root permission.
        print "    (You may need to do that as the 'root' user.)\n"
          if eval '$>';
    }
    print "*** $class configuration finished.\n";

              or _load('CPANPLUS::Shell::Default')
        )
    );
}

# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
    require Cwd;
    require File::Spec;

    my $cwd  = File::Spec->canonpath( Cwd::getcwd() );

view all matches for this distribution

App-RecordStream-Bio

1 match

lib/App/RecordStream/Operation/tofasta.pm view on Meta::CPAN


sub accept_record {
    my $self   = shift;
    my $record = shift;

    my %props = map {; "-$_" => ${$record->guess_key_from_spec($self->{KEYS}{$_})} }
                grep { $self->{KEYS}{$_} ne 'NONE' }
                keys %{$self->{KEYS}};

    if (not $self->{PASSTHRU} and defined $props{'-seq'}) {
        $props{'-seq'} =~ s/\s+//g; # fixme

view all matches for this distribution

App-RecordStream

31 results

lib/App/RecordStream/Aggregator.pm view on Meta::CPAN

  my $return_record = App::RecordStream::Record->new();
  for my $name (keys(%$aggrs))
  {
    my $aggregator = $aggrs->{$name};
    my $value = $aggregator->squish($cookies->{$name});
    ${$return_record->guess_key_from_spec($name)} = $value;
  }

  return $return_record;
}

view all matches for this distribution

App-Relate-Complex

1 match

You mentioned that it would like to be potato?

He probably just wants to take over my CELLS and then EXPLODE
 inside me like a BARREL of runny CHOPPED LIVER!  Or maybe he'd
 like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
 to a RIGHT-WING MILITARY TAKEOVER of my apartment!!  I guess
 I should call AL PACINO!

Possibly this has something to do with some problems in your
childhood?


I want to TAKE IT HOME and DRESS IT UP in HOT PANTS!!

When did you first want to take it?

I guess it was all a DREAM..  or an episode of HAWAII FIVE-O...

Is it because of problems at school that you say or an episode of
hawaii five o?

Does someone from PEORIA have a SHORTER ATTENTION span than me?

Is it because of your plans that you say your ears are gone?

He probably just wants to take over my CELLS and then EXPLODE
 inside me like a BARREL of runny CHOPPED LIVER!  Or maybe he'd
 like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
 to a RIGHT-WING MILITARY TAKEOVER of my apartment!!  I guess
 I should call AL PACINO!

What makes you believe do I know what it means to be truly one
with my booth?


I want DUSTIN HOFFMAN!! .. I want LIBERACE!!  YOW!!

I think you have some serious inhibitions.

I guess it was all a DREAM..  or an episode of HAWAII FIVE-O...

What makes you believe it would like to be potato?

I will establish the first SHOPPING MALL in NUTLEY, New Jersey...

You mentioned that it would like to be potato?

He probably just wants to take over my CELLS and then EXPLODE
 inside me like a BARREL of runny CHOPPED LIVER!  Or maybe he'd
 like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
 to a RIGHT-WING MILITARY TAKEOVER of my apartment!!  I guess
 I should call AL PACINO!

Possibly this has something to do with some problems in your
childhood?


I want to TAKE IT HOME and DRESS IT UP in HOT PANTS!!

When did you first want to take it?

I guess it was all a DREAM..  or an episode of HAWAII FIVE-O...

Is it because of problems at school that you say or an episode of
hawaii five o?

Does someone from PEORIA have a SHORTER ATTENTION span than me?

Is it because of your plans that you say your ears are gone?

He probably just wants to take over my CELLS and then EXPLODE
 inside me like a BARREL of runny CHOPPED LIVER!  Or maybe he'd
 like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
 to a RIGHT-WING MILITARY TAKEOVER of my apartment!!  I guess
 I should call AL PACINO!

What makes you believe do I know what it means to be truly one
with my booth?


I want DUSTIN HOFFMAN!! .. I want LIBERACE!!  YOW!!

I think you have some serious inhibitions.

I guess it was all a DREAM..  or an episode of HAWAII FIVE-O...

What makes you believe it would like to be potato?

I will establish the first SHOPPING MALL in NUTLEY, New Jersey...

YUGGA-HUGGA-BUGGA-TUGGA!!  HEY-HEY!!  A TRAIN STATION!!  No, a POST
 OFFICE!!  An OCEAN LINER!!  No, I think it's a CAFETERIA!!!

Why do you say was you born?

I guess it was all a DREAM..  or an episode of HAWAII FIVE-O...

How do you reconcile your inhibitions?

Place me on a BUFFER counter while you BELITTLE several BELLHOPS
 in the Trianon Room!!  Let me one of your SUBSIDIARIES!

Possibly this is because of problems at school?

He probably just wants to take over my CELLS and then EXPLODE
 inside me like a BARREL of runny CHOPPED LIVER!  Or maybe he'd
 like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
 to a RIGHT-WING MILITARY TAKEOVER of my apartment!!  I guess
 I should call AL PACINO!

What makes you think you guess you should call al pacino?

ONE:  I will donate my entire ``BABY HUEY'' comic book collection
 to the downtown PLASMA CENTER..
 TWO:  I won't START a BAND called ``KHADAFY & THE HIT SQUAD''..
 THREE:  I won't ever TUMBLE DRY my FOX TERRIER again!!

Perhaps your life could have caused this.

He probably just wants to take over my CELLS and then EXPLODE
 inside me like a BARREL of runny CHOPPED LIVER!  Or maybe he'd
 like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
 to a RIGHT-WING MILITARY TAKEOVER of my apartment!!  I guess
 I should call AL PACINO!

Why do you say you are only truly alive when you are covered in
polka dots and taco sauce?


Yow!  I want my nose in lights!

Perhaps this is caused by problems at school?

I guess we can live on his POT FARM in HADES!!

Is this how you relax?

I've got an IDEA!!  Why don't I STARE at you so HARD,
 you forget your SOCIAL SECURITY NUMBER!!

Is it because of your plans that you are going through all this?

He probably just wants to take over my CELLS and then EXPLODE
 inside me like a BARREL of runny CHOPPED LIVER!  Or maybe he'd
 like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
 to a RIGHT-WING MILITARY TAKEOVER of my apartment!!  I guess
 I should call AL PACINO!

Is it because of your life that you say you guess you should call
al pacino?

...I think I'm having an overnight sensation right now!!

Why do you say nose would like to have this bad ronald?


Hold the MAYO & pass the COSMIC AWARENESS...

Is it because of your plans that you are going through all this?

Hello?  Enema Bondage?  I'm calling because I want to be happy, I guess..

What makes you happy?

Let's climb to the TOP of that MOUNTAIN and think about STRIP MINING!!

real reason?

He probably just wants to take over my CELLS and then EXPLODE
 inside me like a BARREL of runny CHOPPED LIVER!  Or maybe he'd
 like to PSYCHOLOGICALLY TERRORIZE ME until I have no objection
 to a RIGHT-WING MILITARY TAKEOVER of my apartment!!  I guess
 I should call AL PACINO!

Possibly this is because of your inhibitions?

The FALAFEL SANDWICH lands on my HEAD and I become a VEGETARIAN...

I can't think about that.  It doesn't go with HEDGES in the shape of
 LITTLE LULU -- or ROBOTS making BRICKS...

You mentioned that you were high?

Hello?  Enema Bondage?  I'm calling because I want to be happy, I guess..

How often have you been happy?

I'll show you MY telex number if you show me YOURS...


I feel like I'm in a Toilet Bowl with a thumbtack in my forehead!!

Maybe this is because of the people you hang around with?

I guess we can live on his POT FARM in HADES!!

Have you been afraid of of being drawn to using harder stuff?

I feel like I am sharing a ``CORN-DOG'' with NIKITA KHRUSCHEV..


I will invent "TIDY BOWL"...

Possibly this is caused by some problems in your childhood?

I guess you guys got BIG MUSCLES from doing too much STUDYING!

Are you afraid of that?

...A housewife is wearing a polypyrene jumpsuit!!

There's a lot of BIG MONEY in MISERY if you have an AGENT!!

You mentioned that 47 people are yelling and sweat is cascading
down your spinal column is fairly enjoyable?

I guess we can live on his POT FARM in HADES!!

Is this how you relax?

I like your SNOOPY POSTER!!

Gibble, Gobble, we ACCEPT YOU ---

Is it because of your inhibitions that you say gibble gobble you
accept me?

Hello?  Enema Bondage?  I'm calling because I want to be happy, I guess..

Have you been absolutely sure you want to be happy you guess?

LOOK!!!  I'm WALKING in my SLEEP again!!

You mentioned that luke finds gold on his land?

view all matches for this distribution

App-RewriteVersion

4 results

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

sub _main_module {
	my ($self, $dist_dir) = @_;
	
	# Adapted from Dist::Zilla
	my $main;
	(my $guess = $self->_dist_name($dist_dir)) =~ s{-}{/}g;
	$main = $dist_dir->child("lib/$guess.pm");
	unless ($main->exists) {
		$main = path($self->_shortest_module($dist_dir));
	}
	croak qq{Could not find any modules to retrieve version from}
		unless defined $main and $main->exists;

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

 my $current_version = $app->current_version;
 my $current_version = $app->current_version(dist_dir => $dist_dir);
 my $current_version = $app->current_version(file => $file);

Returns the current version of the distribution using L</"version_from">. If no
C<file> is passed, the main module filename will be guessed from C<dist_dir>
(defaulting to current working directory), using heuristics similar to
L<Dist::Zilla::Plugin::NameFromDirectory> and L<Dist::Zilla/"main_module">. For
example, if the directory is named C<Foo-Bar> it will look for
C<lib/Foo/Bar.pm> within the distribution, and if that doesn't exist, the
shortest module path found. If the C<V> environment variable is set, it will be
returned regardless of other options. An exception will be thrown if no version
is found in the specified or guessed file, or if no perl modules could be
found.

=head2 rewrite_version

 my $bool = $app->rewrite_version($file, $version);

view all matches for this distribution

App-Rssfilter

1 match

t/lib/App/Rssfilter/Feed/Storage/Test/SaveFeedPutsContentToFile.pm view on Meta::CPAN

requires 'feed_storage';
requires 'tempfile';

test save_feed_puts_content_to_file => method {

    $self->feed_storage->save_feed( Mojo::DOM->new( '<well>I guess this is it</well>' ) );
    is(
        $self->tempfile->slurp,
        '<well>I guess this is it</well>',
        'save_feed writes passed DOM to underlying file'
    );
};

1;

view all matches for this distribution

App-SD

1 match

    if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
        require Config;
        print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";

        # make an educated guess of whether we'll need root permission.
        print "    (You may need to do that as the 'root' user.)\n"
          if eval '$>';
    }
    print "*** $class configuration finished.\n";

              or _load('CPANPLUS::Shell::Default')
        )
    );
}

# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
    require Cwd;
    require File::Spec;

    my $cwd  = File::Spec->canonpath( Cwd::cwd() );

view all matches for this distribution

App-SahUtils

2 results

script/sah-to-human view on Meta::CPAN

        schema_file => {
            schema=>'str*',
            summary => 'Retrieve schema from file',
            description => <<'_',

JSON and YAML formats are supported. File type will be guessed from filename,
defaults to JSON.

_
            cmdline_aliases => {f=>{}},
            'x.schema.entity' => 'filename',

script/sah-to-human view on Meta::CPAN


=item B<--schema-file>=I<filename>, B<-f>

Retrieve schema from file.

JSON and YAML formats are supported. File type will be guessed from filename,
defaults to JSON.


=item B<--schema-json>=I<s>

view all matches for this distribution

App-Sandy

3 results

lib/App/Sandy/DB/Handle/Variation.pm view on Meta::CPAN

		}

		# Sequence inside perl begins at 0
		my $position = int($fields[1] - 1);

		# Compare the alterations and reference to guess the max variation on sequence
		my $size_of_variation = max map { length } $fields[3], $fields[4];
		my $high = $position + $size_of_variation - 1;

		my %variation = (
			seq_id => $fields[0],

lib/App/Sandy/DB/Handle/Variation.pm view on Meta::CPAN

		}

		# Sequence inside perl begins at 0
		my $position = int($fields[1] - 1);

		# Compare the alterations and reference to guess the max variation on sequence
		my $size_of_variation = max map { length } $fields[3], $alternate;
		my $high = $position + $size_of_variation - 1;

		my %variation = (
			seq_id => $fields[0],

view all matches for this distribution

App-Seacan

1 match

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


sub create_launcher {
    # Instead of giving a very long command to the user
    # a launcher script is generated.
    # app_name and main_script could be added to the configuration
    # so we can add the info directly instead of "guessing" it
    # through a regex.

    my $self = shift;
    my $output = $self->config->{seacan}{output};

view all matches for this distribution

App-SeismicUnixGui

3 results