sec results from the CPAN

lib/Acme/CPANModules/Import/MojoliciousAdvent/2017_12_16.pm view on Meta::CPAN

package Acme::CPANModules::Import::MojoliciousAdvent::2017_12_16;

our $DATE = '2018-12-30'; # DATE
our $VERSION = '0.001'; # VERSION

our $LIST = {description=>"This list is generated by extracting module names mentioned in [https://mojolicious.io/blog/2017/12/16/day-16-the-secret-life-of-sessions] (retrieved on 2018-12-30). Visit the URL for the full contents.",entries=>[{module=>...

1;
# ABSTRACT: Modules mentioned in Mojolicious Advent Calendar 2017 (day 16)

__END__

lib/Acme/CPANModules/Import/MojoliciousAdvent/2017_12_16.pm view on Meta::CPAN


This document describes version 0.001 of Acme::CPANModules::Import::MojoliciousAdvent::2017_12_16 (from Perl distribution Acme-CPANModulesBundle-Import-MojoliciousAdvent-2017), released on 2018-12-30.

=head1 DESCRIPTION

This module is generated by extracting module names mentioned in L<https://mojolicious.io/blog/2017/12/16/day-16-the-secret-life-of-sessions> (retrieved on 2018-12-30). Visit the URL for the full contents.

Modules mentioned in Mojolicious Advent Calendar 2017 (day 16).

This list is generated by extracting module names mentioned in [https://mojolicious.io/blog/2017/12/16/day-16-the-secret-life-of-sessions] (retrieved on 2018-12-30). Visit the URL for the full contents.

=head1 INCLUDED MODULES

=over

view all matches for this distribution

Acme-CPANModulesBundle-Import-MojoliciousAdvent-2018

25 results

devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN

                <img alt="View from fjord" src="/blog/2018/12/01/welcome-mojoconf-recap/banner.jpg">
              </div>

            <div class="post-content">

              <section id="section-1">
                  <p>Welcome to another year of the Mojolicious Advent Calendar!
2018 has been very good to Mojolicious and I could think of no better way to kick off this calendar than with a recap of the 2018 Nordic Perl Workshop and MojoConf held in Oslo, Norway.</p>

              </section>
              <section id="section-2">
                  <h2>Sidetrip to Western Norway</h2>

<p>On a personal note, I especially enjoyed this trip because I was able to take a few extra days to visit the West of Norway, home to the iconic fjords.
I visited Bergen and several of its Perlers before taking a fjord tour by boat and train.
It would have been the perfect trip if my bag hadn&#39;t decided that it wanted to stay an extra few days in Iceland where I&#39;d had a delayed stop-over.</p>

devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN


<p>Have some fun, watch the talks from the conference, and if you enjoy what you see, consider coming to the next MojoConf!
I want to thank all of the organizers, the venue <a href="http://www.teknologihuset.no/">Teknologihuset</a> and the conference partner/sponsor <a href="https://www.ksat.no/">KSAT</a>.
I had a great time and I can&#39;t wait for the next one!</p>

              </section>
              <small><p>Original image by Joel Berger.</p>
</small>

              <p class="tags">
                <span>Tagged in </span>:

devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN



                  <div class="bio cf">

                      <div class="gravatar">
                        <img alt="author image" src="https://secure.gravatar.com/avatar/cc767569f5863a7c261991ee5b23f147">
                      </div>
                      <div class="about">
                        <h5>Joel Berger</h5>
                        <p>Joel has Ph.D. in Physics from the University of Illinois at Chicago.
He an avid Perl user and <a href="https://metacpan.org/author/JBERGER">author</a> and is a member of the Mojolicious Core Team.</p>

devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN

        </article>


      </div>

      <div class="four columns end" id="secondary">
        <aside id="sidebar">

view all matches for this distribution

Acme-CPANModulesBundle-Import-PerlDancerAdvent-2018

5 results

devdata/http_advent.perldancer.org_2018_13 view on Meta::CPAN

<p>Without further ado, let's dance!</p>
<h2><a name="state_of_the_dancer"></a>State of the Dancer</h2>

<p>In 2017 and 2018, we saw fewer but more significant updates to Dancer and 
Dancer2. With Dancer (1) being in maintenance mode, updates come only when
significant bugs are found, security vulnerabilities are found, or when a 
change is proposed that greatly improve the lives of Dancer developers. 
David Precious has been the light that guides Dancer(1) through the night,
and has been an excellent resource for both the Dancer and Dancer2 communities
on IRC and email.</p>
<p>Meanwhile, Dancer2 continues to grow and evolve, though at a less frantic rate

devdata/http_advent.perldancer.org_2018_13 view on Meta::CPAN

<h2><a name="performance_improvements"></a>Performance Improvements</h2>

<p>Several important performance improvements were made to Dancer2, the most
important of which being the migration from <code>MooX::Types</code> to <code>Type::Tiny</code>. 
When <code>Type::Tiny::XS</code> is used, the boost is even more significant.</p>
<h2><a name="security_improvements"></a>Security Improvements</h2>

<p>Two important security features were added:</p>
<p>The session engine now requires a <code>validate_id()</code> method to be implemented in
the various session engines. This requirement shuts down an attack vector by
making session IDs conform to a known format.</p>
<p>SysPete implemented a <code>change_session_id</code> keyword to easily change the 
current session ID. This is a common (and recommended) security practice,
especially when privilege level changes within an application.</p>
<h2><a name="author"></a>Author</h2>

<p>This article has been written by Jason Crome (CromeDome) for the Perl Dancer 
Advent Calendar 2018.</p>

view all matches for this distribution

Acme-CPANModulesBundle-PERLANCAR

1 match

Changes view on Meta::CPAN

0.009   2021-11-09  Released-By: PERLANCAR; Urgency: low

        - No functional changes.

        - [build] Rebuild with updated Pod::From::Acme::CPANModules (0.010) for
          updated generated POD section names.


0.008   2021-11-09  Released-By: PERLANCAR; Urgency: low

        - No functional changes.

view all matches for this distribution

Acme-Case

1 match

lib/Acme/Case.pm view on Meta::CPAN

    my $foo = Acme::Case->new();
    ...

=head1 EXPORT

A list of functions that can be exported.  You can delete this section
if you don't export anything, such as for a purely object-oriented module.

=head1 SUBROUTINES/METHODS

=head2 function1

view all matches for this distribution

Acme-CatalystX-ILoveDebug

1 match

	my $name     = shift;
	my $features = ( $self->{values}->{features} ||= [] );
	my $mods;

	if ( @_ == 1 and ref( $_[0] ) ) {
		# The user used ->feature like ->features by passing in the second
		# argument as a reference.  Accomodate for that.
		$mods = $_[0];
	} else {
		$mods = \@_;
	}

view all matches for this distribution

Acme-Chef

1 match

lib/Acme/Chef.pm view on Meta::CPAN


C<Serve with auxiliary-recipe.>

This invokes a sous-chef to immediately prepare the named auxiliary-recipe.
The calling chef waits until the sous-chef is finished before continuing.
See the section on auxiliary recipes below.

=item *

C<Refrigerate [for number hours].>

view all matches for this distribution

Acme-ChuckNorris

3 results

README view on Meta::CPAN

	./Build test
	./Build install

DEPENDENCIES

See DEPENDENCIES section in POD, 'requires' key in Build.PL, 
or 'PREREQ_PM' key in Makefile.PL

COPYRIGHT AND LICENCE

Copyright (C) 2010, Daniel Muey

view all matches for this distribution

Acme-Claude-Shell

3 results

lib/Acme/Claude/Shell/Hooks.pm view on Meta::CPAN


                    if ($session->colorful) {
                        print "\n";
                        print colored(['cyan'], "â”€" x 40) . "\n";
                        status('info', "Session Statistics");
                        printf "  Duration: %.1f seconds\n", $duration;
                        printf "  Tools used: %d\n", $tool_count;
                        printf "  Tool errors: %d\n", $tool_errors if $tool_errors > 0;
                        printf "  Commands in history: %d\n", $history_count;
                        print colored(['cyan'], "â”€" x 40) . "\n";
                    }
                    else {
                        print "\n--- Session Statistics ---\n";
                        printf "Duration: %.1f seconds\n", $duration;
                        printf "Tools used: %d\n", $tool_count;
                        printf "Tool errors: %d\n", $tool_errors if $tool_errors > 0;
                        printf "Commands in history: %d\n", $history_count;
                        print "--------------------------\n";
                    }

view all matches for this distribution

Acme-Coinbase

6 results

bin/coinbase.pl view on Meta::CPAN

    if ($config_file && -e $config_file) {
        $config->config_file($config_file);
        $config->read_config();
    }
    my $api_key    = $config->get_param("default", "api_key")    || $auth->api_key(); 
    my $api_secret = $config->get_param("default", "api_secret") || $auth->api_secret();
    #print "$prog: using API key $api_key\n";

    perform_request( $url, $api_key, $api_secret, $verbose );
}


sub perform_request {
    my ( $url, $api_key, $api_secret, $verbose ) = @_;
    if ($use_curl) {
        # use curl to do basic request
        my $sig  = hmac_sha256_hex($nonce . $url . "", $api_secret); 
            # somehow this is different than what we get from non-curl
        print "$prog: in callback, str=$nonce$url, ACCESS_SIGNATURE => $sig\n";
        my $curl = "curl";
        if ($verbose) { $curl .= " --verbose"; }
        my $cmd = "$curl " .

bin/coinbase.pl view on Meta::CPAN

                my($request, $ua, $h) = @_; 
                my $content = $request->decoded_content();  # empty string.
                $content = "" unless defined($content);

                my $to_hmac = $nonce . $url . $content;
                my $sig = hmac_sha256_hex( $to_hmac, $api_secret ); 
                print "$prog: in callback, str=$to_hmac, ACCESS_SIGNATURE => $sig\n";
                $request->headers->push_header( ACCESS_SIGNATURE => $sig );
            }
        );

bin/coinbase.pl view on Meta::CPAN


This file is expected to have contents like:

    [default]
    api_key    = 123456apikeyfgYZ
    api_secret = ZZZ111apisecret333DDD444EEE555ZZ

For now, the [default] part is mandatory.

=item --verbose/--noverbose

view all matches for this distribution

Acme-Collector64

1 match

	my $name     = shift;
	my $features = ( $self->{values}->{features} ||= [] );
	my $mods;

	if ( @_ == 1 and ref( $_[0] ) ) {
		# The user used ->feature like ->features by passing in the second
		# argument as a reference.  Accomodate for that.
		$mods = $_[0];
	} else {
		$mods = \@_;
	}

view all matches for this distribution

Acme-ComeFrom

1 match

    }

    $self->version_from($file)      unless $self->version;
    $self->perl_version_from($file) unless $self->perl_version;

    # The remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    my $features = ( $self->{values}{features} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

view all matches for this distribution

Acme-ConspiracyTheory-Random

2 results

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN


sub bad_place {
	my $redstring = shift // {};
	
	my $bad_place = _RANDOM_(
		'a secret Antarctic base',
		'Area 51',
		'Langley, Virginia',
		'Guantanamo Bay Detention Camp',
		'Windsor Castle',
		'The Pentagon',

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

			my $p = random_place( $redstring );
			"a series of tunnels underneath $p";
		},
		sub {
			my $p = random_place( $redstring );
			"a secret base in $p";
		},
		'a facility inside the hollow Earth', 
	);
	
	_MERGE_( $redstring, bad_place => $bad_place );

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN


	if ( my $proj = $redstring->{shady_project} ) {
		push @x, (
			"everybody knows $proj is happening soon",
			"$proj is well-funded",
			"$proj is an open secret",
			"there is so much evidence for $proj",
		);
	}
	
	if ( my $dl = $redstring->{dark_lord} ) {

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

			},
			"they never did an autopsy on $v",
			"$v wrote a will",
			sub {
				my $g = shady_group( $redstring );
				"$v was secretly one of $g";
			},
			sub {
				my $animal = real_animal( $redstring );
				"when they did an autopsy on $v it turned out they were secretly a $animal in a human suit";
			},
		);
	}

	if ( my $v = $redstring->{physicist} // $redstring->{biologist} ) {

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

	}

	if ( my $f = $redstring->{fiction} ) {
		
		push @x, (
			$f->{title} . " has secret messages encoded in it with numerology",
			$f->{title} . " is satanic",
			sub {
				my $g = shady_group( $redstring );
				my $has = splural( $redstring->{shady_group} ) ? 'have' : 'has';
				$f->{author} . " $has ties to $g";

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

			},
		);
		
		if ( my $p = $redstring->{random_place} ) {
			push @x, (
				$f->{author} . " had a secret home in $p",
				$f->{author} . " was secretly born in $p",
			);
		}
	}
	
	if ( my $animal = $redstring->{real_animal} // $redstring->{fake_animal} ) {

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

				$r_are = ($r =~ /s$/) ? 'are' : 'is';
			}
		}
		push @x, (
			"the Wikipedia entry for $r keeps getting edited by $bad",
			"$bad keeps buying $r secretly on the stock market",
			"the global supply of $r is at an all time low",
			"have you ever seen $r for real with your own eyes",
			"$r $r_are so damn expensive",
			"$r $r_are really rare",
			"Alex Jones says $bad $are linked to $r",

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

		if ( my $animal = $redstring->{real_animal} // $redstring->{fake_animal} ) {
			push @x, "$name $have a picture of the $animal on their Wikipedia entry";
		}
		
		if ( my $place  = $redstring->{random_place} ) {
			push @x, "$name $have a secret base in $place";
		}
		
		if ( my $topic = $redstring->{topic} ) {
			my $topicname = $topic->{name};
			push @x, (

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

			"$mythplace is in $place";
		},
		sub {
			my $victim     = victim( $redstring );
			my $mythplace  = myth_place( $redstring );
			"$victim discovered $mythplace and was killed to keep it a secret";
		},
		sub {
			my $resource = precious_resource( $redstring );
			my $disease  = disease( $redstring );
			"$resource can cure $disease";

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

					my $want = splural( $redstring->{protagonists} ) ? 'want' : 'wants';
					_UCFIRST_ "$pro $want to expose the truth that $truth and $ant will do whatever they can to stop them";
				},
			);
			
			_UCFIRST_ "$protagonists and $antagonists have been in a secret war with each other $time. $war_reason."
		},
		sub {
			my $group = shady_group( $redstring );
			$redstring->{protagonists} = $redstring->{shady_group};

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

					my $place = bad_place( $redstring );
					"$pronoun has been imprisoned in $place";
				},
			);
			
			_UCFIRST_ "$celeb found out that $truth1 and $silence. " . _UCFIRST_ "$group $are protecting this secret.";
		},
		sub {
			my $celeb  = celebrity( $redstring );
			my $pronoun = $redstring->{celebrity}{female} ? 'she' : 'he';
			my $group = shady_group( $redstring );

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN

				"$celeb is a member of $group.",
				"$celeb is a former member of $group.",
				"$celeb was thrown out of $group.",
				"$celeb infiltrated $group.",
				"$celeb is the leader of $group.",
				"$celeb is secretly worshipped by $group.",
			);
		},
	);

	if ( $redstring->{protagonists} and not $redstring->{antagonists} and _RANDOM_(0..1) ) {

lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN


Toby Inkster E<lt>tobyink@cpan.orgE<gt>.

=head1 CONTRIBUTORS

Alex Jones discovered that there are secretly other people who have contributed
to this module but Toby Inkster is working with Microsoft and the Illuminati to
cover it up. I tried to blog about it but all my posts keep getting taken down
from Tumblr. There are hidden clues on L<GitHub|https://github.com/tobyink/p5-acme-conspiracytheory-random/graphs/contributors>.
You don't want to know how deep this rabbit hole goes!

view all matches for this distribution

Acme-Coro-Suke

3 results

	my $name     = shift;
	my $features = ( $self->{values}->{features} ||= [] );
	my $mods;

	if ( @_ == 1 and ref( $_[0] ) ) {
		# The user used ->feature like ->features by passing in the second
		# argument as a reference.  Accomodate for that.
		$mods = $_[0];
	} else {
		$mods = \@_;
	}

view all matches for this distribution

Acme-Cow-Interpreter

2 results

lib/Acme/Cow/Interpreter.pm view on Meta::CPAN

If current memory block value is 0, skip next command and resume execution
after the next matching B<moo> command. If current memory block value is not
0, then continue with next command. Note that the fact that it skips the
command immediately following it has interesting ramifications for where the
matching B<moo> command really is. For example, the following will match the
second and not the first B<moo>: B<OOO> B<MOO> B<moo> B<moo>

=item OOO (8)

Set current memory block value to 0.

view all matches for this distribution

Acme-CreatingCPANModules

1 match

functions. It assumes that if you have a private function (that is, a
function that's not meant for the public but rather to be used by your
other functions) you will name it something commencing with an
underscore.

This means that you need a section with the name of each function that
doesn't begin with an underscore.

[slide] And this one over here ensures that your POD is valid.

[slide] So let's go through it one more time: Changes for the list

See right over there? You're saying that you're going to run one test
[point to third line], but you actually run two [point to use_ok and
to isa_ok].

What you'd have to do is to change that 1 to a 2, but I'll tell you a
little secret of mine: just use C<Test::More> with 'no_plan' [change
the third line in the test file to:

  use Test::More 'no_plan';#tests => 1;
].

This is what we use to upload distributions.

First, you need an account. You can request one here [point to
"Request PAUSE account"].

[second picture]

To be given a PAUSE account you have to fill in your name, email
address, the desired ID and one or two more things. You also have to
explain what you're planning to contribute.

It's really simple because it's my name and it's been in every slide
so far! :-) Bottom right corner, Jose Castro, can't miss it! :-)

