peczenyj

use strict;
use warnings;

package Java::Util::Iterator;

use Moose::Role;

requires 'hasNext', 'next', 'remove';

package Frequency::Iterator::Single;

peczenyj

use strict;
use warnings;

package Frequency::Iterator;

# ABSTRACT: Module who abstract a frequency iterator

use Exporter 'import';
use Carp qw(croak);
use List::MoreUtils qw(any natatime pairwise);

peczenyj

$ panda --notests install Task::Star
==> Task::Star depends on panda, HTTP::Status, HTTP::Easy, Template::Mojo, Bailador, DBIish, URI, Linenoise, LWP::Simple, JSON::RPC, Pod::To::HTML, p6doc, MIME::Base64, PSGI, Shell::Command, File::Find
==> panda depends on File::Find, Shell::Command, JSON::Fast
==> Shell::Command depends on File::Find
==> HTTP::Easy depends on HTTP::Status, PSGI
==> PSGI depends on HTTP::Status
==> Bailador depends on HTTP::Easy, Template::Mojo, Template::Mustache, URI
==> HTTP::Easy depends on HTTP::Status, PSGI
==> PSGI depends on HTTP::Status
==> Template::Mustache depends on JSON::Fast

peczenyj

$ perl proxy.pl 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
          00 01 02 03 04 05 06 07 - 08 09 0A 0B 0C 0D 0E 0F  0123456789ABCDEF

00000000  00 00 00 01 01                                     .....

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
.

peczenyj

$ ruby -v
ruby 1.9.3p194 (2012-04-20 revision 35410) [x86_64-linux]

$ perl -v
This is perl 5, version 12, subversion 2 (v5.12.2) built for x86_64-linux

$ python --version
Python 2.7.5+

$ uname -a

peczenyj

use Time::Out qw(timeout);
use DDP;
 
sub run_with_timeout(&$$) {
    my $block   = shift;
    my $timeout = shift;
    timeout $timeout, @_ => sub {
        my $pool = shift;
        while ( my $s = pop @$pool ) {
            $block->($s);

peczenyj

all:
      @gcc -Wall a.c -o a.exe

clean:
      @rm -rf /

peczenyj

function foo { 
	read -p "digite a opcao: " OPCAO

	case $OPCAO in 
	a) echo "a" ;;
	b) echo "b" ;;
	c) foo ;;
	*) echo "opcao invalida '$OPCAO'"; exit 1 ;;
	esac
}

peczenyj

use strict;
use warnings;
use feature 'say';

use Memory::Usage;
my $mu = Memory::Usage->new();

$mu->record('starting work');

package Foo;

peczenyj

500 Internal Server Error

Sorry, something went wrong.

A team of highly trained monkeys has been dispatched to deal with this situation.

If you see them, show them this information:
CkGlKqTxgvnj8qwrZk2-uUhfJUJZhAosQVThK4q_qqNuQeg-FKXqX_F-fLj9
5VnDkqOpPuBSVRl6xQNiyLB5ZOHQvchhR_Cctoy_KxCqhpKgkHj7WGRBLmsD
QH2RXP4uFBgF_bJIJBahOASIe_xmDe405Uyt8-5hEEARgb34CGysBBIdxHmI