Meettya

<... skip ...>

compiling stubs.c
In file included from stubs.c:8:
stubs.h:1:17: error: tcl.h: No such file or directory
In file included from stubs.c:8:
stubs.h:8: error: expected ‘=’, ‘,’, ‘;’, ‘asm’ or ‘__attribute__’ before ‘*’ token
stubs.h:10: error: expected ‘)’ before ‘*’ token
stubs.h:11: error: expected ‘)’ before ‘*’ token
stubs.c:16:16: error: tk.h: No such file or directory

Meettya

# Code:
#
namespace = (target, name, block) ->
  [target, name, block] = [exports ? window, arguments...] if arguments.length < 3
  top    = target
  target = target[item] or= {} for item in name.split '.'
  block target, top

# Usage:
#

Meettya

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<!--
BBEdit Language Module for CoffeeScript

Put this file in 
   ~/Library/Application Support/BBEdit/Language Modules
or equivalent.

Based off of the examples shipped in the BBEdit SDK.

Meettya

#!/bin/bash

#===================================
#
# This command resize all images 
# in this dir and all sub dirs
# For common purpose.
#
# GNU Parallel version
# http://www.gnu.org/software/parallel/

Meettya

#!/bin/bash

#===================================
#
# This command resize all images 
# in this dir and all sub dirs
# For common purpose
#
# usage:
# convert-bath.sh dirname

Meettya

use IO::File;
use File::Slurp;

#use re 'debug';
#use Smart::Comments;
use English qw(-no_match_vars);
use Data::Dumper 'Dumper';
use Benchmark qw/cmpthese timethese/;
my $cnt      = 30;
my $testfile = 'test.xml';

Meettya

#! /usr/bin/env perl

use v5.10;
use warnings;

#===================================
package ClobalConstructor;
#===================================

use Moo;

Meettya

#! /usr/bin/env perl

use v5.10;
use warnings;

#===================================
package ClobalConstructor;
#===================================

use Moo;

Meettya

"UPDATE table SET login=?, password=?, user=? WHERE y <>  ? AND z IN (?, ?, ?)"
[
    [0] "foo",
    [1] 12345,
    [2] "Bar Bazz",
    [3] 26,
    [4] 3,
    [5] 4,
    [6] 5
]

Meettya

#!/usr/bin/env perl

use v5.14;
use warnings;

# develop mode
use Smart::Comments;
use Data::Printer;

 use SQL::Interp ':all';