throw results from the CPAN

		# If the modification time is only slightly in the future,
		# sleep briefly to remove the problem.
		my $a = $s - time;
		if ( $a > 0 and $a < 5 ) { sleep 5 }

		# Too far in the future, throw an error.
		my $t = time;
		if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

App-DuckPAN

2 results

  Author: Matt Miller <mwmiller@outlook.com>
  Date : 2014-11-05 07:53:48 +0000

    Merge pull request #161 from duckduckgo/zaahir/calm-down-duckpan

    Don't be so quick to throw the manpage in my face 

  Change: e7099c780f0d8c14deb7eaaa4056e5829d3bab06
  Author: Matt Miller <mwmiller@outlook.com>
  Date : 2014-11-05 07:14:51 +0000


  Change: 106f9cc916f910726643388911a02eced92ef939
  Author: Zaahir Moolla <moollaza@fastmail.fm>
  Date : 2014-11-04 16:06:19 +0000

    Don't be so quick to throw the manpage in my face

    This has bugged me for a long time... 

  Change: e767ebf44070dd707978243022cdac9bc8d8e37c
  Author: Matt Miller <mwmiller@outlook.com>
  Date : 2014-11-04 10:59:11 +0000

    bin/duckpan: give them the absolute path, if we can't get realpath

    I still think the realpath is more useful, but if throws an
    exception, just go with absolute.

    The absolute is not in a `catch` block, because we lose our `$_`. If
    this was any more complex I would write it a different way.


  Change: 3a10454ff2ac83982bcd550abbf7f272f86dd370
  Author: Usman Raza <usman.r123@gmail.com>
  Date : 2014-09-08 03:32:20 +0000

    throw depedency msg only on dependency errors 

  Change: 6a99ec68124a9f08ae4991512a6b4901377a76fc
  Author: Zaahir Moolla <moollaza@duckduckgo.com>
  Date : 2014-09-04 16:58:58 +0000

  Date : 2013-03-09 16:01:14 +0000

    Fix for strings with extra newlines/carriage returns

    The \n escaping is working fine, but for HTML output that still has
    weird returns, Javascript will take that as a newline and throw an
    "Unterminated string literal" error in the browser-side. Removing \R
    after the \n have been escaped solves the issue.

    Thank you to bureado <https://github.com/bureado>, who authored this
    change and commit.

view all matches for this distribution

App-Easer

10 results

lib/App/Easer/V1.pod view on Meta::CPAN

I<package> name, what comes after is a I<subroutine> name (defaulting to
C<$default_subname>).

The I<package> is loaded using C<require>, then a reference to the desired
I<subroutine> is taken and returned. If no subroutine exists, an exception
is thrown (C<no '$subname' in '$package'>);


=head2 fetch_spec_for

   my $spec = fetch_spec_for($self, $name);

view all matches for this distribution

App-ElasticSearch-Utilities

2 results