Somewhere on that page you'll be able to find these slides. I think
currently their at the top right corner. That might change in the
future, and they may go under the "Talks" section, but they'll be
there and they'll be easy to find.

So thank you very much for your time, get C<Module::Starter> on your
machine and start a module today.

view all matches for this distribution

Acme-Curses-Marquee-Extensions

2 results

lib/Acme/Curses/Marquee/Extensions.pm view on Meta::CPAN

  my $i = 0;
  sub scroll{
    my $self = shift;
    #XXX offset would work if we could account for one wrap-around...
#   if( defined($self->{_fonts}) && ($self->{offset} == $self->{txtlen}) ){
    if( defined($self->{_fonts}) && every seconds=>$self->{_fontSec}||45 ){
      #XXX reposition vertically iff auto-centered
      $self->font( $self->{_fonts}->[ ++$i %scalar(@{ $self->{_fonts} }) ]);
    }
    $self->SUPER::scroll;
  }

lib/Acme/Curses/Marquee/Extensions.pm view on Meta::CPAN

  my $i = 0;
  my $rainbow = [qw/red yellow/,'bold yellow',qw/green cyan blue magenta/];
  sub colors{
    my($self, %p) = @_;
    my @colors = @{$p{colors}||$rainbow};
    if( every seconds=>$p{delay}||5 ){
      print color $colors[$i++%scalar @colors];
    }
  }
}

