churib

my $s = "lorem ipsum...";
my @a = (0,3);
print( substr( $s, @a ) ); # --> rem ipsum...  --> scalar @a :(

churib

(defmacro lambda* (fname args &rest body)
  `(lambda ,args
     (labels ((,fname ,args ,@body))
       (fname ,@args))))

(defmacro alambda (args &body body)
  `(labels ((self ,args ,@body))
     #'self))

churib

#!/usr/bin/env perl

use warnings;
use strict;

run() if !caller;

sub run {
    chdir '/home/timo/Pictures/Fiene/';
    my @files = <*>;

churib

AnyEvent
App::Cache
Captcha::reCAPTCHA
Capture::Tiny
Carp::Always
CGI::Upload
Class::Accessor
Clone
CPAN::HTTP::Client
CPAN::HTTP::Credentials

churib

    $(document).ready( function () {
      var table;
      table = $('#urls_table').dataTable( {
        "bProcessing": true,
        "sAjaxSource": "/test.pl/url/all/",
        "sDom": 'T<"clear">lfrtip',
        "sPaginationType": "full_numbers",
        "oTableTools": {
          "sRowSelect": "multi",
          "aButtons": [