looks results from the CPAN

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-Perl-Module-Examples

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-PerlNitpick

2 results

lib/App/PerlNitpick/Rule/RemoveUnusedImport.pm view on Meta::CPAN

    }
    $self->idx($idx);
    return $idx;
}

sub looks_like_unused {
    my ($self, $module_name) = @_;
    return ! $self->idx->{used_count}{$module_name};
}

sub find_violations {

view all matches for this distribution

App-Phoebe

2 results

script/phoebe view on Meta::CPAN

      --wiki_token=Elrond \
      --wiki_token=Thranduil \
      --wiki_page=Welcome \
      --wiki_page=About

Here's what my F<phoebe.service> file actually looks like:

    [Unit]
    Description=Phoebe
    After=network.target
    [Install]

view all matches for this distribution

App-PhotoDB

1 match

lib/App/PhotoDB/handlers.pm view on Meta::CPAN


				# Test to see if this is from a negative, e.g. 123-12-image012.jpg
				if ($filename =~ m/^(\d+)-([0-9a-z]+)-.+\.jpg$/i) {
					my $film_id = $1;
					my $frame = $2;
					if ($auto || &prompt({prompt=>"This looks like a scan of negative $film_id/$frame. Add it?", type=>'boolean', default=>'yes', required=>1})) {
						my $neg_id = &lookupval({db=>$db, col=>"lookupneg($film_id, '$frame')", table=>'NEGATIVE'});
						my $subdir = &lookupval({db=>$db, col=>'directory', table=>'FILM', where=>{film_id=>$film_id}});

						# Test for non-null subdir
						if ($subdir =~ m/.+/) {

lib/App/PhotoDB/handlers.pm view on Meta::CPAN

						$x++;
					}
				# Test to see if this is from a print, e.g. P232-image012.jpg
				} elsif ($filename =~ m/^p(rint)?(\d+).*\.jpg$/i) {
					my $print_id = $2;
					if ($auto || &prompt({prompt=>"This looks like a scan of print #$print_id. Add it?", type=>'boolean', default=>'yes', required=>1})) {
						&newrecord({db=>$db, data=>{print_id=>$print_id, filename=>$filename}, table=>'SCAN', silent=>$auto});
						print "Added $filename as scan of print #$print_id\n" if $auto;
						$x++;
					}
				} else {

view all matches for this distribution

App-Photobear

1 match

bin/photobear view on Meta::CPAN


You will need an API key to use the program.

=head1 CONFIGURATION FILE

The program looks for a configuration file at C<~/.config/photobear.ini>, like:

  [photobear]
  api_key=YOUR_API_KEY

Alternatively you can set the environment variable C<PHOTOBEAR_API_KEY> to your API key, or use the --api-key option.

bin/photobear view on Meta::CPAN


Specify the API key to use for accessing Photobear. This key is required for authentication.

=item B<--config FILE>

Specify the configuration file to use. By default, the program looks for the configuration file at C<~/.config/photobear.ini>.

=item B<--verbose>

Print verbose output during the execution of the program.

view all matches for this distribution

App-PickRandomLines

4 results

script/_pick view on Meta::CPAN

#
#=head2 COMPLETE_BASH_SUMMARY_ALIGN
#
#String. Either C<left> (the default) or C<right>.
#
#The C<left> align looks something like this:
#
# --bar      Summary about the bar option
# --baz      Summary about the baz option
# --foo      Summary about the foo option
# --schapen  Summary about the schapen option

script/_pick view on Meta::CPAN

#    for (@_) {
#        my $ref = ref($_);
#        if ($ref eq 'ARRAY') { $prev = $_ }
#        elsif ($ref eq 'HASH') { $meta = $_ }
#        elsif (!$ref) {
#            if (Scalar::Util::looks_like_number($_)) {
#                $status = $_;
#            } else {
#                $msg = $_;
#            }
#        }

view all matches for this distribution

App-PigLatin

1 match



You could pretty plainly tell how long each one had been ashore.

This young fellow's healthy cheek is like a sun-toasted

pear in hue, and would seem to smell almost as musky;

he cannot have been three days landed from his Indian voyage.

That man next him looks a few shades lighter; you might say

a touch of satin wood is in him.  In the complexion of a third

still lingers a tropic tawn, but slightly bleached withal;

he doubtless has tarried whole weeks ashore.  But who could

show a cheek like Queequeg? which, barred with various tints,

seemed like the Andes' western slope, to show forth in one array,

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;

while all his sympathetic shipmates now crowd round Jonah,

prepared to lay their hands upon him.  Frighted Jonah trembles.

and summoning all his boldness to his face, only looks so much

the more a coward.  He will not confess himself suspected;

but that itself is strong suspicion.  So he makes the best of it;

and when the sailors find him not to be the man that is advertised,

they let him pass, and he descends into the cabin.

"Merchant service be damned.  Talk not that lingo to me.

Dost see that leg?--I'll take that leg away from thy stern,

if ever thou talkest of the merchant service to me again.

Marchant service indeed!  I suppose now ye feel considerable

proud of having served in those marchant ships.  But flukes! man,

what makes thee want to go a whaling, eh?--it looks a little

suspicious, don't it, eh?--Hast not been a pirate, hast thou?--

Didst not rob thy last Captain, didst thou?--Dost not think

of murdering the officers when thou gettest to sea?"



I protested my innocence of these things.  I saw that under

instead of a fore-mast hand; I never heard a better sermon.

Deacon Deuteronomy--why Father Mapple himself couldn't beat it,

and he's reckoned something.  Come aboard, come aboard:

never mind about the papers.  I say, tell Quohog there--

what's that you call him? tell Quohog to step along.

By the great anchor, what a harpoon he's got there! looks

like good stuff that; and he handles it about right.

I say, Quohog, or whatever your name is, did you ever stand

in the head of a whale-boat? did you ever strike a fish?"



Without saying a word, Queequeg, in his wild sort of way, jumped upon

hours of eve came on; then, memory shot her crystals as the clear ice

most forms of noiseless twilights.  And all these subtle agencies,

more and more they wrought on Ahab's texture.



Old age is always wakeful; as if, the longer linked with life,

the less man has to do with aught that looks like death.

Among sea-commanders, the old greybeards will oftenest

leave their berths to visit the night-cloaked deck.

It was so with Ahab; only that now, of late, he seemed so much

to live in the open air, that truly speaking, his visits

were more to the cabin, than from the cabin to the planks.

His voracity is well known and from the circumstance

that the inner angles of his lips are curved upwards,

he carries an everlasting Mephistophelean grin on his face.

This whale averages some sixteen or eighteen feet in length.

He is found in almost all latitudes.  He has a peculiar way

of showing his dorsal hooked fin in swimming, which looks

something like a Roman nose.  When not more profitably employed,

the sperm whale hunters sometimes capture the Hyena whale,

to keep up the supply of cheap oil for domestic employment--

as some frugal housekeepers, in the absence of company, and quite

alone by themselves, burn unsavory tallow instead of odorous wax.

can't ye? pull, won't ye?  Why in the name of gudgeons and

ginger-cakes don't ye pull?--pull and break something! pull,

and start your eyes out!  Here," whipping out the sharp knife

from his girdle; "every mother's son of ye draw his knife,

and pull with the blade between his teeth.  That's it--that's it.

Now ye do something; that looks like it, my steel-bits. Start her--

start her, my silverspoons!  Start her, marling-spikes!"



Stubb's exordium to his crew is given here at large,

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

and especially in inculcating the religion of rowing.



"'Nay, Dons, Dons--nay, nay!  I cannot rehearse that now.

Let me get more into the air, Sirs.'



"'The chicha! the chicha!' cried Don Pedro; 'our vigorous friend

looks faint;--fill up his empty glass!'



"No need, gentlemen; one moment, and I proceed.--Now, gentlemen,

so suddenly perceiving the snowy whale within fifty yards of the ship--

forgetful of the compact among the crew--in the excitement of the moment,

the Teneriffe man had instinctively and involuntarily lifted his voice

whale referred to, occurs in a separate department of the wall,

depicting the incarnation of Vishnu in the form of leviathan,

learnedly known as the Matse Avatar.  But though this sculpture

is half man and half whale, so as only to give the tail

of the latter, yet that small section of him is all wrong.

It looks more like the tapering tail of an anaconda,

than the broad palms of the true whale's majestic flukes.



But go to the old Galleries, and look now at a great Christian

painter's portrait of this fish; for he succeeds no better

than the antediluvian Hindoo.  It is Guido's picture of

for the benefit of the young and tender, free from the same

heinousness of mistake.  Look at that popular work

"Goldsmith's Animated Nature."  In the abridged London edition

of 1807, there are plates of an alleged "whale" and a "narwhale."

I do not wish to seem inelegant, but this unsightly whale

looks much like an amputated sow; and, as for the narwhale,

one glimpse at it is enough to amaze one, that in this nineteenth

century such a hippogriff could be palmed for genuine upon

any intelligent public of schoolboys.



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

you must needs conclude that the great Leviathan is that one

creature in the world which must remain unpainted to the last.

True, one portrait may hit the mark much nearer than another,

but none can hit it with any very considerable degree of exactness.

So there is no earthly way of finding out precisely what

the whale really looks like.  And the only mode in which you

can derive even a tolerable idea of his living contour,

is by going a whaling yourself; but by so doing, you run

no small risk of being eternally stove and sunk by him.

Wherefore, it seems to me you had best not be too fastidious

in your curiosity touching this Leviathan.

makes a rather bulky freight for a craft whose planks are but

one-half inch in thickness; for the bottom of the whale-boat

is like critical ice, which will bear up a considerable

distributed weight, but not very much of a concentrated one.

When the painted canvas cover is clapped on the american line-tub,

the boat looks as if it were pulling off with a prodigious

great wedding-cake to present to the whales.



Both ends of the line are exposed; the lower end terminating

in an eye-splice or loop coming up from the bottom against

the side of the tub, and hanging over its edge completely

the epicures, by continually dining upon calves' brains, by and by get to

have a little brains of their own, so as to be able to tell a calf's head

from their own heads; which, indeed, requires uncommon discrimination.

And that is the reason why a young buck with an intelligent looking calf's

head before him, is somehow one of the saddest sights you can see.

The head looks a sort of reproachfully at him, with an "Et

tu Brute!" expression.



It is not, perhaps, entirely because the whale is so excessively

unctuous that landsmen seem to regard the eating of him

with abhorrence; that appears to result, in some way,

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



"He says, Monsieur," said the Guernsey-man, in French,

turning to his captain, "that only yesterday his ship spoke

a vessel, whose captain and chief-mate, with six sailors,

healthful glow; yet, when the cunning jeweller would show you the diamond

in its most impressive lustre, he lays it against a gloomy ground,

and then lights it up, not by the sun, but by some unnatural gases.

Then come out those fiery effulgences, infernally superb; then the

evil-blazing diamond, once the divinest symbol of the crystal skies,

looks like some crown-jewel stolen from the King of Hell.  But let

us to the story.



It came to pass, that in the ambergris affair Stubb's after-oarsman

chanced so to sprain his hand, as for a time to become quite maimed;

and, temporarily, Pip was put into his place.

the roaring and devouring lion.  Ship, old ship! my old head shakes

to think of thee."



"There's another rendering now; but still one text.  All sorts of men

in one kind of world, you see.  Dodge again! here comes Queequeg--

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

poor boy! would he had died, or I; he's half horrible to me.

He too has been watching all of these interpreters myself included--

and look now, he comes to read, with that unearthly idiot face.

Stand away again and hear him.  Hark!"



"I look, you look, he looks; we look, ye look, they look."



"Upon my soul, he's been studying Murray's Grammar!  Improving his mind,

poor fellow!  But what's that he says now--hist!"



"I look, you look, he looks; we look, ye look, they look."



"Why, he's getting it by heart--hist! again."



"I look, you look, he looks; we look, ye look, they look."



"Well, that's funny."



"And I, you, and he; and we, ye, and they, are all bats;

and I'm a crow, especially when I stand a'top of this pine

the eddyings of his angry flukes; only on the profound unbounded sea,

can the fully invested whale be truly and livingly found out.



But the spine.  For that, the best way we can consider it is,

with a crane, to pile its bones high up on end.  No speedy enterprise.

But now it's done, it looks much like Pompey's Pillar.



There are forty and odd vertebrae in all, which in the skeleton

are not locked together.  They mostly lie like the great knobbed

blocks on a Gothic spire, forming solid courses of heavy masonry.

The largest, a middle one, is in width something less than three feet,

and in depth more than four.  The smallest, where the spine tapers

away into the tail, is only two inches in width, and looks something

like a white billiard-ball. I was told that there were still

smaller ones, but they had been lost by some little cannibal urchins,

the priest's children, who had stolen them to play marbles with.

Thus we see how that the spine of even the hugest of living things

tapers off at last into simple child's play.

and spavined the other for life, and now wears out bone legs by the cord.

Halloa, there, you Smut! bear a hand there with those screws,

and let's finish it before the resurrection fellow comes

a-calling with his horn for all legs, true or false, as brewery

men go round collecting old beer barrels, to fill 'em up again.

What a leg this is!  It looks like a real live leg, filed down

to nothing but the core; he'll be standing on this to-morrow;

he'll be taking altitudes on it.  Halloa!  I almost forgot the little

oval slate, smoothed ivory, where he figures up the latitude.

So, so; chisel, file, and sand-paper, now!

to determine his latitude.



Now, in that Japanese sea, the days in summer are as freshets

of effulgences.  That unblinkingly vivid Japanese sun

seems the blazing focus of the glassy ocean's immeasurable

burning-glass. The sky looks lacquered; clouds there are none;

the horizon floats; and this nakedness of unrelieved

radiance is as the insufferable splendors of God's throne.

Well that Ahab's quadrant was furnished with colored glasses,

through which to take sight of that solar fire.

So, swinging his seated form to the roll of the ship,

Ahab stood before him, and was lightly unwinding some thirty

or forty turns to form a preliminary hand-coil to toss overboard,

when the old Manxman, who was intently eyeing both him and the line,

made bold to speak.



"Sir, I mistrust it; this line looks far gone, long heat and wet

have spoiled it."



"'Twill hold, old gentleman.  Long heat and wet, have they spoiled thee?

Thou seem'st to hold.  Or, truer perhaps, life holds thee; not thou it."

"And who art thou, boy?  I see not my reflection in the vacant pupils

of thy eyes.  Oh God! that man should be a thing for immortal souls

to sieve through!  Who art thou, boy?"



"Bell-boy, sir; ship's-crier; ding, dong, ding!  Pip!  Pip!  Pip!  One

hundred pounds of clay reward for Pip; five feet high--looks cowardly--

quickest known by that!  Ding, dong, ding!  Who's seen Pip the coward?"



"There can be no hearts above the snow-line. Oh, ye frozen

heavens! look down here.  Ye did beget this luckless child,

and have abandoned him, ye creative libertines.  Here, boy;



"I will wager something now," whispered Stubb to Flask, "that some one

in that missing boat wore off that Captain's best coat; mayhap, his watch--

he's so cursed anxious to get it back.  Who ever heard of two pious

whale-ships cruising after one missing whale-boat in the height

of the whaling season?  See, Flask, only see how pale he looks--

pale in the very buttons of his eyes--look--it wasn't the coat--

it must have been the-"



"My boy, my own boy is among them.  For God's sake--I beg, I conjure"--

here exclaimed the stranger Captain to Ahab, who thus far had but

view all matches for this distribution

App-Pipeline-Simple

1 match

bin/spipe view on Meta::CPAN

          type: redir
          value: s1_string.txt

The empty C<value> will be filled in from the command line into the
C<config.yml> stored in the project directory. Also, the config file
looks slightly different since the steps are written out as
App::Pipeline::Simple objects. Functionally there is no difference.

=head1 TO DO

This pipeline engine has been tested using mostly linear pipelines.

view all matches for this distribution

App-PlatformInfo

1 match

script/platform-info view on Meta::CPAN

#
#        return '[]' unless @res;
#        return '[' . $pre . join( ",$pre", @res ) . $post . ']';
#    }
#
#    sub _looks_like_number {
#        my $value = shift;
#        if (USE_B) {
#            my $b_obj = B::svref_2object(\$value);
#            my $flags = $b_obj->FLAGS;
#            return 1 if $flags & ( B::SVp_IOK() | B::SVp_NOK() ) and !( $flags & B::SVp_POK() );

script/platform-info view on Meta::CPAN

#        return 'null' if(!defined $value);
#
#        my $type = ref($value);
#
#        if (!$type) {
#            if (_looks_like_number($value)) {
#                return $value;
#            }
#            return $self->string_to_json($value);
#        }
#        elsif( blessed($value) and  $value->isa('JSON::PP::Boolean') ){

view all matches for this distribution

App-Pocoirc

2 results

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

use IO::Handle;
use IRC::Utils qw(decode_irc);
use POE;
use POE::Component::Client::DNS;
use POSIX 'strftime';
use Scalar::Util 'looks_like_number';

sub new {
    my ($package, %args) = @_;
    return bless \%args, $package;
}

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

    elsif (ref $arg) {
        require overload;
        return overload::StrVal($arg);
    }
    elsif (defined $arg) {
        return $arg if looks_like_number($arg);
        return "'".decode_irc($arg)."'";
    }
    else {
        return 'undef';
    }

view all matches for this distribution

App-Pocosi

2 results

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

use IO::Handle;
use IRC::Utils qw(decode_irc);
use Net::Netmask;
use POE;
use POSIX 'strftime';
use Scalar::Util 'looks_like_number';

sub new {
    my ($package, %args) = @_;
    return bless \%args, $package;
}

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

    elsif (ref $arg) {
        require overload;
        return overload::StrVal($arg);
    }
    elsif (defined $arg) {
        return $arg if looks_like_number($arg);
        return "'".decode_irc($arg)."'";
    }
    else {
        return 'undef';
    }

view all matches for this distribution

App-Pod-Example

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-Prefix

2 results

bin/prefix view on Meta::CPAN

        return sprintf($format, $t/(86400 * 365.25)) . " years"; 
    } 

    # Considered, but removed, months entries in seconds_for_display()
    # 1) hard to abbreviate months in 4 chars. mnths? 
    # 2) 2.1 months looks especially weird
    # 3) months are much more variable-sized than any other time unit
    #    therefore more ambiguous and complex to compute (Ie, 28 vs 31 days)
    #my $seconds_per_month = (365.25 / 12) * 86400;    # mythical equal-sized months
    #if (abs($t) >= $seconds_per_month) {
    #    return sprintf($format, $t/$seconds_per_month) . " mnths";

view all matches for this distribution

App-PrereqGrapher

1 match

bin/prereq-grapher view on Meta::CPAN

   -verbose     Display verbose messages as we run
   -h --help    This help

=head1 DESCRIPTION

B<prereq-grapher> parses perl source and looks for prerequisites,
such as modules that are C<use>'d or C<require>'d.
All of those modules are then parsed in turn,
looking for I<their> dependencies.

Once all files have been parsed, B<prereq-grapher> will write out

view all matches for this distribution

App-Prima-REPL

1 match

bin/prima-repl view on Meta::CPAN

#sub allow_lexicals { $lexicals_allowed = 1 };
	else {
		# A command to be eval'd. Lexical variables don't work, so croak if I
		# see one. This could probably be handled better.
		if ($in_text =~ /my/ and not $lexicals_allowed) {
			$@ = join(' ', 'It looks to me like you\'re trying to use a lexical variable.'
					, 'Lexical variables not allowed in the line evaluator'
					, 'because you cannot get to them after the current line.'
					, 'If I\'m wrong, or if you really want to use lexical variables,'
					, "do this:\n"
					, "   allow_lexicals; <command-here>"

view all matches for this distribution

App-Prolix

1 match

bin/prolix view on Meta::CPAN


Force pipe mode. 

=item -l, --log=FILENAME

Log filtered output to FILENAME. If the argument looks like a pathname
(contains a "/"), we'll use that. Otherwise, the output will go to the
temporary directory (as defined by File::Spec->tmpdir).

The special value "auto" lets prolix pick a filename based on the command
being run.

view all matches for this distribution

App-Prove-Dist

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-Prove-Plugin-Idempotent

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-Prun-Scaled

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-Puppet-Environment-Updater

1 match

lib/App/Puppet/Environment/Updater.pm view on Meta::CPAN

necessary to use Git submodules, but it simplifies reuse of the Puppet modules in
other projects.

=back

The sandbox of the Git repository usually looks about as follows:

	.
	|-- modules
	|   |-- module1
	|   |   |-- manifests

view all matches for this distribution

App-RPM-Spec-License

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-RPi-EnvUI

1 match

public/js/flot.js view on Meta::CPAN

		return layer;
	};

	// Creates (if necessary) and returns a text info object.
	//
	// The object looks like this:
	//
	// {
	//     width: Width of the text's wrapper div.
	//     height: Height of the text's wrapper div.
	//     element: The jQuery-wrapped HTML div containing the text.

public/js/flot.js view on Meta::CPAN

        }

        function allocateAxisBoxFirstPhase(axis) {
            // find the bounding box of the axis by looking at label
            // widths/heights and ticks, make room by diminishing the
            // plotOffset; this first phase only looks at one
            // dimension per axis, the other dimension depends on the
            // other axes so will have to wait

            var lw = axis.labelWidth,
                lh = axis.labelHeight,

view all matches for this distribution

App-RabbitTail

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-Raps2

1 match

lib/App/Raps2/UI.pm view on Meta::CPAN


Returns a new App::Raps2::UI object.

=item $ui->list(I<\@item1>, I<\@item2>, I<\@item3>)

Print the list items neatly formatted to stdout. Each I<item> looks like B<[>
I<key>, I<value> B<]>. When B<list> is called for the first time, it will
print the keys as well as the values.

=item $ui->read_line(I<$question>, [I<$prefill>])

view all matches for this distribution

App-RecordStream

11 results

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

  cpanm --interactive App::RecordStream

Using L<cpanm> in interactive mode will prompt you for optional feature
support.  Other CPAN clients such as L<cpan> and L<cpanp> also work fine, but
you can't opt to use any optional features (just like cpanm in non-interactive
mode).  A kitchen-sink install of App::RecordStream looks like:

  cpanm --with-recommends --with-all-features App::RecordStream

If you don't have L<cpanm> itself, you can install it easily with:

view all matches for this distribution

App-Regather

1 match

lib/App/Regather/Plugin.pm view on Meta::CPAN


      cf           reference to Config class object
      force        force all actions done on start
      log          reference to Logg class object
      obj          reference to Net::LDAP object
      out_file_old ... looks like it is not needed any more ...
      prog         program name and version
      rdn          RDN of a LDAP object event relates to
      s            service
      st           syncrepl state
      ts_fmt       timestamp format

view all matches for this distribution

App-Relate-Complex

9 results

t/dat/lib/Nada.pm view on Meta::CPAN

=head1 DESCRIPTION

Stub documentation for Nada, 
created by perlnow.el using template.el.

It looks like the author of the extension was negligent 
enough to leave the stub unedited.

Blah blah blah.

=head2 EXPORT

view all matches for this distribution

App-RepoSync

1 match

		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";

view all matches for this distribution

App-Repository

4 results