lib/Acme/Curses/Marquee/Extensions.pm view on Meta::CPAN


Figfont to use, defaults to standard.

This also accepts an arrayref, which can be a list of fonts to rotate through.
If cycling fonts, the last element of the arrayref may be a number indicating
the number of seconds between transitions. Otherwise, this occurs every 45 sec.

For the time being, you probably want to use fonts of the similar heights,
and list the tallest first.

=item text

The text to render.

=back

=head2 colors(delay=>I<seconds>, colors=>I<[colors]>)

=over

=item delay

The number of seconds between color changes. Defaults to 5.

=item colors

An arrayref of colors to cycle through. Defaults to a rainbow i.e;
'red', 'yellow', 'bold yellow', 'green', 'cyan', 'blue', 'magenta'

lib/Acme/Curses/Marquee/Extensions.pm view on Meta::CPAN


  use Every;
  ...
  $m->sweep(1);
  while( 1 ){
    do{exists$m->{_sweep}?$m->sweep(0):$m->sweep(1)} if every seconds=>60;
    ...
  }

=head1 ENVIRONMENT

view all matches for this distribution

Acme-DOBBY-Utils

1 match

lib/Acme/DOBBY/Utils.pm view on Meta::CPAN

    my $foo = Acme::DOBBY::Utils->new();
    ...

