zoul

#!/usr/bin/env perl

use Modern::Perl;
use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;

my $proxy = HTTP::Proxy->new(host => undef, port => 3128);
my $filter = HTTP::Proxy::HeaderFilter::simple->new(sub
{
    my ($self, $headers, $message) = @_;

zoul

// Runs given block. Returns YES if some object of class ‘c’
// was deallocated in the block. Not thread-safe.
BOOL classGetsDeallocated(Class c, void (^block)(void));

// Convenience interface that calls the function above.
// Releases object, returns YES if object was deallocated.
BOOL getsDeallocatedByReleasing(id object);

zoul

@interface UINavigationItem (Extensions)

- (void) setRightBarButtonItemsWithTotalWidth: (NSUInteger) width
    items: (UIBarItem*) firstItem, ...;

@end

zoul

typedef enum {
    kDeviceTypeUnknown = 0,
    kDeviceTypeSimulator,
    kDeviceTypeiPhone1G,
    kDeviceTypeiPhone3G,
    kDeviceTypeiPhone3GS,
    kDeviceTypeiPhone4,
    kDeviceTypeiPod1G,
    kDeviceTypeiPod2G,
    kDeviceTypeiPad

zoul

- (void) processStrings: (NSString*) str1, ...
{
    va_list args;
    va_start(args, str1);
    NSString *arg = str1;
    while (arg != nil) {
        // do something with arg
        arg = va_arg(args, NSString*);
    }
    va_end(args);

zoul

#!/usr/bin/perl

use Modern::Perl;
use WWW::Mechanize;

my $root = 'http://naima:3000/cs/';
my $domain = 'http://naima';
my $mech = WWW::Mechanize->new;

sub visit {

zoul

#!/usr/bin/perl

use Modern::Perl;
use XML::RSS::Tools;
use Perl6::Slurp;

my $style = slurp \*DATA;
my $feed = XML::RSS::Tools->new;
#$feed->set_http_client('lite');
#$feed->debug(1);

zoul

package REPL;

use Modern::Perl;
use Moose;

sub foo
{
    return "foo";
}

zoul

#!/usr/bin/perl

use Modern::Perl;
use Benchmark 'cmpthese';

sub with_eval
{
    eval
    {
        my ($a, $b) = (2, 4);

zoul

#!/usr/bin/env perl

use v5.14;
use strict;
use warnings;
use Data::Dump 'pp';

{
    package Node;
    use Mouse;