lib/App/ElasticSearch/Utilities.pm view on Meta::CPAN

                foreach my $k (sort keys %{ $ref->{fields} } ) {
                    _add_fields($f,$ref->{type},@path,$k);
                }
            }
        }
        # Unknown data, throw an error if we care that deeply.
        else {
            debug({stderr=>1,color=>'red'},
                sprintf "_find_fields(): Invalid property at: %s ref info: %s",
                    join('.', @path),
                    join(',', is_hashref($ref) ? sort keys %{$ref} :

lib/App/ElasticSearch/Utilities.pm view on Meta::CPAN

    uri_param           Query String Parameters
    index               Index name
    type                Index type
    method              Default is GET

If the request is not successful, this function will throw a fatal exception.
If you'd like to proceed you need to catch that error.

=head2 es_nodes

Returns the hash of index meta data.

view all matches for this distribution

App-Env-Login

1 match

		# If the modification time is only slightly in the future,
		# sleep briefly to remove the problem.
		my $a = $s - time;
		if ( $a > 0 and $a < 5 ) { sleep 5 }

		# Too far in the future, throw an error.
		my $t = time;
		if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

App-Env

3 results

C<AppID>, the full module name will be used as the cache id (ignoring
the contents of the B<AppOpts> option hash).

=item SysFatal I<boolean>

If true, the B<system>, B<qexec>, and B<capture> object methods will throw
an exception if the passed command exits with a non-zero error.

=item Temp I<boolean>

If true, and the requested environment does not exist in the cache,

It has the same argument and returned value convention as the core
Perl B<system> command.

If the B<SysFatal> flag is set for this environment,
B<IPC::System::Simple::system> is called, which will cause this method
to throw an exception if the command returned a non-zero exit value.
It also avoid invoking a shell to run the command if possible.

=item exec

  $env->exec( $command, @args );

(standard) output.  If called in a list context the output is
split into lines.

If the B<SysFatal> flag is set for this environment,
B<IPC::System::Simple::capture> is called, which will cause this
method to throw an exception if the command returned a non-zero exit
value.  It also avoid invoking a shell to run the command if possible.

=item capture

Execute a command in the environment defined by B<$env> and returns or

  my $exit;
  capture { $exit = $env->system( $command, @args ) }

If the B<SysFatal> flag is set for this environment,
B<IPC::System::Simple::capture> is called, which will cause this
method to throw an exception if the command returned a non-zero exit
value.  It also avoids invoking a shell to run the command if possible.

=item which

  $path = $env->which( $command );

view all matches for this distribution

App-EventStreamr

11 results

share/status/app/lib/angular/angular-loader.js view on Meta::CPAN

 *
 * This object provides a utility for producing rich Error messages within
 * Angular. It can be called as follows:
 *
 * var exampleMinErr = minErr('example');
 * throw exampleMinErr('one', 'This {0} is {1}', foo, bar);
 *
 * The above creates an instance of minErr in the example namespace. The
 * resulting error will have a namespaced error code of example.one.  The
 * resulting error will replace {0} with the value of foo, and {1} with the
 * value of bar. The object is not restricted in the number of arguments it can

share/status/app/lib/angular/angular-loader.js view on Meta::CPAN

     * @returns {module} new module with the {@link angular.Module} api.
     */
    return function module(name, requires, configFn) {
      var assertNotHasOwnProperty = function(name, context) {
        if (name === 'hasOwnProperty') {
          throw ngMinErr('badname', 'hasOwnProperty is not a valid {0} name', context);
        }
      };

      assertNotHasOwnProperty(name, 'module');
      if (requires && modules.hasOwnProperty(name)) {
        modules[name] = null;
      }
      return ensure(modules, name, function() {
        if (!requires) {
          throw $injectorMinErr('nomod', "Module '{0}' is not available! You either misspelled " +
             "the module name or forgot to load it. If registering a module ensure that you " +
             "specify the dependencies as the second argument.", name);
        }

        /** @type {!Array.<Array.<*>>} */

view all matches for this distribution

App-Fetchware

22 results

package App::Fetchware;
our $VERSION = '1.016'; # VERSION: generated by DZP::OurPkgVersion
# ABSTRACT: App::Fetchware is Fetchware's API used to make extensions.
###BUGALERT### Uses die instead of croak. croak is the preferred way of throwing
#exceptions in modules. croak says that the caller was the one who caused the
#error not the specific code that actually threw the error.
use strict;
use warnings;

#
#=item * 'ONEARRREF'
#
#Generates a function with the name of _make_config_sub()'s first parameter that
#can B<only> be called one time per Fetchwarefile. And just like C<'ONE'> above
#if called more than once it will throw an exception. However, C<'ONEARRREF'> can
#be called with a list of values just like C<'MANY'> can, but it can still only
#be called once like C<'ONE'>.
#
#=item * 'MANY'
#

            ) {
                # If the user is ok with not properly verifying downloads, then
                # ignore the failure, and install anyway.
                $options{verify_failure_ok} = 'On';
            } else {
                # Otherwise, throw an exception.
                die <<EOD;
fetchware: Fetchware *must* be able to verify any software packages that it
downloads. The Fetchwarefile that you were creating could not do this, because
you failed to specify how fetchware can verify its downloads. Please rerun
fetchware new again, and this time be sure to specify a gpg_keys_url, specify

            # array? Return undef--nope causes "value undef in sort fatal errors
            # and warnings." Return 0--nope causes a file with no version number
            # at beginning of listing to stay at listing, and cause fetchware to
            # fail picking the right version. Return -1--nope, because that's
            # hackish and lame. Instead, just not include them in the lookup
            # listing, and if that means that the lookup listing is empty throw
            # an exception.
            next;
        }
        # Add $i's version string to @versionstrings.
        push @versionstrings, [$i, @iversionstring];

    } elsif (config('verify_method') =~ /gpg/i) {
        vmsg <<EOM;
You selected gpg cryptographic verification. Verifying now.
EOM
        ###BUGALERT### Should trap the exception {gpg,sha1,md5}_verify()
        #throws, and then add that error to the one here, otherwise the
        #error message here is never seen.
        gpg_verify($download_path)
            or die <<EOD unless config('verify_failure_ok');
App-Fetchware: run-time error. You asked fetchware to only try to verify your
package with gpg or openpgp, but they both failed. See the warning above for

        }
    }

    # Process @both_are_defined by checking if both of the elements in the
    # provided arrayrefs are "both defined", and if they are "both defined"
    # throw an exception.
    for my $AnB (@both_are_defined) {
        my ($A, $B) = @$AnB;

        my @A_defined;
        my @B_defined;

        }
    }


    # Process @mandatory options by checking if they're defined, and if not
    # throwing the specified exception.
    for my $AnB (@mandatory) {
        my ($option, $error_message) = @$AnB;

        die $error_message if not defined config($option);
    }

    
        # Run git verify-tag to verify the latest tag
        my $success = eval { run_prog('git verify-tag', "$latest_tag"); 1;};
    
        # If the git verify-tag fails, *and* verify_failure_ok has been turned on,
        # then ignore the thrown exception, but print an annoying message.
        unless (defined $success and $success) {
            unless (config('verify_failure_ok')) {
                msg <<EOM;
    Verification failure ok, becuase you've configured fetchware to continue even
    if it cannot verify its downloads. Please reconsider, because mirror and source

in its test suite that you may find helpful. These include:

=over

=item L<Test::Fetchware/eval_ok()> - A poor man's Test::Exception. Captures any
exceptions that are thrown, and compares them to the provided exception text or
regex.

=item L<Test::Fetchware/print_ok()> - A poor man's Test::Output. Captures
STDOUT, and compares it to the provided text.

is important, because it allows extension authors to change all of the
C<App::Fetchware> references in the error messages to their own fetchware
extensions name.

extension_name() is a singleton, and can only be set once. After being set only
once any attempts to set it again will result in an exception being thrown.
Furthermore, any calls to it without arguments will result in it returning the
one scalar argument that was set the first time it was called.

=head3 opening_message();

=back

=back

C<lookup_method> can be either C<'timestamp'> or C<'versionstring'>, any other
values will result in fetchware throwing an exception.

=head2 lookup() API REFERENCE

The subroutines below are used by lookup() to provide the lookup functionality
for fetchware. If you have overridden the lookup() handler, you may want to use

same filename as the software package, but usually with a C<.asc> file name
extension. gpg_verify() downloads the author's keys, imports them into
fetchware's own keyring unless the user sets C<user_keyring> to true in his
Fetchwarefile. Then Fetchware downloads a digital signature that usually
ends in C<.asc>. Afterwards, fetchware uses the gpg command line program to
verify the digital signature. gpg_verify returns true if successful, and throws
an exception otherwise.

You can use C<gpg_keys_url> to specify the URL of a file where the author has
uploaded his keys. And the C<gpg_sig_url> can be used to setup an alternative
location of where the C<.asc> digital signature is stored.


    my $build_path = check_archive_files($files);

Checks if all of the files in the archive are contained in one B<main>
directory, and spits out a warning if they are not. Also checks if
B<one or more> of the files is an absolute path, and if so it throws an
exception, because absolute paths could potentially overwrite important system
files messing up your computer.

=head2 build()

chdir_unless_already_at_path() takes a $path as its argument, and determines if
that path is currently part of the current processes current working directory.
If it is, then it does nothing. Buf if the given $path is not in the current
working directory, then it is chdir()'d to.

If the chdir() fails, an exception is thrown.

=head2 uninstall()

    'uninstall succeeded' = uninstall($build_path)


=item Mandatory

Is used to check for mandatory options, which just means that these options
absolutely must be specified in user's Fetchwarefiles, and if they are not, then
the provided error message is thrown as an exception.

=item ConfigOptionEnum

Tests that enumerations are valid. For example, C<lookup_method> can only take
two values C<timestamp> or C<versionstring>, and ConfigOptionEnum is used to

This would not prevent any error messages from STDERR being printed to your
screen for that:

    fetchware install <some-program.Fetchwarefile> 2>&1 fetchware.log

And to throw away all messages use:

    fetchware -q install <some-progra.Fetchwarefile>

or use the shell

view all matches for this distribution

App-FileTools-BulkRename

1 match

lib/App/FileTools/BulkRename/UserCommands.pm view on Meta::CPAN


# We're overriding the core uc and lc routines to provide versions
# that automatically modify their parameters if called in void
# context.

# In practice this shouldn't be an issue, as uc and lc throw errors in
# void context, which is the only context in which these two subs are
# supposed to differ, but better safe than sorry.

package _USER;
use subs qw(uc lc);  # override the core routines.

view all matches for this distribution

App-Followme

1 match

lib/App/Followme/Template.pm view on Meta::CPAN


=back

=head1 ERRORS

What to check when this module throws an error

=over 4

=item Couldn't read template

view all matches for this distribution

App-ForExample

1 match

	# If the modification time is only slightly in the future,
	# sleep briefly to remove the problem.
	my $a = $s - time;
	if ( $a > 0 and $a < 5 ) { sleep 5 }

	# Too far in the future, throw an error.
	my $t = time;
	if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

App-Framework-Lite

5 results

		# If the modification time is only slightly in the future,
		# sleep briefly to remove the problem.
		my $a = $s - time;
		if ( $a > 0 and $a < 5 ) { sleep 5 }

		# Too far in the future, throw an error.
		my $t = time;
		if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

App-Framework

12 results

		# If the modification time is only slightly in the future,
		# sleep briefly to remove the problem.
		my $a = $s - time;
		if ( $a > 0 and $a < 5 ) { sleep 5 }

		# Too far in the future, throw an error.
		my $t = time;
		if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

App-FzfUtils

1 match

share/sample0.txt view on Meta::CPAN

hyperplastic imbosoming charitableness copyediting cowering postmidnight humpless ultramontanes bowers wiliness nigrifying serdabs celluloses historian lowlihead complicit ambles tanklike buckled reobjects fibreglass bourgeon readapting retardant eyr...
innumerable remedial forepast noncompressible fearlessness rehousing listers pennyworts microscopist century stilliest photomicrograph crossabilities superficialities uranism functionless roseroots computerists snorted antiwhite resourcefully erythro...
scoundrel gan battlefronts multifactor vesiculae pledgees revengefully limeless scouted sybo cofunction malate chammies throating slags dossel treacheries sweepbacks bistouries chlorofluoromethanes copras statewide diseconomy redbait bacchic tamboura...
craning repps weathers damsel detailing feldspathic majorettes carbamate intergeneration idoneous busking clits alidads trapnest syndications cremating confected revenuer paulownia attenuator concern precoital printable orchestrate lentamente univari...
whoofs vanguards kinglier softheadedness stereophony ensnarls teacart powter innings spalled selfless eardrops decrier bistres empoisoning widener plainsman rechartered unitard bimetals highbush columnal rephrases dissimilarities apprise houselights ...
drivable levuloses penstock boletus kibbutz skirmished dosages correctitudes upsurge newshawk dis scraighed scups hagiographer madonnas prejudicial mercerising upthrow multilane corslet looker gradational counterpart avowable splenii repurchased chur...
ratafees echolalias tawers fauna radiolabelled bituminize coryphaei clypei currach sophisticated recognising flocculant rebranches mesencephala subject dram packager overshirts dimnesses horselike paleoclimatologist telestic palestras shellacking arb...
reembarking outcooks clustery pteropods djin lawbooks thingumajigs microvillar dealt hedgiest exterritorialities rearguard nestlers kyar unburden fromenty nemas unconventionally oxidizable peins overtricks themed transitivenesses duets executable off...
restatements korai rhabdocoele outblushes hadjee kathodal prolonge hieing exoduses inhaulers patchiest coccic bemisted gurnard havarti bowless undried mantrap tombal phosphorescences aludel sweetening conk catalases wrastling billboards triplanes rem...
ashiest despot loggets comers puttier flummeries synereses hearths vamose dissent shrubbiest toxaemic penchant postmillenarians radicalizing disembogued clothing glisters bosks fidget mire pyxidia overoperate ruching wrynesses lownesses itemizations ...
dissentions breezeway dalton nonmajors lone accumulate accumulativenesses mostests blastoporic illuminable looneys popery weatherized captionless churchgoer ferns acaridan marshaling baggers fearsomenesses domineering enjoin untrussing meningococcus ...

view all matches for this distribution

App-GHPT

1 match



1.000010 2018-01-04

- Require the latest WebService::PivotalTracker, which is needed to include
  the PT requester's name without throwing an exception.

- Don't die if optional git configuration keys aren't present.


1.000009 2018-01-04

view all matches for this distribution

App-Genpass-ID

1 match

#    $self->die('YAML_PARSE_ERR_BAD_CHARS')
#      if $self->stream =~ /$ESCAPE_CHAR/;
#    $self->{stream} =~ s/(.)\n\Z/$1/s;
#    $self->lines([split /\x0a/, $self->stream, -1]);
#    $self->line(1);
#    $self->_parse_throwaway_comments();
#    $self->document(0);
#    $self->documents([]);
#    if (not $self->eos) {
#        if ($self->lines->[0] !~ /^---(\s|$)/) {
#            unshift @{$self->lines}, '---';

#    $node =~ s/\n*\Z/\n/;
#    $node =~ s/\n\Z// if $chomp eq '-';
#    return $node;
#}
#
#sub _parse_throwaway_comments {
#    my $self = shift;
#    while (@{$self->lines} and
#           $self->lines->[0] =~ m{^\s*(\#|$)}
#          ) {
#        shift @{$self->lines};

#        }
#        $offset = $self->offset->[++$level];
#    }
#    elsif ($type == COLLECTION and
#           $self->preface =~ /^(\s*(\!\S*|\&\S+))*\s*$/) {
#        $self->_parse_throwaway_comments();
#        if ($self->eos) {
#            $self->offset->[$level+1] = $offset + 1;
#            return;
#        }
#        else {

#            $self->{line}++;
#        }
#        $self->eos($self->{done} = not @{$self->lines});
#    }
#    else {
#        $self->_parse_throwaway_comments();
#    }
#    return if $self->eos;
#
#    if ($self->lines->[0] =~ /^---(\s|$)/) {
#        $self->done(1);

view all matches for this distribution

App-Genpass-WordList

1 match

#    $self->die('YAML_PARSE_ERR_BAD_CHARS')
#      if $self->stream =~ /$ESCAPE_CHAR/;
#    $self->{stream} =~ s/(.)\n\Z/$1/s;
#    $self->lines([split /\x0a/, $self->stream, -1]);
#    $self->line(1);
#    $self->_parse_throwaway_comments();
#    $self->document(0);
#    $self->documents([]);
#    if (not $self->eos) {
#        if ($self->lines->[0] !~ /^---(\s|$)/) {
#            unshift @{$self->lines}, '---';

#    $node =~ s/\n*\Z/\n/;
#    $node =~ s/\n\Z// if $chomp eq '-';
#    return $node;
#}
#
#sub _parse_throwaway_comments {
#    my $self = shift;
#    while (@{$self->lines} and
#           $self->lines->[0] =~ m{^\s*(\#|$)}
#          ) {
#        shift @{$self->lines};

#        }
#        $offset = $self->offset->[++$level];
#    }
#    elsif ($type == COLLECTION and
#           $self->preface =~ /^(\s*(\!\S*|\&\S+))*\s*$/) {
#        $self->_parse_throwaway_comments();
#        if ($self->eos) {
#            $self->offset->[$level+1] = $offset + 1;
#            return;
#        }
#        else {

#            $self->{line}++;
#        }
#        $self->eos($self->{done} = not @{$self->lines});
#    }
#    else {
#        $self->_parse_throwaway_comments();
#    }
#    return if $self->eos;
#
#    if ($self->lines->[0] =~ /^---(\s|$)/) {
#        $self->done(1);

view all matches for this distribution

App-Genpass

1 match

        - POD fix.
        (Tim Heaney)

2.03    03.08.11
        (this release, as the previous, are due to Neil Bowers, so thanks!)
        - Using readable with special now throws an exception. Added in docs.
        - Typo in POD.

2.02    03.08.11
        - RT #69980: clarify the usage of default number of passwords in
        generate() method. (reported by Neil Bowers, thanks!)

view all matches for this distribution

App-GhaInstall

1 match


    # Value
    $$valueref = _decode_value();

    # Leftover data
    return m/\G[\x20\x09\x0a\x0d]*\z/gc || _throw('Unexpected data');
  } ? return undef : chomp $@;

  return $@;
}


    # End
    last if m/\G[\x20\x09\x0a\x0d]*\]/gc;

    # Invalid character
    _throw('Expected comma or right square bracket while parsing array');
  }

  return \@array;
}

  my %hash;
  until (m/\G[\x20\x09\x0a\x0d]*\}/gc) {

    # Quote
    m/\G[\x20\x09\x0a\x0d]*"/gc
      or _throw('Expected string while parsing object');

    # Key
    my $key = _decode_string();

    # Colon
    m/\G[\x20\x09\x0a\x0d]*:/gc
      or _throw('Expected colon while parsing object');

    # Value
    $hash{$key} = _decode_value();

    # Separator


    # End
    last if m/\G[\x20\x09\x0a\x0d]*\}/gc;

    # Invalid character
    _throw('Expected comma or right curly bracket while parsing object');
  }

  return \%hash;
}

  m!\G((?:(?:[^\x00-\x1f\\"]|\\(?:["\\/bfnrt]|u[0-9a-fA-F]{4})){0,32766})*)!gc; # segfault on 5.8.x in t/20-mojo-json.t
  my $str = $1;

  # Invalid character
  unless (m/\G"/gc) {
    _throw('Unexpected character or invalid escape while parsing string')
      if m/\G[\x00-\x1f\\]/;
    _throw('Unterminated string');
  }

  # Unescape popular characters
  if (index($str, '\\u') < 0) {
    $str =~ s!\\(["\\/bfnrt])!$ESCAPE{$1}!gs;

      # Surrogate pair
      if (($ord & 0xf800) == 0xd800) {

        # High surrogate
        ($ord & 0xfc00) == 0xd800
          or pos($_) = $pos + pos($str), _throw('Missing high-surrogate');

        # Low surrogate
        $str =~ m/\G\\u([Dd][C-Fc-f]..)/gc
          or pos($_) = $pos + pos($str), _throw('Missing low-surrogate');

        $ord = 0x10000 + ($ord - 0xd800) * 0x400 + (hex($1) - 0xdc00);
      }

      # Character


  # Null
  return undef if m/\Gnull/gc;  ## no critic (return)

  # Invalid character
  _throw('Expected string, array, object, number, boolean or null');
}

sub _encode_array {
  '[' . join(',', map { _encode_value($_) } @{$_[0]}) . ']';
}


  # String
  return _encode_string($value);
}

sub _throw {

  # Leading whitespace
  m/\G[\x20\x09\x0a\x0d]*/gc;

  # Context

view all matches for this distribution

App-Git-Workflow-Command-Take

1 match

lib/App/Git/Workflow/Command/Take.pm view on Meta::CPAN


   git-take-mine [option] [path_or_file]

 OPTIONS:
  -q --quiet    Suppress notifying of files changed
     --ours     Take choanges from current branch throwing away other branches changes
     --theirs   Take changes from merging branch throwing away current branches changes

  -v --verbose  Show more detailed option
     --VERSION  Prints the version information
     --help     Prints this help information
     --man      Prints the full documentation for git-take-mine

view all matches for this distribution

App-Git-Workflow

2 results

        Converted git-up-to-date (Ivan Wills)
        Got coverage to 99.3% (Ivan Wills)
        Fixed bad remote definition (Ivan Wills)
        Converted git-watch (Ivan Wills)
        Converted git-feature (Ivan Wills)
        Added test for thrown errors (Ivan Wills)
        Changed order of run commands for clarity (Ivan Wills)
        Converted git-files (Ivan Wills)
        Added more information when errors occur (Ivan Wills)
        Fixed checking wrong variable for STDERR test, cleaned up output (Ivan Wills)
        Fixed bad execption catching (Ivan Wills)

view all matches for this distribution

App-GitFind

1 match

lib/App/GitFind/PathClassMicro.pm view on Meta::CPAN

Returns a list of the directory components of this file, followed by
the basename.

Note: unlike C<< $dir->components >>, this method currently does not
accept any arguments to select which elements of the list will be
returned.  It may do so in the future.  Currently it throws an
exception if such arguments are present.


=item $file->is_dir

lib/App/GitFind/PathClassMicro.pm view on Meta::CPAN


=item $file->slurp()

In a scalar context, returns the contents of C<$file> in a string.  In
a list context, returns the lines of C<$file> (according to how C<$/>
is set) as a list.  If the file can't be read, this method will throw
an exception.

If you want C<chomp()> run on each line of the file, pass a true value
for the C<chomp> or C<chomped> parameters:

lib/App/GitFind/PathClassMicro.pm view on Meta::CPAN


=item $file->spew( $content );

The opposite of L</slurp>, this takes a list of strings and prints them
to the file in write mode.  If the file can't be written to, this method
will throw an exception.

The content to be written can be either an array ref or a plain scalar.
If the content is an array ref then each entry in the array will be
written to the file.

lib/App/GitFind/PathClassMicro.pm view on Meta::CPAN

    my $fh = $file->open('r') or die "Can't read $file: $!";
    ...
  }

If an error occurs when opening the directory (for instance, it
doesn't exist or isn't readable), C<next()> will throw an exception
with the value of C<$!>.

=item $dir->traverse( sub { ... }, @args )

Calls the given callback for the root, passing it a continuation

view all matches for this distribution

App-GitHooks

8 results

lib/App/GitHooks/Hook.pm view on Meta::CPAN

		# generating the method name to run.
		my $method = 'run_' . $app->get_hook_name();
		$method =~ s/-/_/g;

		# Run the plugin method corresponding to this hook.
		# If the plugin throws an exception, print the error message and consider
		# the return code to be a failure.
		my $return_code = try
		{
			return $plugin->$method(
				app   => $app,

view all matches for this distribution

App-GitHub-FindRepository

1 match

	# If the modification time is only slightly in the future,
	# sleep briefly to remove the problem.
	my $a = $s - time;
	if ( $a > 0 and $a < 5 ) { sleep 5 }

	# Too far in the future, throw an error.
	my $t = time;
	if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

App-GitHub-FixRepositoryName

1 match

	# If the modification time is only slightly in the future,
	# sleep briefly to remove the problem.
	my $a = $s - time;
	if ( $a > 0 and $a < 5 ) { sleep 5 }

	# Too far in the future, throw an error.
	my $t = time;
	if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

App-Gitc

4 results

lib/App/Gitc/Its/Eventum.pm view on Meta::CPAN

        $rc = eval { $issue->transition_status($from, $to) } if $to;
        $status_exception = $@ if $@;
        $issue->update;
        $issue->live_updates;
    };
    die $@ if $@;  # rethrow unexpected exceptions
    if ( $status_exception ) {
        die $status_exception
            if $status_exception !~ m/('[^']+' is not a valid status name)/;
        return "NOT CHANGING Eventum status: $1\n";
    }

view all matches for this distribution

App-Greple-wordle

4 results

lib/App/Greple/wordle/NYT.pm view on Meta::CPAN

texes texta texts thack thagi thaim thale thali thana thane thang thank thans 
thanx tharm thars thaws thawt thawy thebe theca theed theek thees theft thegn 
theic thein their thelf thema theme thens theor theow there therm these thesp 
theta thete thews thewy thick thief thigh thigs thilk thill thine thing think 
thins thiol third thirl thoft thole tholi thong thorn thoro thorp those thots 
thous thowl thrae thraw three threw thrid thrip throb throe throw thrum thuds 
thugs thuja thumb thump thunk thurl thuya thyme thymi thymy tians tiara tiare 
tiars tibia tical ticca ticed tices tichy ticks ticky tidal tiddy tided tides 
tiefs tiers tiffs tifos tifts tiger tiges tight tigon tikas tikes tikia tikis 
tikka tilak tilde tiled tiler tiles tills tilly tilth tilts timbo timed timer 
times timid timon timps tinas tinct tinds tinea tined tines tinge tings tinks

lib/App/Greple/wordle/NYT.pm view on Meta::CPAN

angel music frank close snare stone brush carol right rocky loyal smile coach 
azure daddy beret merry while spurt bunch chime viola binge truth snail skunk 
knelt uncle agent leaky graph adult mercy splat occur smirk given tempo cause 
retry pique noble mason phony grail bleak noise until ardor mania flare trade 
limit ninja glaze leash actor meant green sassy sight trust tardy think queue 
candy piano pixel queen throw guide solid tawny scope sushi resin taken genre 
adapt worst young woman sleep sharp shift chain house these spent would topic 
globe bacon funny table small built touch slope grace evoke phone daisy learn 
child three salty mural aging twirl scant lunge cable stony final liner threw 
brief route heard doing lunch blond court stole thing large north tweak still 
relic block aloof snake ember leggy expel bulky alive cleft micro verge repel

view all matches for this distribution

App-Guiio

1 match

Todo.txt view on Meta::CPAN


#missing: save connections

#error moving groups looses connection

#thrown a few boxes and arrows in an empty document

#keyboard short cut
	transparent mode
	show connectors connections

view all matches for this distribution

App-HL7-Dump

1 match

		# If the modification time is only slightly in the future,
		# sleep briefly to remove the problem.
		my $a = $s - time;
		if ( $a > 0 and $a < 5 ) { sleep 5 }

		# Too far in the future, throw an error.
		my $t = time;
		if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

view all matches for this distribution

App-HL7-Send

1 match