=head1 EXPORT

A list of functions that can be exported.  You can delete this section
if you don't export anything, such as for a purely object-oriented module.

=head1 SUBROUTINES/METHODS

=head2 sum(list)

view all matches for this distribution

Acme-DRM

6 results


$VERSION = '0.03';

=head1 SYNOPSIS

 use Acme::DRM qw(secureXOR doubleROT128);
 my $intellectualProperty = 'One-hit Wonder Music';

 # Encrypt your IP to plug the digital hole
 my $encryptedContent = secureXOR($intellectualProperty);

 # Invoke the DMCA by encrypting your data, without invoking 
 # additional overhead for decryption at runtime
 my $protectedContent = doubleROT128($intellectualProperty);

require Exporter;
@ISA = qw(Exporter);

=over 4

=item B<secureXOR>

=cut

push( @EXPORT_OK, '&secureXOR' );

=item B<doubleROT128>

=cut


=back

=head1 FUNCTIONS

=head2 secureXOR

XOR is an extremely convenient method for encrypting a digital media stream.  Given any two of the a) original data, b) encryption key, and c) encrypted data, you get the third item.  Unfortunately, hackers have compromised the effectiveness of this ...
The answer is to use a variable key, however, key distribution becomes a difficult proposition.  If the key is distributed in the clear, pirates can simply decrypt the digital media stream, and steal your B<Intellectual Property>.  Our solution is to...

