olegwtf

#include <QDebug>
#include <QSqlDatabase>
#include <QSqlQuery>
#include <QString>
#include <QSqlError>
#include <QVariant>

int main()
{
	QSqlDatabase db = QSqlDatabase::addDatabase("QIBASE");

olegwtf

use autodie;
use Fcntl qw(SEEK_SET);
use strict;
use warnings;

my ($in1, $in2, $ot) = @ARGV;
die "usage: $0 input1 input2 output"
	unless defined $in1 && defined $in2 && defined $ot;

open IN1, '<:urf8', $in1;

olegwtf

<?php

class Ax {
	public $super;
	
	function __construct() {
		$this->super = "super";
		$GLOBALS['super'] = &$this->super;
	}
	

olegwtf

#include <xlslib.h>
#include <vector>
#include <string>
#include <iostream>
#include <fstream>
#include <ctime>

using namespace xlslib_core;
using namespace std;

olegwtf

BEGIN {
	$ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS} = 30;
}
use strict;
use Coro::LWP;
use Coro;
use LWP;

my @coros;
for (1..30) {

olegwtf

BEGIN {
	$ENV{SOCKS_DEBUG} = 1;
}
use IO::Socket::Socks::Wrapper (
	Net::FTP => {
		ProxyAddr => 'localhost',
		ProxyPort => 1080,
		SocksVersion => 5
	},
	Net::FTP::dataconn => {

olegwtf

use strict;
use URI;
use HTTP::Request;
use IO::Lambda qw(:all);
use IO::Lambda::HTTP qw(http_request);

sub request($) {
    my $url = URI->new($_[0]);
    my $req = HTTP::Request->new(GET => $url, [Host => $url->host]);
    $req->protocol('HTTP/1.1');

olegwtf

use strict;
use warnings;
use AnyEvent::Google::PageRank 'rank_get';

my $cv = AE::cv;
rank_get 'http://www.google.ru', sub {
	print shift, "\n";
	$cv->send;
};
$cv->recv;

olegwtf

use Data::Dumper;
use strict;

$a = ['google.ru', on_prepare => sub {}, timeout => 10, sub{}];
print Dumper _extract_known_params($a);
print Dumper ($a), "-------\n";

$a = ['google.ru', timeout => 10, on_prepare => sub {}, sub{}];
print Dumper _extract_known_params($a);
print Dumper ($a), "-------\n";

olegwtf

#include <iostream>

class Ax {
public:	
	Ax(int a);
	bool compare(const Ax &other);
	
private:
	int m_a;
};