peczenyj
/ gist:7431827
Created
November 12, 2013 14:36
— forked from 0yogue/gist:7431697
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| use Time::Out qw(timeout); | |
| use DDP; | |
| sub run_with_timeout(&$$) { | |
| my $block = shift; | |
| my $timeout = shift; | |
| timeout $timeout, @_ => sub { | |
| my $pool = shift; | |
| while ( my $s = pop @$pool ) { | |
| $block->($s); |
peczenyj
/ dsl_for_html_generation.rb
Created
March 2, 2009 18:09
— forked from fabiokung/dsl_for_html_generation.rb
HTML DSL, adicionando atributos
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| def method_missing(name, *args) | |
| attributes = args.last.to_a.collect {|y| y = "#{y[0]}=\"#{y[1]}\"" } .join(" ") if args.size > 1 | |
| puts "<#{name} #{attributes}>#{args.first}" | |
| yield if block_given? | |
| puts "</#{name}>" | |
| end | |
| html do | |
| body do | |
| h1 "My internal DSL" |