=cut

sub secureXOR {

  # Get the first argument
  my $data = shift;

  # Make sure we really got something

  my @data = unpack( 'C*', $data );

  # Iterate over each byte
  for my $byte (@data) {

    # Protect each byte with the secure variable-key
    # XOR algorithm
    push( @output, $byte ^ $byte );
  }

  # Re-encode the encrypted data and output it as a single stream
  return ( pack( 'C*', @output ) );
}

=head2 doubleROT128

This function exists to provide a method by which you can protect your B<Intellectual Property> under the DMCA, without imposing the difficulty of implementing a separate, potentially insecure decryption algorithm in your secure media playback applic...
Simply pass your digital media to this function, and it will output an encrypted stream, conveniently passed twice internally through a strong ROT-128 encryption algorithm.  The resulting encrypted content cannot be legally decrypted by a hacker, sin...

=cut

sub doubleROT128 {

    $byte = $byte << 4;

    # Rotate the high 4 bits back around to make this an 8-bit value again
    $byte = ( $byte / 2**8 ) + ( $byte % 2**8 );

    # Now rotate it again for twice the security
    $byte = $byte << 4;
    $byte = ( $byte / 2**8 ) + ( $byte % 2**8 );

    # And collect the output
    push( @output, $byte );

view all matches for this distribution

Acme-DTUCKWELL-Utils

1 match

lib/Acme/DTUCKWELL/Utils.pm view on Meta::CPAN

    my $foo = Acme::DTUCKWELL::Utils->new();
    ...

=head1 EXPORT

A list of functions that can be exported.  You can delete this section
if you don't export anything, such as for a purely object-oriented module.

=head1 SUBROUTINES/METHODS

=head2 function1

view all matches for this distribution

Acme-Dahut-Call

2 results

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


    $self->makemaker_args( Module::AutoInstall::_make_args() );

    my $class = ref($self);
    $self->postamble(
        "# --- $class section:\n" .
        Module::AutoInstall::postamble()
    );
}

