27
Aug 10

Todesstrafe

Japan zeigt erstmals seine Hinrichtungskammern

Drei Beamte drücken gleichzeitig die Knöpfe, damit wird unklar, welcher zum Tod des Verurteilten führte.

Damit werden alle drei zum Mörder.


26
Aug 10

Bind Module for Perl (III)

Recently I sketched out a early draft of an Bind module for
Perl. During the last few days I completed a working prototype for use within my Filer file manager.

I created a public repository for the module on GitHub:

http://github.com/nullmedium/Class-Bind

The module is in an early stage of development. There is no documentation and the module needs more testing.


23
Aug 10

Filer 0.0.13-git on Mac OSX

Filer-0.0.13-git
Uploaded with plasq‘s Skitch!

I resurrected the codebase of my old Filer project and moved its sources over to Github.


20
Aug 10

Joel Spolsky at BoS 2009


20
Aug 10

Ach, was reg ich mich auf…

Hagen Rether hält seinem Publikum schön den Spiegel vor. Das Publikum klatscht und lacht, und am Ende werden alle wieder in ihre Vorstadthäuser und Eigentumswohnungen zurückkehren. Und alle werden Sie wieder mit ihrem Auto zur Arbeit fahren und beim Discounter einkaufen; es gibt dort ja so günstiges Fleisch.


16
Aug 10

Code: dirwalk

A few years ago I wrote a Perl module to traverse directory trees. Some time ago I started to write a C++ version of it. You can get it here on github. It is not finished and undocumented. It requires Boost Filesystem. The library is licensed under the Boost Software License.

Update: added a small example program to illustrate the usage of the library.


19
Jul 10

Zitat des Tages

“Die gefährlichste und gleichzeitig oft ignorierte “Nebenwirkung” einer unkritischen Akzeptanz von Homöopathie ist die intellektuelle Verarmung der Gesellschaft.”

(Ulrich Berger)

via stackenblochen (rsf).


17
Jul 10

E-Mail Quoting

Jetzt mal im ernst: Welchen Vorteil hat bottom posting wenn man erst ~ 80 nicht zusammengekürzte Zeilen mit drei Quote-Ebenen herunterscrollen muss? Da bevorzuge ich doch eher das im Netz verpönte top posting.


06
Jul 10

Travel Pictures (III): Islay

Portnahaven

Port Charlotte Hotel


27
Jun 10

Bind Module for Perl (II)

My first draft of a Bind module for Perl is actually quite simple:

1
2
3
4
5
6
7
8
9
10
11
12
13
package Class;

sub bind {
    my ($func, $obj, @args) = @_;

    my $func = sub {
        &{*$func}($obj, @args);
    };

    return $func;
}

1;

The Class::bind function takes three arguments: a typeglob to a method, an object
and an array with parameters that will be passed to the function object. The function returns a reference to an anonymous function. The anonymous function can be passed as a callback to other functions. For example:

1
2
$callback = Class::bind(\*MyWindow, $self, "parameter 1", 42);
$gtk_button->signal_connect(clicked => $callback);

Still missing is a feature to pass Boost.Bind-style placeholder arguments. Stay tuned.

Updated: Bind Module for Perl (III)