peczenyj

2.1.0 :001 > require 'moosex'
 => true 
2.1.0 :015 > class B
2.1.0 :016?>   include MooseX.init(meta: true)
2.1.0 :017?>   has :a
2.1.0 :018?>   has [ :b, :c ]
2.1.0 :019?>   has d: { doc: "d" }
2.1.0 :020?>   has :e, is: :rw, doc: "eeee"
2.1.0 :021?> end
 => nil 

peczenyj

Keybase proof

I hereby claim:

• I am peczenyj on github.
• I am pacman (https://keybase.io/pacman) on keybase.
• I have a public key whose fingerprint is D9D2 107C 74EB 9F34 71A4 B23E 4783 515E 0FBE EDE5

To claim this, I am signing this object:

peczenyj

package Maybe;

use Moo::Role;

has value => (is => 'ro', required => 1);

use overload 
  '>>='=> \&bind;

sub bind {

peczenyj

NEW! you can install via cpan: https://metacpan.org/release/PACMAN/Acme-CatFS-0.001

1. you should install LWP::Simple and Fuse:Simple - use cpan or cpanm
2. you should configure the local fuse install to run as root or as common user
3. don't forget 'fusermount -u <mountpoint>' after finish the script

to install dependencies

you can use regular cpan OR cpanminus ( http://search.cpan.org/~miyagawa/App-cpanminus-1.7001/lib/App/cpanminus.pm )

peczenyj

use strict;
use warnings;
use feature 'say';
use Memory::Stats;

sub multiplicador{ 
    my @ini = (100..999);
    my $fim = 999;
    my @memo;
    while ($fim != 100){

peczenyj

#!/bin/bash
#
# Este script vai consultar o json da globo.com e vai mostrar em 
# quantos estados o partido X coliga com os outros partidos
#
PARTIDO=${1:?favor informar o partido}
URL=http://estaticog1.globo.com/2014/07/Coligacoes/eleicao.json

echo "Coligações do partido $PARTIDO"

peczenyj

lala

begin
 sddasdas
 asdasdasd
 asdasd
end

lolo

peczenyj

import java.util.*;

public class A {
  String name;

  public A(String name) { this.name = name; }

  public String toString(){ return "A[" + this.name + "]"; }

  public static void main ( String [] args ) {

peczenyj

package HTML;
use strict;
use warnings;
use feature 'say';

sub import {
    my $self = shift;
    my ($callpack, $callfile, $callline) = caller;

    foreach my $tag (@_) {

peczenyj

# adicione essa linha no seu /etc/hosts

127.0.0.1   paywall.folha.uol.com.br