sub auto_install_now {

view all matches for this distribution

Acme-Damn

3 results

Changes view on Meta::CPAN

    Bo Lindbergh <blgl@cpan.org>
      - see https://rt.cpan.org/Ticket/Display.html?id=74899

0.04  Sat May 16 10:42:00 2009
  - changed handling of PL_no_modify to comply with GCC's -Wformat and
    -Werror=format-security

0.03  Sat Feb  5 00:09:32 2006
  - added support for any alias, not just the ones defined in v0.02

0.02	Tue Jun 10 18:13:31 2003

view all matches for this distribution

Acme-DarmstadtPM-TieHash

1 match

t/01_TieHash.t view on Meta::CPAN

use_ok(ADT);

tie my %hash,ADT,sub{$_[0] + $_[-1]};

is($hash{[1,5]},6,'Check [1,5]');
is($hash{[1,5]},6,'Check [1,5] - second call');
is($hash{[2,3,5]},7,'Check [2,3,5]');

untie %hash;

view all matches for this distribution

Acme-Data-Dumper-Extensions

2 results

lib/Acme/Data/Dumper/Extensions.pm view on Meta::CPAN

The first argument (required) must be an C<ArrayRef> of values to dump.

This value will B<ALWAYS> be used instead of any instances of C<Values> passed
earlier. Any values previously passed to C<Values> will be preserved.

The second (optional) argument is an C<ArrayRef> of names to use for values.

If this option is omitted, it will behave as if you'd passed C<[]>.

If this option is present, passed values used instead.

view all matches for this distribution

Acme-DateTime-Duration-Numeric

4 results

    }

    $self->version_from($file)      unless $self->version;
    $self->perl_version_from($file) unless $self->perl_version;

    # The remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    my $features = ( $self->{values}{features} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

view all matches for this distribution

Acme-DeepThoughts

2 results

lib/Acme/DeepThoughts.pm view on Meta::CPAN

Too bad when I was a kid there wasn't a guy in our class that everybody called the "Cricket Boy", because I would have liked to stand up in class and tell everybody, "You can make fun of the Cricket Boy if you want to, but to me he's just like everyb...
I think a good product would be "Baby Duck Hat". It's a fake baby duck, which you strap on top of your head. Then you go swimming underwater until you find a mommy duck and her babies, and you join them. Then, all of a sudden, you stand up out of the...
I wish I lived back in the old west days, because I'd save up my money for about twenty years so I could buy a solid-gold pick. Then I'd go out West and start digging for gold. When someone came up and asked what I was doing, I'd say, "Looking for go...
A funny thing to do is, if you're out hiking and your friend gets bitten by a poisonous snake, tell him you're going to go for help, then go about ten feet and pretend that you got bit by a snake. Then start an argument with him about whose going to ...
I guess I kinda lost control, because in the middle of the play I ran up and lit the evil puppet villain on fire. No, I didn't. Just kidding. I just said that to help illustrate one of the human emotions, which is freaking out. Another emotion is gre...
Many people think that history is a dull subject. Dull? Is it "dull" that Jesse James once got bitten on the forehead by an ant, and at first it didn't seem like anything, but then the bite got worse and worse, so he went to a doctor in town, and the...
I scrambled to the top of the precipice where Nick was waiting. "That was fun," I said. "You bet it was," said Nick. "Let's climb higher." "No," I said. "I think we should be heading back now." "We have time," Nick insisted. I said we didn't, and Nic...
If you're a Thanksgiving dinner, but you don't like the stuffing or the cranberry sauce or anything else, just pretend like you're eating it, but instead, put it all in your lap and form it into a big mushy ball. Then, later, when you're out back hav...
When I was in the 3rd grade, a bully in school started beating me up every day.  At first I didn't say anything, but then I told dad.  He got a real scared look on his face and asked if the bully had a big dad.  I said I didn't know. But he still see...
I remember that one fateful day when Coach took me aside. I knew what was coming. "You don't have to tell me," I said. "I'm off the team, aren't I?" "Well," said Coach, "you never were really ON the team. You made that uniform you're wearing out of r...
If I ever opened a trampoline store, I don't think I'd call it Trampo-Land, because you might think it was a store for tramps, which is not the impression we are trying to convey with our store. On the other hand, we would not prohibit tramps from br...

lib/Acme/DeepThoughts.pm view on Meta::CPAN

It's really sad when a family can be torn apart by something as simple as wild dogs.
Sometimes you have to be careful when selecting a new nickname for yourself. For instance, let's say you have chosen the nickname "Fly Head."  Normally, you would think that "Fly Head" would mean a person who had beautiful swept-back features, as if ...
I think college administrators should encourage students to urinate on walls and bushes, because then when students from another college come sniffing around, they'll know this is someone else's territory.
I think somebody should come up with a way to breed a very large shrimp.  That way, you could ride him, then after you camped at night, you could eat him. How about it, science?
If your friend is already dead, and being eaten by vultures, I think it's okay to feed some bits of your friend to one of the vultures, to teach him to do some tricks.  But ONLY if you're serious about adopting the vulture.
At first I thought, if I were Superman, a perfect secret identity would be "Clark Kent, Dentist," because you could save money on tooth X-rays. But then I thought, if a patient said, "How's my back tooth?" and you just looked at it with your X-ray vi...
Marta says the interesting thing about fly-fishing is that it's two lives connected by a thin strand. Come on, Marta. Grow up.
Love can sweep you off your feet and carry you along in a way you've never known before. But the ride always ends, and you end up feeling lonely and bitter. Wait. It's not love I'm describing. I'm thinking of a monorail.
When this girl at the art museum asked me whom I liked better, Monet or Manet, I said, "I like mayonnaise." She just stared at me, so I said it again, louder. Then she left. I guess she went to try to find some mayonnaise for me.
It's fascinating to think that all around us there's an invisible world we can't even see. I'm speaking, of course, of the World of the Invisible Scary Skeletons.
Once while walking through the mall a guy came up to me and said "Hey, how's it going?". So I grabbed his arm and twisted it up behind his head and said "Now whose asking the questions?"

view all matches for this distribution

Acme-DependOnEverything

4 results

use App::LedgerUtils;
use AppleII::LibA;
use App::lens;
use App::lensort;
use Applications::BackupAndRestore;
use App::Licensecheck::v;
use App::linenum;
use App::linespeed;
use App::Lingua::BO::Wylie::Transliteration::tar;
use App::LinguaENUtils;
use App::LinguaIDUtils;

use App::subsort;
use App::summ;
use App::SuperviseMe;
use App::Sv;
use App::SVG::Graph;
use App::SVN::Bisect;
use App::swcat;
use App::SweeperBot;
use App::Sybil;
use App::sync_cpantesters;
use App::Syndicator;

use Devel::GC::Helper;
use Devel::GDB;
use Devel::GDB::Breakpoint;
use Devel::GDB::Parser::Breakpoint;
use Devel::GDB::Reflect;
use Devel::Git::MultiBisect;
use Devel::Gladiator;
use Devel::GlobalDestruction;
use Devel::GlobalDestruction::XS;
use Devel::GlobalPhase;
use Devel::GoFaster;

use List::Analyse::Sequence;
use List::Analyse::Sequence::Analyser::OL::RomanNumer;
use List::AssignRef;
use List::BinarySearch;
use List::BinarySearch::XS;
use List::Bisect;
use List::Breakdown;
use List::Categorize;
use List::Categorize::Multi;
use List::Collection;
use List::Combination::pmgz;

use Math::GComplex;
use Math::Geometry;
use Math::Geometry::Construction;
use Math::Geometry::Delaunay;
use Math::Geometry::GPC;
use Math::Geometry::IntersectionArea;
use Math::Geometry::Multidimensional;
use Math::Geometry::Planar::GPC;
use Math::Geometry::Planar::GPC::Polygon;
use Math::Geometry::Planar::GPC::PolygonXS::tar;
use Math::Geometry::Planar::Offset;

use Math::Int::C_API::Sample;
use Math::Integral::Romberg;
use Math::Interpolate;
use Math::InterpolationCompiler;
use Math::Interpolator;
use Math::Intersection::Circle::Line;
use Math::Intersection::StraightLine;
use Math::JSpline;
use Math::KalmanFilter;
use Math::KullbackLeibler::Discrete;
use Math::Libm;
use Math::LinearCombination;

use Mojolicious::Command::listdeps;
use Mojolicious::Command::migration;
use Mojolicious::Command::nopaste;
use Mojolicious::Command::nopaste::Service::perlbot;
use Mojolicious::Command::replget;
use Mojolicious::Command::secret;
use Mojolicious::Command::snoodoc;
use Mojolicious::Command::swat;
use Mojolicious::Plugin::AccessControl;
use Mojolicious::Plugin::AccessLog;
use Mojolicious::Plugin::ACME::Command::acme::automat;

use MooseX::Meta::Attribute::Index;
use MooseX::Meta::Attribute::Lvalue;
use MooseX::Meta::Attribute::Searchable;
use MooseX::MetaDescription;
use MooseX::Meta::TypeConstraint::ForceCoercion;
use MooseX::Meta::TypeConstraint::Intersection;
use MooseX::Meta::TypeConstraint::Mooish::tar;
use MooseX::Method;
use MooseX::MethodAttributes;
use MooseX::Method::Signatures;
use MooseX::Modern;

use Perl::Critic::Policy::logicLAB::RequireParamsVal;
use Perl::Critic::Policy::logicLAB::RequireSheBang;
use Perl::Critic::Policy::logicLAB::RequireVersionFo;
use Perl::Critic::Policy::Modules::ProhibitUseLib;
use Perl::Critic::Policy::Moo::ProhibitMakeImmutable;
use Perl::Critic::Policy::Perlsecret;
use Perl::Critic::Policy::ProhibitSmartmatch::ta;
use Perl::Critic::Policy::References::ProhibitComple;
use Perl::Critic::Policy::RegularExpressions::Requir;
use Perl::Critic::Policy::TryTiny::RequireBlockTermi;
use Perl::Critic::Policy::TryTiny::RequireUse::t;

use Set::Groups;
use Set::Hash;
use Set::Hash::Keys;
use Set::Infinite;
use Set::Integer::Gapfillers;
use Set::Intersection;
use Set::IntervalTree;
use Set::IntRange;
use Set::IntSpan;
use Set::IntSpan::Fast;
use Set::IntSpan::Fast::XS;

use WebService::Avalara::AvaTax;
use WebService::Azure::Search;
use WebService::Backlog;
use WebService::BambooHR;
use WebService::Bandcamp;
use WebService::Basecamp;
use WebService::BasecampX;
use WebService::BaseClientRole;
use WebService::BBC::MusicCharts;
use WebService::Beeminder;
use WebService::Belkin::WeMo;
use WebService::Binance;

view all matches for this distribution

Acme-Devel-Hide-Tiny

3 results

CONTRIBUTING.mkdn view on Meta::CPAN

As a last resort, an email to the author(s) is acceptable.

## Installing and using Dist::Zilla

Dist::Zilla is not required for contributing, but if you'd like to learn
more, this section will get you up to speed.

Dist::Zilla is a very powerful authoring tool, optimized for maintaining a
large number of distributions with a high degree of automation, but it has a
large dependency chain, a bit of a learning curve and requires a number of
author-specific plugins.

view all matches for this distribution

Acme-Dice

2 results